Я пытаюсь импортировать `.txt файл` в рабочую книгу из другой книги, но не работает

Question

Допустим, я работаю над книгой А, и книга А производит .txt file. У меня также есть рабочая книга B, в которой есть таблица, готовая для получения данных из .txt file. я хочу импортировать .txt file продукцию по книге A в книгу B, и я хочу сделать это с книгой A, вот мой код:

Sub result_template()

Dim FL As String
Dim wb As Workbook
Dim restemplate As Object

        With Application.FileDialog(msoFileDialogFilePicker)   '
            .Title = "Select the log file"                 'Open the file explorer
            .InitialFileName = ThisWorkbook.path & "\"         'for you to select
            .InitialView = msoFileDialogViewDetails            'the file you want
            .AllowMultiSelect = False                          'to format
            .Show

            If Not .SelectedItems(1) = vbNullString Then Sheets(5).Cells(36, 16).Value = .SelectedItems(1)

        End With

        With Application.FileDialog(msoFileDialogFilePicker)   '
            .Title = "Select the result template"              'Open the file explorer
            .InitialFileName = ThisWorkbook.path & "\"         'for you to select
            .InitialView = msoFileDialogViewDetails            'the file you want
            .AllowMultiSelect = False                          'to format
            .Show

            If Not .SelectedItems(1) = vbNullString Then FL = .SelectedItems(1)
            Set restemplate = wb.OpenText(FL, 3, xlDelimited, True, True)

        'Code to copy the contents of the .txt file to your table

            ActiveWorkbook.Close Savechanges:=True filename:="result" & Date


        End With

End Sub

У меня ошибка синтаксиса на ActiveWorkbook.Close и переменная объекта не установлена ​​ошибка на Set restemplate = wb.OpenText(FL, 3, xlDelimited, True, True)

что я не так делаю?