使用分隔符和文本格式的列vbscript将文本文件转换为excel

Question

我想使用VBScript将.txt文件转换为Excel。我有一个角色，我想划分“|”。我还想在打开文本之前将列数据格式化为文本。这就是我目前使用的减去列数据格式作为文本。

Const xlDelimited                =  1
Const xlOpenXMLWorkbook          = 51

xl.Workbooks.OpenText "C:\project\project.txt", , , xlDelimited, , , , , , , True, "|"

Set wb = xl.ActiveWorkbook

wb.SaveAs "C:\project\project.xlsx", xlOpenXMLWorkbook, , , , False
wb.Close

xl.Quit

在打开文本文件之前，我需要帮助将列数据格式化为文本。我不知道该怎么做。在文件打开后，我尝试将列格式化为文本，导致数字数据从零开始丢失。

任何帮助将不胜感激。先感谢您。

Answer 1

使用schema.ini file描述.txt文件的结构/数据类型。 Excel应遵守这些定义。

Answer 2

FieldInfo方法的OpenText参数采用2元素数组（列号和格式说明符）的数组。试试这个：

Const xlTextFormat = 2

fieldInfo = Array( Array(1, xlTextFormat) _
  , Array(2, xlTextFormat) _
  , Array(3, xlTextFormat) _
  , ...
)

xl.Workbooks.OpenText "C:\project\project.txt", , , xlDelimited, , , , , , _
  , True, "|", fieldInfo