1、创建连接到excel应用的ole对象 OleObject ole_excel ole_excel = create OleObject If ole_excel.ConnectToNewObject("Excel.Application") > 0 Then MessageBox('连接到Excel错误','请确认是否已经安装了Excel!',Exclamation!)Destroy old_excel Return End If 2、打开指定的excle文件 ole_excel.Appl...

" 这个提示表示open函数打开excel文档时参数出错，主要是括号内的参数excel文件的访问路径有问题，合适的访问方法应该是 “获取当前目录” + “\excel文件名” 构成open()函数的参数，但是在采用pb提供的获取路径的内部函数getcurrentdirectory()时就会出现问题，因为getcurrentdirectory()只能获取编译前的路径...

pb控制，需要将eole改为 MyOLE=Create OLEObject ConnectErr=MyOLE.ConnectToNewObject ("excel.Application") 这个是必须的，名字为myole //打开指定的XLS文件激活workbooks MyOLE.application.workbooks.Open (FilePath) //对XLS文件进行了改动以后，在关闭该文件时是否需要向用户提出警告。 MyOLE.Applicat...

cb_1的clicked 10行有误！ 先把10注释。在运行！如果还是报相同错误，就可判定设置值出错！

OLEObject ole_object ole_object = CREATE OLEObject li_ret = ole_object.ConnectToObject(strFile)IF li_ret <> 0 THEN MessageBox('OLE错误','Excel文件无法打开!错误号：' + string(li_ret))choose case li_ret case -1 messagebox("错误提示","无效的调用")case -2 messagebox...

是VBA代码的BUG，通过调试，找出错误源可以解决。OLEObject与OLE控件本身是有区别的。前者是运行是不可见的，是PB 所采用的一种自动化技术。OLE控件本身必须添加于一个窗口容器上，不管 你是否设置其的VISIBLE属性与否。想问一下，你的工作簿是否共享了，这也可能是出现问题的原因之一 ...

end prototypes global function integer f_pbtoexcel (datawindow adw);integer li_rtn,ii,li_asc string ls_name,ls_pathname boolean lb_exist if adw.RowCount()<1 then MessageBox("提示信息","请先检索数据再导出至Excel!")return -1//error end if ls_pathname='导出文件'li_rtn=GetFile...

) RETURN -1 END IF //增加空文档 (EXCEL table) xlApp.Workbooks.Open(as_excelfile) //xlApp.Application.Visible = FALSE xlApp.DisplayAlerts = false //定位到第一格 Long l_cnt,l_rows,l_cols Long l_row,l_i Int i_cnt l_rows = 30 l_cols = 23 Long l_cno String s_cno,s_temp ...

//通过ole直接操作excel lx_excel = CREATE OLEObject //连接excel IF lx_excel.ConnectToNewObject("excel.application") <> 0 THEN err = "OLE连接Excel错误!"return false END IF //打开导出Excel文件 lx_excel.workbooks.open(ls_pathname)//设置表格框 lx_excel.Worksheets(1).UsedRange.Borders...

dw_1.saveas() //--弹出将数据窗口的数据保存成文件的提示窗口 这样就行了，当数据窗口有内容时，点那个按钮，就出现保存的提示窗口，可以选择保存的位置、文件类型、文件名称。如果用户只能保存为excel，则可以这样：dw_1.SaveAs("D:\abc.XLS", Excel!, TRUE) //--具体解释见下面 以下为...