エクセル2000でのVBA作成してほしいです。

　エクセル2000でのVBA作成してほしいです。
　上記の通り、エクセルのVBAを作成して頂きたいです。
フォルダの中に約１４０個のcsv形式のファイルがあります。ファイル名は時間です。例えば、朝の６時００分１５秒の場合は、「０６００１５.csv」で、これが、五分置きのファイルで、１３９個あります。このファイルのB8～B263をエクセルのシート１のC11から、横に左詰めで貼り付けたいのです。今までは、エクセルで、開く→貼り付けたい所を選択→貼り付けでやっていたのですが。自分で、VBAについて勉強できればいいのですが、今まで、プログラミングを触ったことがないのと時間的余裕がなくて困っています。お力を貸して頂ければ幸いです。

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

sub macro1()

　dim myPath as string
　dim myFile as string
　dim i as integer

　myPath = "c:\folder\"　　’←ファイルの保存場所は適切に入れること
　myfile = dir(mypath & "*.csv")
　i = 3
　application.screenupdating = false
　do until myfile = ""
　　workbooks.open mypath & myfile
　　activesheet.range("B8:B263").copy destination:=thisworkbook.worksheets(1).cells(11, i)
　　application.displayalerts = false
　　activeworkbook.close false
　　application.displayalerts = true
　　i = i + 1
　　myfile = dir()
　loop
　application.screenupdating = true
end sub

などで。

この回答へのお礼

ありがとうございます。

お礼日時：2010/05/25 21:17