ExcelVBAのマクロを使ってテキストファイルの文字を読み込む

質問

お世話になります

表題のとおりなのですが、ExcelVBAのマクロを使ってテキストファイルの文字を読み込むマクロの書き方を探しています。
具体的には、ExcelVBAで作ったボタンを押すと、あるテキストファイル(TEST.txt)に書かれている文字列をExcelVBAで取得して、それをセルに表示させるものです。

VBA関連のサイトがあまり無く困っています、宜しくお願いします。

回答No.3

aieeen · ベストアンサー

おはようございます。
こんなのではだめでしょうか。

Private Sub CommandButton1_Click()
Dim myTxtFile As String
Dim myBuf(セルの行数) As String
Dim i As Integer, j As Integer

Application.ScreenUpdating = False

myTxtFile = ActiveWorkbook.Path & "\TEST.txt"

Worksheets("sheet名").Activate

Open myTxtFile For Input As #1

Do Until EOF(1)

Input #1, myBuf(1), myBuf(2), myBuf(3), myBuf(4)・・・・セルの行数分

i = i + 1
For j = 1 To セルの行数
Cells(i, j) = myBuf(j)
Next j
Loop

Close #1
MsgBox "TEST.TXTの読込み処理が完了しました。"

End Sub

セルの行数は実際のセルの行数+1のほうがうまくいきました。

回答No.6

maruru01

こんにちは。maruru01です。

回答はすでに出ていますので、参考サイトを紹介します。
（メーリングサイトも）

http://www.vbalab.net/
http://plaza14.mbn.or.jp/~sunago/
http://www.users.gr.jp/
http://birdcgi.zero.ad.jp/~zap50064/
http://homepage2.nifty.com/housaka/
http://www.excel7.com/
http://homepage1.nifty.com/kenzo30/index.htm

回答No.5

taknt

なお ＶＢＡに関しては、以下のサイトできけば ほぼ一発でしょう。

参考URL：

http://www.ae.wakwak.com/cgi-bin/sbox/~efc21/wwwlng.cgi

回答No.4

aieeen

”￥TEST.TXT”は￥なので同じフォルダー内を見ます。
C：￥・・・にすればTEXTの保存先を指定できます。

回答No.2

kenton

こんにちわ。

テキストファイルをExcelで開く方法はご存知ですよね？

この操作自体をマクロ記録で記録してみてはいかがでしょう？
その後、VBEで中身を確認・改編できますし、
テキストファイルの中身によっては、データの種類の指定（文字扱いなのか？それとも数値扱いなのか？）
もやる必要が出てくると思いますので。

実は僕も同じようなことで悩んでいたりもしますけど・・・(^_^;)

お礼

VBAってなかなかむずかしいんですよね
ありがとうございました

回答No.1

taknt

参考ＵＲＬを見てみてください。

参考URL：

http://www.ae.wakwak.com/cgi-bin/sbox/~efc21/wwwlng.cgi?print+200208/02080055.txt

お礼

ありがとうございます
ずばりのサイトだと思いました
勉強します。