タブ区切りのテキストファイルをExcelに取り込むマクロを作成しています。
取り込み処理まではできましたが、タブ区切りをセルごとに分けて取り込むことができません。
添付資料の通り、1行の文字が連結した状態で取り込まれます。
「split関数でタブ区切りをして取り込む」までは検討がついているのですが、実際のコードが組めません。splitでなくても、どなたか解決策をご存知の方いらっしゃいましたら教えていただけますでしょうか。
■条件
・テキストファイルの列数、行数はファイルによって変動する。
・ファイルパス・ファイル名を指定せず、ダイアログでユーザに指定させる。
■現在作成中のコード
Sub a()
Dim buf As String, n As Long
n = 1
Dim txtName As String
txtName = Application.GetOpenFilename("テキストファイル,*.txt")
If txtName <> "False" Then
Open txtName For Input As #1
End If
Do Until EOF(1)
Line Input #1, buf
Cells(n, 1) = buf
n = n + 1
Loop
Close #1
End Sub
No.1ベストアンサー
- 回答日時:
どうぞ
Sub a()
Dim buf As String, n As Long
n = 1
Dim txtName As String
txtName = Application.GetOpenFilename("テキストファイル,*.txt")
If txtName <> "False" Then
Open txtName For Input As #1
End If
Do Until EOF(1)
Line Input #1, buf
Dim aryLine
aryLine = Split(buf, vbTab)
Dim nCol As Long
For nCol = LBound(aryLine) To UBound(aryLine)
Cells(n, nCol + 1) = aryLine(nCol)
Next
n = n + 1
Loop
Close #1
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELのVBAでEOFを誤認識
-
【VBA】テキストファイルを指定...
-
複数のテキストファイル内の複...
-
VBSを使用し、指定フォルダ内の...
-
VBAでテキストファイルを最後ま...
-
アスキー、バイナリーの違い、...
-
unixのシェルスクリプトで特定...
-
VBで複数のテキストを結合する...
-
uwscでExcelに自動記入
-
ファイルのアクセス回数について
-
エクセルvbaでdocuworksprinter...
-
エクセルのプロパティーでセキ...
-
カンマ区切りのCSVファイルから...
-
エクセルで複数のコメントのサ...
-
[エクセル]コピーするとオブジ...
-
Excel 相対パス
-
Excelのハイパーリンクについて...
-
ExcelブックをGoogleスプレッド...
-
frxファイルの役目
-
Vba初心者です。下記のコード助...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VBA】テキストファイルを指定...
-
EXCELのVBAでEOFを誤認識
-
同一フォルダにある複数のテキ...
-
アスキー、バイナリーの違い、...
-
複数のテキストファイル内の複...
-
uwscでExcelに自動記入
-
VBscript
-
VBScript(vbs)での行の取得につ...
-
VBAでテキストファイルを最後ま...
-
Excelにて、フォルダ内のTextフ...
-
テキストファイルの最終行を消...
-
VBSを使用し、指定フォルダ内の...
-
【VBA】テキストファイルの内容...
-
コンボボックスのリストに、テ...
-
スペース区切りのテキストファ...
-
Java バブルソート
-
データ件数の表示について
-
unixのシェルスクリプトで特定...
-
VBAでテキストファイルの件...
-
VBA、値のずらし計算
おすすめ情報