将.dat文件转换为.xlsx,其中所有数据均为文本格式

时间:2018-07-12 22:48:20

标签: vbscript

在将.dat文件转换为.xlsx(Office 2010)时,我需要一些帮助,并且应使用VBScript将文件中的所有数据转换为文本格式。

到目前为止,我已经尝试了以下代码,但是数据类型不匹配,并且打开文本类失败。

代码:

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False

objExcel.Workbooks.OpenText "C:\Users\Desktop\Hello.dat", _
xlWindows, 1, xlDelimited, xlTextQualifierDoubleQuote, ,"|" , , , , ,True,xlTextFormat, , , , ,True, Array = Array(1,2,3,4,5,6,7,8,9,10)

objExcel.Workbooks("Hello.dat").SaveAs _
    "C:\Users\Desktop\Hello.xlsx", 51

objExcel.Workbooks("Hello.xlsx").Close

objExcel.Quit

0 个答案:

没有答案