在VBA中使用OpenText將定界的TXT轉換為XLS？

Question

我想將分隔的txt轉換為xls文件。 我想出了2條非常簡單的命令行，我認為它們應該可以工作，但實際上卻行不通。 誰能告訴我我犯了什么錯誤？

如果這項工作有效，我將使用dir循環處理3000個txt文件...

謝謝！

博斯科

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

Answer 1

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

Answer 2

' 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