Question

我正在尝试编写一个代码，该代码将允许我导入外部文本文件并按列设置其格式。

我尝试了几种不同的方法，我认为定界是我想要做的最好的方法。

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函数的范围。有谁知道它应该被指定为什么？

Answer 1

“ OtherChar”选项的末尾有一个逗号和一个下划线，可能不应该出现，因为它是该行的结尾。您还可以在同一行中将“ False”拼写为“ Flase”，只是文档说OtherChar是一个变体，而不是布尔值。这可能是问题的一部分吗？

许多这些参数是可选的，并且具有与您设置的值相同的默认值，因此最好将其省略。

导入和定界文本文件

1 个答案: