Ошибка выполнения скрипта VBA

Question

У меня ошибка при выполнении сценария VBA

Сообщение:

Линия 3
Чар 12
Ошибка Ожидаемый конец оператора
Код 800A0401
Ошибка компиляции исходного MS VBScript

Вот мой сценарий, который я хочу сделать, чтобы конвертировать TXT в 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

Нет необходимости инициализировать типы переменных при использовании Dim:

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