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