Question

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

例如以下不起作用，我被困在开场白：

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

Answer 1

如果您需要自动化流程，则可以使用OLE解决方案。如果您正在进行数据操作（一次）而不是简单地打开excel和saveas（txt，csv等），然后执行dw_1.importfile（xxxx）来导入您从Excel创建的临时文件。

我怀疑你正在寻找第一个解决方案，因为第二个解决方案更加明显 - 我认为这就是Matt的答案。

在此处找到了另一个类似于此的StackOverflow问题：How to import Excel file into 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

剪贴板似乎有点圆，但这是我在短时间内找到的全部内容。祝你好运

Answer 2

您可以将其另存为csv文件，该文件与文本基本相同。

如何在Powerbuilder 6.5中将excel文件另存为文本

2 个答案: