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

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

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文件来描述.txt文件的结构/数据types。 Excel应该遵守这些定义。

Answer 2

OpenText方法的FieldInfo参数需要一个由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