VBA Script Runtime error

Question

ich einen Fehler haben, während mein VBA-Skript ausführen

Nachricht ist:

Linie 3
12 Char
Fehler Erwartete Ende der Anweisung
-Code 800A0401
Quelle MS VBScript-Kompilierungsfehler

Hier ist meine script, was ich tun möchte, ist TXT to XLS konvertieren

Sub TXTconvertXLS() 
    'Variables 
    Dim wb As Workbook 
    Dim strFile As String 
    Dim strDir As String 

    'Directories 
    strDir = "X:\X\X\X\xxxx\" 
    strFile = Dir(strDir & "*.txt") 

    'Loop 
    Do While strFile <> "" 
     Set wb = Workbooks.Open(strDir & strFile) 
      With wb 
       .SaveAs Replace(wb.FullName, ".txt", ".xls"), 50 
       .Close True 
      End With 
     Set wb = Nothing 
    Loop 
End Sub 

Answer 1

Es besteht keine Notwendigkeit Variablentypen zu initialisieren, wenn Dim mit:

Sub TXTconvertXLS() 
    'Variables 
    Dim wb 
    Dim strFile 
    Dim strDir 

    'Directories 
    strDir = "X:\X\X\X\xxxx\" 
    strFile = Dir(strDir & "*.txt") 

    'Loop 
    Do While strFile <> "" 
     Set wb = Workbooks.Open(strDir & strFile) 
      With wb 
       .SaveAs Replace(wb.FullName, ".txt", ".xls"), 50 
       .Close True 
      End With 
     Set wb = Nothing 
    Loop 
End Sub