ExcelでｔｘｔファイルをVBAで読み込む方法

質問

スペース区切りのテキストファイル（拡張子はtxt）が有ります。
データは、数字ですが上桁には0が入っています。
00001 0003 010222 302033 00025
等のデータです。
このファイルを、ウイザードを使わずにVBAにて直接文字列（テキスト）として読み込むコマンドを失念してしまいました。
教えて下さい。宜しくお願い致します。

回答No.4

Wendy02 · ベストアンサー

こんばんは。#2 Wendy02です。
>ファイル名を直接書くのではなく、「Application.FindFile」の様に
>ボックスにファイル名を並べて、選択したいと考えています。

ご質問なのかは分かりませんが、

Dim FileName As Variant 'String型なら、FileName ="False"
FileName = Application.GetOpenFilename("Text ファイル(*.txt),*.txt")
If VarType(FileName) = vbBoolean Then
　　Exit Sub
End If

お礼

有り難うございます。
出来ました。

回答No.3

noname#22650

「ツール」→「マクロ」→「新しいマクロの記録」
ウイザードを使ってテキストを取り込む。
「記録終了」

で、マクロを記録して、マクロのソースを見れば良いのでは？
OpenTextもQueryTablesも引数多くて手書きはめんどくさいですよ。

回答No.2

Wendy02

こんにちは。

Excelなら、たぶん、それは、

QueryTables.Add か、それとも、Workbooks.OpenText Filename:=○○○

でしょうね。

補足

有り難うございます。
ファイル名を直接書くのではなく、「Application.FindFile」の様に
ボックスにファイル名を並べて、選択したいと考えています。

回答No.1

neKo_deux

Open "ファイル名" for Input As #1
Input #1, a, b, c, d, e
Close #1

Write#ステートメントで書き出した値やカンマ区切りなら問題ないハズ。

取得できない場合、
LineInputステートメントで１行まとめて読み込んで、スペースを検索して分割とか、文字列として１行まとめてセルに設定後にデータ区切りの処理でまとめて分割とか。

お礼

有り難うございます
シーケンシャルファイルの読み込みで行うのですね。
以前、ファイルオープンコマンドで、何か見た記憶が有った物ですから。