excelのマクロでファイル一覧取得，グラフ作成

以下のような作業をするために，EXCELのマクロを組もうと考えています．

指定したフォルダ以下のCSVファイルを取得（サブフォルダも含む）
　↓
見つけたCSVファイルをエクセルで開き，値が含まれている範囲を選択してグラフを作成
　↓
"*.xls"として保存

エクセルのマクロは初めてなので，どうコーディングすればいいか全くわからず困っています．
どなたかご教示くだされば幸いです．
よろしくお願いいたします．

No.1 ベストアンサー 回答者： keithin 回答日時： 2010/03/30 22:25

簡単なサンプルです。

参考にして，目的に合わせて自力で修正してご利用ください。
判らない，知らない命令は，逐一VBEのコード上でF1キーを押してリファレンスを熟読してください。


Sub macro1()
　Dim i
　With Application.FileSearch
　　.NewSearch
　　.Filename = "*.csv"
　　.LookIn = "C:\test"
　　.SearchSubFolders = True
　　.FileType = msoFileTypeAllFiles
　　.Execute

　　For i = 1 To .FoundFiles.Count
　
　　　Workbooks.Open Filename:=.FoundFiles(i)
　　　With ActiveWorkbook.Worksheets(1).ChartObjects.Add(100, 100, 300, 300).Chart
　　　　.ChartType = xlLine
　　　　.SetSourceData Source:=ActiveSheet.UsedRange, PlotBy:=xlColumns
　　　End With

　　　ActiveWorkbook.SaveAs Filename:=Application.Substitute(.FoundFiles(i), ".csv", ".xls"), FileFormat:=xlNormal
　　　ActiveWorkbook.Close False

　　Next i
　End With

End Sub

この回答へのお礼

ありがとうございました。おかげ様で無事，プログラムを完成させることができました。

お礼日時：2010/04/01 01:09