PB中导出excel 2007文件报错

[hy_rr]

我在pb中将sql数据直接导入到excel文件中，excel 2003导入和打开都没有问题，可是同样的代码，本机如果装的是excel 2007时，导入和打开文件，总是报“扩展名或格式不正确”，数据也能导入，但总是出这个提示，希望哪位高手能帮助解决。
代码：
OLEObject myoleobject
integer result
integer value
integer count
integer li_FileNum
string s_lm_id,s_qd_id,s_qd_name
string docname,named


docname="d:\aaa.xls"
li_FileNum = FileOpen( docname, lineMode!, Write!, LockWrite!, Append!)
FileWrite(li_FileNum, "HY")
fileclose(li_FileNum)

value=1
myoleobject = CREATE OLEObject
result = myoleobject.ConnectToObject(docname)


select count(*) into :count from test;
if result=0 then
IF value = 1 THEN
declare wolf_cur cursor for select * from test;

open wolf_cur ;
for s_count=1 to count
fetch wolf_cur into :s_lm_id,:s_qd_id,:s_qd_name;
IF result = 0 THEN
myoleobject.application.workbooks(1).worksheets(1).cells(s_count,1).value = s_lm_id
myoleobject.application.workbooks(1).worksheets(1).cells(s_count,2).value = s_qd_id
myoleobject.application.workbooks(1).worksheets(1).cells(s_count,3).value = s_qd_name
end if
next
myoleobject.application.workbooks(1).save()
DESTROY myoleobject

close wolf_cur;
messagebox('信息提示','数据导出结束')

else
messagebox('信息提示','保存失败')
end if
else
messagebox("","保存失败")
END IF

[PB菜鸟]

你导出文件的扩展名是xls，用2007是打不开的,她的扩展名是xlsx
你试试更换保存文件的扩展名位xlsx看行不行，不行了可以先导入到csv格式或者txt格式再用excel2007打开

[hy_rr]

我之前试过，存成xlsx的不成，也报同样的错误！csv格式的，我试过了，是不报错，可是打开excel文件里面的内容全都集中在一格中了,没有分开！

[PB菜鸟]

[Quote=引用 2 楼 hy_rr 的回复:]
我之前试过，存成xlsx的不成，也报同样的错误！csv格式的，我试过了，是不报错，可是打开excel文件里面的内容全都集中在一格中了,没有分开！
[/Quote]
呵呵 没装2007，安装2007应该兼容以前的版本的，你的代码导出的是2003格式的，用2007应该可以打开的.

[builderwfy]

EXCEL有點麻煩,連擴展名都改了

[hy_rr]

我在不同的机器上测试过，相同的代码，在装了2003上没有问题，在装了2007的机器上就报错，可是数据能够导出来

[hy_rr]

我换成aaa.xlsx在excel 2007的机器上也同样报错，总提示我格式不对

[zlf19810306]

这个只能找excel2007的vba编程文档看看了

[hy_rr]

谢谢大家了，我已经解决了！改了代码，已经全搞定了！

[zlf19810306]

myoleobject.ConnectToNewObject(docname) 不用pb来创建，直接用excel创建一个新的excel文件试试

[zqq231]

[Quote=引用 8 楼 hy_rr 的回复:]
谢谢大家了，我已经解决了！改了代码，已经全搞定了！
[/Quote]

请问是怎么改的呢？我也遇到这个问题，请指导，谢谢。

[dragon0236]

[Quote=引用 8 楼 hy_rr 的回复:]
谢谢大家了，我已经解决了！改了代码，已经全搞定了！
[/Quote]
我也想知道，- -！

[不是导演李安]

我也想知道。同样遇到问题

[shandyjj]

先判断本机的excel是哪个版本，跟进版本来选择下载后文件的扩展名称就可以了。

[second_huang]

请问如何判断本机EXCEL版本

[yyoinge]

OleObject   xlapp
Integer     li_row
String      ls_filename, ls_version, ls_info

xlapp = Create oleobject
li_row = xlapp.ConnectToNewObject("Excel.Application")
If li_row < 0 Then
   Messagebox("系统提示","不能运行Excel程序,请检查是否已安装Microsoft Excel软件!",Stopsign!)
Else
   ls_version = String(xlapp.Version)
   Choose Case ls_version
      Case '9.0'
         ls_info = "Excel 2000"
      Case '10.0'
         ls_info = "Excel 2002/XP"
      Case '11.0'
         ls_info = "Excel 2003"
      Case '12.0'
         ls_info = "Excel 2007"
      Case '14.0'
         ls_info = "Excel 2010"
      Case Else
         ls_info = "未知版本"
   End Choose
   Messagebox("系统提示", ls_info + " 版本号：" + ls_version + "~t")
   xlapp.DisconnectObject()
End If

[second_huang]

还有个问题就是导入导出数据之后，退出运行程序，报pb9.0应用程序错误，还有什么内存不能为‘READ’

[second_huang]

[Quote=引用 13 楼 shandyjj 的回复:]
先判断本机的excel是哪个版本，跟进版本来选择下载后文件的扩展名称就可以了。
[/Quote]

我现在导出格式为*.XLSX的文件，用EXCEL打开的时候提示我“扩展名或格式不正确”，把文件扩展名改为XLS就能看见数据，请教如何解决

[second_huang]

楼主和我们分享一下你解决后的代码呗