VBAスクリプト実行時にエラー

Question

私がエラーを持っている

メッセージがある：文の

ライン3
チャー12
エラー終了予定
コード800A0401
ソースMS VBScriptコンパイルエラー

ここは私です私が何をしたいスクリプトがDimを使用するときにXLS

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

変数の型を初期化する必要はありませんにTXTに変換することです：

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