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

お世話になります

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

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

No.3 ベストアンサー 回答者： aieeen 回答日時： 2002/12/04 09:30

おはようございます。

こんなのではだめでしょうか。

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 回答日時： 2002/12/04 12:05

こんにちは。

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 回答日時： 2002/12/04 09:35

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

参考URL：http://www.ae.wakwak.com/cgi-bin/sbox/~efc21/www …

No.4 回答者： aieeen 回答日時： 2002/12/04 09:34

”￥TEST.TXT”は￥なので同じフォルダー内を見ます。

C：￥・・・にすればTEXTの保存先を指定できます。

No.2 回答者： kenton 回答日時： 2002/12/04 09:24

こんにちわ。

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

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

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

この回答へのお礼

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

お礼日時：2002/12/04 09:49

No.1 回答者： taknt 回答日時： 2002/12/04 09:17

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

参考URL：http://www.ae.wakwak.com/cgi-bin/sbox/~efc21/www …

この回答へのお礼

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

お礼日時：2002/12/04 09:49