Excel 在VBA中使用OpenText将分隔的TXT转换为XLS？

我想将带分隔符的txt转换为xls文件。我已经提出了两个非常简单的命令行，我认为应该可以工作，但实际上没有。有人能告诉我我犯了什么错误吗

如果这个工作，我将循环它与3000 txt文件目录

谢谢

博斯科

---

什么意思不起作用？运行时错误，它说SaveAs命令找不到方法，或者datasorry可能是错误的翻译。。。我的家用电脑中的excel是繁体中文…你好，John，但当我转到第三行时，它显示运行时错误1004。。。有什么想法吗？？？您是否将路径和文件名更改为分隔文件？“C:\Files\Delimited_File.txt”在我的计算机上有效。您必须将其更改为计算机上的路径和文件。它必须是有效的路径和文件才能工作。我已编辑了答案，以包含您的路径和文件名。如果它不工作，那么它一定是一个错误的路径或文件名。再检查一遍。此外，您不能再从vba以.xls格式保存-它必须是.xlsx。我想收回它。我找到了要另存为.xls文件的文件类型。答案如下。

Sub ConvertDelimitedTXTtoXLS()
    Dim wb As Workbooks
    wb.OpenText Filename:="C:\Users\boscotsin\Desktop\test0.txt", DataType:=xlDelimited, Tab:=True
    wb.SaveAs Filename:="C:\Users\boscotsin\Desktop\success.xls"
End Sub

Sub delimitedTXTtoXLS()
    Dim wb As Workbook
    Workbooks.OpenText filename:="C:\Users\boscotsin\Desktop\test0.txt", origin:=xlMSDOS, DataType:=xlDelimited, Tab:=True
    Set wb = ActiveWorkbook
    wb.SaveAs filename:="C:\Users\boscotsin\Desktop\success.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    wb.Close SaveChanges:=True
End Sub

' Excel8

Sub delimitedTXTtoXLS2()
    Dim wb As Workbook
    Workbooks.OpenText FileName:="C:\Users\boscotsin\Desktop\test0.txt", origin:=xlMSDOS, DataType:=xlDelimited ', Comma:=True
    Set wb = ActiveWorkbook
    wb.SaveAs FileName:="C:\Users\boscotsin\Desktop\success.xlsx", FileFormat:=56, CreateBackup:=False
    wb.Close SaveChanges:=True
End Sub