1、pb 与 excel 之间导入导出处理gf_save_excel_to_txt(as_excel_filename string,as_text_filename string)/把文件名为 as_excel_filename 的 Excel 文件另存为文件名为 as_text_filename的 Text 文件/返回：另存是否成功/删除 Text 文件If DeleteFile(as_text_filename) Then/删除存在的 Text 文件成功OLEObject l_olel_ole = Create OLEObject;If l_ole.ConnectToNewObject(“E
2、xcel.Application“) = 0 Then/连接到 Excell_ole.Application.DisplayAlerts = False /关闭警告消息对话框，防止退出 Excel 时提示l_ole.Application.Workbooks.Open(as_excel_filename) /打开 Excel 文件l_ole.Application.ActiveWorkbook.SaveAs(as_text_filename,-4158) /把打开的 Excel 文件另存为Text 文件，第二参数表示数据以制表符 TAB 分隔l_ole.Application.Quit() /
3、退出 ExcelElseMessagebox(错误,无法建立与 Excel 的连接！ ,StopSign!)Destroy l_oleReturn FalseEnd IfDestroy l_oleReturn TrueElse/无法删除 Text 文件Return FalseEnd If保存 excel 文件 :要想选择目录可以这样 string ls_docname, ls_named /文件路径，文件名 integer li_rt li_rt = GetFileSaveName(“选择保存路径并输入保存文件名 “ + string(jj), ls_docname, ls_named, & “Excel“, & “Excel Files (*.XLS),*.XLS,“ + & “ TXT Files (*.TXT),*.TXT“) if li_rt = 1 then /转存 dw_x.saveasascii(ls_docname,“t“,“) end if
