excel - 使用分隔符和文本格式列 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 文件来描述 .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