Импорт и разделение текстового файла - PullRequest
Новая
       47

Импорт и разделение текстового файла

0 голосов
/ 18 июня 2019

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

Я пробовал несколько разных методов, и я думаю, что разграничение является лучшим методом для того, что я хочу сделать. 

Sub Import_TxtFile()
Dim TXT As Range


Open "C:\Users\hpeshek\Desktop\Excel Testing\Test 3.txt" For Input As #1

'Run the procedure while it is not at the end of the file
Do While Not EOF(1) 'Loop until End of File
Line Input #1, TXT  'Read line into variable

'I think if i can get the following to work then the import will be successful

TXT.TextToColumns _
Destination:=Range("A1:"), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=True, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=False, _
OtherChar:=False


Loop
Close #1 'Close file



End Sub

Я думаю, что моя проблема в том, что я не могу отформатировать TXT как диапазон для функции TextToColumns. Кто-нибудь знает, как это должно быть обозначено?

1 Ответ

0 голосов
/ 18 июня 2019

У вас есть запятая и подчеркивание в конце вашего параметра "OtherChar", которого, вероятно, не должно быть, так как это конец строки. Вы также неправильно пишете «False» как «Flase» в той же строке, за исключением того, что в документах говорится, что OtherChar - это вариант, а не логическое значение. Может ли это быть частью проблемы?

Многие из этих параметров являются необязательными и имеют те же значения по умолчанию, что и значения, которые вы установили, так что, возможно, вам лучше их не использовать.

...