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

Question

在将.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