こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

投稿日時 - 2010-05-25 19:54:22

QNo.5921431

すぐに回答ほしいです

質問者が選んだベストアンサー

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 20:22:09

お礼

ありがとうございます。

投稿日時 - 2010-05-25 21:17:35

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問