Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


28070 / 76732 ←次へ | 前へ→

【53970】Re:[難題相談]フォルダ内の*.csvファイルを統合し、データをまとめる
お礼  cpdim  - 08/2/19(火) 9:54 -

引用なし
パスワード
   ▼かみちゃん さん:
こんにちは。cpdimです。

先日はどうもありがとうございました。

助言の通り一つ一つ勉強して行こうとおもっています。

まず、以下のようにしてフォルダー内の複数のcsvファイルから
abc_ee*_*.csvのファイルのファイル名だけを
現シートの4A行目から下に取り込むことはできましたが、
ファイル名ではなく、各csvファイルの特定セル、あるいは、特定範囲の値を
選択したセルに取り込むにはどのようにすればよいのでしょうか。

ご指導いただけますと幸いです。

Sub test()
  Dim f As String
  Dim s As String
 
  Dim i As Long
  
  f = ThisWorkbook.Path & "\abc_ee*_*.csv"
  i = 4
  s = Dir(f)
  Do While s <> ""
    Cells(i, 1) = s
    i = i + 1
    s = Dir
  Loop
End Sub


どうぞよろしくお願いいたします。

0 hits

【53960】[難題相談]フォルダ内の*.csvファイルを統合し、データをまとめる cpdim 08/2/18(月) 16:45 質問
【53962】Re:[難題相談]フォルダ内の*.csvファイルを... かみちゃん 08/2/18(月) 18:18 発言
【53963】Re:[難題相談]フォルダ内の*.csvファイルを... cpdim 08/2/18(月) 18:41 お礼
【53964】Re:[難題相談]フォルダ内の*.csvファイルを... かみちゃん 08/2/18(月) 18:57 発言
【53970】Re:[難題相談]フォルダ内の*.csvファイルを... cpdim 08/2/19(火) 9:54 お礼
【53971】Re:[難題相談]フォルダ内の*.csvファイルを... かみちゃん 08/2/19(火) 10:00 発言
【53978】Re:[難題相談]フォルダ内の*.csvファイルを... cpdim 08/2/19(火) 14:48 お礼
【53993】Re:[難題相談]フォルダ内の*.csvファイルを... かみちゃん 08/2/19(火) 17:27 発言
【53996】Re:[難題相談]フォルダ内の*.csvファイルを... cpdim 08/2/19(火) 18:00 質問
【54003】Re:[難題相談]フォルダ内の*.csvファイルを... neptune 08/2/19(火) 23:13 発言
【54007】解決しました。どうもありがとうございまし... cpdim1 08/2/20(水) 0:30 お礼
【53972】Re:[難題相談]フォルダ内の*.csvファイルを... VBWASURETA 08/2/19(火) 10:06 回答
【53973】Re:[難題相談]フォルダ内の*.csvファイルを... VBWASURETA 08/2/19(火) 10:12 発言

28070 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free