Converted Trennte TXT zu XLS mit OpenText in VBA?

Question

Ich möchte abgegrenzten TXT in XLS-Datei konvertieren. Ich habe 2 sehr einfache Befehlszeilen gefunden, die funktionieren sollten, aber in Wirklichkeit nicht. Kann mir jemand sagen, welche Fehler ich gemacht habe?

Wenn diese Arbeit, ich werde es mit dir für 3000 txt-Dateien Schleife ...

Dank!

Bosco

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