PB中导出excel 2007文件报错,该怎么解决

PB中导出excel 2007文件报错
我在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
------解决方案--------------------
你导出文件的扩展名是xls，用2007是打不开的,她的扩展名是xlsx
你试试更换保存文件的扩展名位xlsx看行不行，不行了可以先导入到csv格式或者txt格式再用excel2007打开
------解决方案--------------------
EXCEL有點麻煩,連擴展名都改了
------解决方案--------------------
这个只能找excel2007的vba编程文档看看了

PB中导出excel 2007文件报错,该怎么解决

相关推荐