csv複数→それぞれで同じグラフ作成

同じデータ形式の複数のcsvファイルそれぞれについて同じグラフを作成したいのですが、今は

・一つずつcsvファイルを開く
・それぞれ手動でグラフを作成（ラベル等も手で編集）

といった極めて非効率な方法をとっています。
ほとんどexcelに触れたことがないので、他に方法がわかりません。

マクロでの自動生成や、グラフを作成するためのテンプレート？ファイルにcsvファイルをインポートするとグラフの表示も更新されるなんてことはどうやってやるのでしょうか？

ウェブ上を探し回ったのですが方法をみつけられませんでした。

No.1 ベストアンサー 回答者： imogasi 回答日時： 2007/10/29 10:26

エクセルのグラフ機能を使うのであれば、ＣＳＶファイルをエクセルに読み込まないと、使えないと思います。

○　ＣＳＶ－－＞エクセルーー＞グラフ
Ｘ　ＣＳＶ－－－－－－－－－＞グラフ
ーー
ですから３つのステップに分けて考えることです。
（１）ファイル名（ＣＳＶ）の指定方法。
Ａ．応答人手指定
Ｂ．シートにテーブル化
Ｃ．プログラムに組み込み（良くないが今回限りということで）
Ｄ。フォルダの中のＣＳＶファイル全部
（２）エクセルにインポート
（２）’グラフデータのセル範囲指定
（３）エクセルの挿入ーグラフ・・以下の操作
ーー
（３）はマクロの記録で判るーー＞これはデータ範囲以外は変えないという、この質問では仮定
ー
（２）’は列構成は変わらずと、この質問では仮定。
データの行数は
Sub test01()
d = Range("A65536").End(xlUp).Row
MsgBox d
End Sub
でよいかチェック。
対象は
Sub test01()
d = Range("A65536").End(xlUp).Row
MsgBox d
Range(Cells(1, "A"), Cells(d, "G")).Select
End Sub
で良いかチェック。
ーー
（１）は最終段階は、マクロの記録で
Sub Macro1()
Workbooks.Open Filename:= _
"C:\Documents and Settings\xxxx\My Documents\test8.csv"
End Sub
となるが、ファイル名を次々変えて、ほぼ同じグラフ作成ルーチンを実行するわけです。
ーー
残るのは、質問者の力に合わせて、（１）のＡ－Ｄのどのメニュを採用するか、コードはどうなるかです。
Ｂ，Ｃならやり方はわかるかな。
Ｄは「フォルダ　すべて　ファイル名　ＶＢＡ」でＷＥＢ照会したら
（87千件記事あり。ぴったりなのが第１ページに出る）
Ａは「GetOpenFilename」でＷＥＢ照会のこと。
ぴったりなのが第１ページに出る。
Sub test02()
fileToOpen = Application _
.GetOpenFilename("テキスト ファイル (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "選択されたファイル : " & fileToOpen
End If
End Sub

この回答へのお礼

ありがとうございます。
さっそく、挑戦してみます。

お礼日時：2007/11/07 21:05