如何在PowerBuilder 6.5中将文件保存为文本

问题是如何在powerbuilder 6.5中打开.xls文件并将其保存为.txt文件。

例如以下不起作用,我卡在开头:

oleobject testexcel testexcel= Create oleobject testexcel.ConnectToNewObject("excel.application") testexcel.workbooks.Open("something.xls") testexcel.ActiveWorkbook.saveas("something.txt") testexcel.disconnectobject() Destroy testexcel 

如果您需要使stream程自动化,OLE解决scheme就是您的select。 如果你正在做数据操作(一次)而不是简单地打开excel和saveas(txt,csv等),然后执行dw_1.importfile(xxxx)来导入从Excel创build的临时文件。

我怀疑你正在寻找第一个解决scheme,因为第二个解决scheme更为明显 – 我认为这正是Matt在回答问题的地方。

发现另一个StackOverflow问题就像这样在这里回答: 如何将Excel文件导入到DataWindow中

这里是一些代码,这不是你想要的,但它可以修改工作…

 string ls_pathname, ls_filename long ll_rc oleobject loo_excel IF GetFileOpenName ( "Open File", ls_pathname, ls_filename, "XLS", "Excel (*.xls),*.xls" ) < 1 THEN Return loo_excel = CREATE OLEObject loo_excel.ConnectToNewObject( "excel.application" ) loo_excel.visible = false loo_excel.workbooks.open( ls_pathname ) loo_excel.ActiveCell.CurrentRegion.Select() loo_excel.Selection.Copy() ll_rc = dw_1.ImportClipBoard ( 2 ) ClipBoard('') loo_excel.workbooks.close() loo_excel.disconnectobject() DESTROY loo_excel 

剪贴板看上去有点儿圆滑,但这是我能在短时间内find的。 祝你好运

您可以将其保存为与文本基本相同的csv文件。