Использование VB Excel Импорт текста данных с открытым окном

Question

Привет, я очень новичок в программировании VB в Excel. Мне было назначено задание для создания макроса для слияния двух внешних txt-файлов. Это проблема в том, что расположение этих двух файлов может быть расположено по-разному на стороне клиента.

Вот код, который я использую. Есть ли в любом случае я могу импортировать текст данных с открытым окном? И после того, как я установил активную ячейку в последнюю строку, я хочу снова импортировать другой текст данных и настроить ширину столбца. Цените много за любое предложение.

Sub GetFile() 

Dim fNameAndPath As Variant, wb As Workbook 
    fNameAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Select File To Be Opened") 
     If fNameAndPath = False Then Exit Sub 
     Set wb = Workbooks.Open(fNameAndPath) 

     Range("A1").Select 
     ActiveCell.End(xlDown).Select 
     ActiveCell.Offset(1, 0).Select 
' 
'do stuff 
' 
End Sub 

Answer 1

Да. Изменить этот код:

fNameAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Select File To Be Opened") 

этому коду:

fNameAndPath = Application.GetOpenFilename(FileFilter:="Text Files (*.TXT), *.TXT", Title:="Select File To Be Opened") 

Тогда вместо того, чтобы использовать Workbook.Open, используйте Workbook.OpenText.
Чтобы получить правильный синтаксис, запишите макрос и попробуйте открыть файл в excel.
Затем отредактируйте макрокоманду на основе того, что вам нужно.