Vba 如何使用vbscript将.tsv文件转换为xlsx文件？

我需要将.tsv文件转换为.xlsx格式。有没有一种使用vbscript实现的方法？我试图在网上找到它，但没能找到我真正需要的东西。我对VBScript非常陌生。如果有人能帮我，那就太好了。提前谢谢。

以最简单的形式，这将起作用。DisplayAlerts不显示保存提示，仅当您希望看到它发生时才需要可见。这将创建自己的Excel实例，因此不应干扰当前打开的任何Excel实例

Option Explicit

Dim objExcel : set objExcel = CreateObject("Excel.Application")
objExcel.Application.DisplayAlerts = false
objExcel.Visible = true
objExcel.Workbooks.OpenText "c:\users\TEST\desktop\tab_delimited.tsv" ,,,1,,,,,,,True,"|"
objExcel.ActiveWorkbook.SaveAs "c:\users\TEST\desktop\tab_delimited.xlsx", 51
objExcel.ActiveWorkbook.Close
set objExcel = Nothing

---

将.tsv文件转换为.xlsx格式具体意味着什么？我猜一个.tsv文件意味着制表符分隔的值，但您在这里并没有提出任何实际问题。到目前为止，你自己做过什么？您遇到的具体问题是什么？@KenWhite我知道我们可以通过在excel中拖动.tsv文件将.tsv文件转换为excel文件。但是我需要使用vbscript来完成它。我知道有一个函数objWorkSheet.QueryTables.Add可用于将.tsv转换为excel，但需要向其中传递各种参数。所以我需要这方面的帮助。请看，在备注部分中查找参数格式1。这些信息都不在您的问题中，这就是我问的原因。您应该将其添加到那里。Excel可以记录宏。因此，记录下正在执行的QueryTables.Add，您将获得需要从VBS Alt+T、M、R的命名参数转换为位置参数的VBA代码。或者在excel Alt+F11、F1中读取帮助文件。或者使用对象浏览器函数AddConnection，目标作为范围，[Sql]作为查询表Alt+F11，F2。