1つのファイルを選択後、
そのファイルを開いてある操作をし、閉じる。
その後自動的に、同一フォルダ内のファイルを開いて同様の操作をし、閉じる。
これをフォルダ内のファイル全てに対して行う、
というマクロを組みたいです。
例えば、
フォルダAに、File1.csv, File2.csv, File3.csv, File4.csv の4ファイルがある時、
File3.csvを選んで操作を実行(csvファイル内のセルA4の値を、マクロを実行したExcelファイルにコピー)。
実行完了後、File3.csvは閉じる。
続けて、File1,File2,File4についても、
開く→コピーする→閉じる、を繰り返す。
フォルダ内全てのファイルに対して実行したら終了。
ファイル名は、常にFile+数字.csvではありませんが、拡張子は常にCSVです。
素人考えでは、フォルダ内のファイルの数と名前を取得し、ループで回せばいいと思うのですが、
「フォルダ内のファイルの数と名前を取得」する関数でもあるのでしょうか?
他に何か楽な方法でもあれば、教えてください。
No.3ベストアンサー
- 回答日時:
Dir関数でやってみました。
このマクロを記述したエクセルのBOOKと同じフォルダ内のすべてのcsvファイルを開き、A4の値を取得します。
Sub test01()
Dim MyFile As String, MyPath As String
Dim i As Long
Dim wb As Object
MyPath = ThisWorkbook.Path & "\" '自分のパスを取得
MyFile = Dir(MyPath & "*.csv", vbNormal) 'パス内のcsvファイル
Do Until MyFile = "" '対象ファイルがなくなるまで
Set wb = Workbooks.Open(MyPath & "\" & MyFile) '選択したファイルを開く
i = i + 1
ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value = wb.Sheets(1).Range("A4").Value '転記
wb.Close (False) '選択したファイルを閉じる
MyFile = Dir '次のファイルを検索
Set wb = Nothing
Loop '繰り返し
End Sub
回答ありがとうございます。
>Workbooks.Open(MyPath & "\" & MyFile)
など、今まで知らなかった書き方を見ることができ、大変参考になります。
目的のマクロは、無事組むことができました。
No.2
- 回答日時:
FileSystemObjectを使うのであれば、こんな感じかな。
Microsoft Scripting Runtime を参照設定してください。
Public Sub Proc1()
Dim fso As New FileSystemObject
Dim fo As Folder
Dim fi As File
Dim wbk As Workbook
Set fo = fso.GetFolder("~フォルダ名~")
For Each fi In fo.Files
Set wbk = Workbooks.Open(fi.Name)
(中のロジックはご自分で組み立ててください)
Set wbk = Nothing
Next fi
Set fi = Nothing
Set fo = Nothing
Set fso = Nothing
End Sub
お役に立てれば幸いです。
回答ありがとうございます。
無事動作しました。
しましたが、挙げていただいたコードにはまだ私にはわからない部分もあるので、
今後調べていこうと思います。
No.1
- 回答日時:
DIR関数やFileSystemObjectなどいろいろありますが。
ブックマークしておくと良いサイトがあります。
いつも利用させてもらってる「OfficeTANAKA」さんのページ。サンプル満載です。
リンクフリーの記述があるので、リンク貼ります。
http://www.officetanaka.net/
ここらあたりか?
http://www.officetanaka.net/excel/vba/file/file0 …
回答ありがとうござます。
サンプルや解説のページはいくつかブックマークしておりましたが、
こちらは知りませんでした。
参考にさせていただきます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAでセルに入力したパ...
-
EXCELのVBAで画像を選んだ順に...
-
エクセル VBA
-
excelに貼り付けた数値が勝手に...
-
タスクバーのアプリ開閉を回避...
-
ハイパーリンクで前回値をひき...
-
ファイルを並び替えるときの「...
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
スクロールしてもボタンを常に...
-
PPTのコマンドボタンがクリック...
-
Excel:コマンドボタンの移動
-
コマンドボタンを押すたびに大...
-
エラーになってないのにVBA...
-
EXCELのセルへ、デジタル時計を...
-
エミュレータでジョイパットを...
-
Wordで「原稿用紙○枚」を換算す...
-
ワードからエクセルへ貼り付け...
-
押したボタンの位置取得(共通の...
-
エクセルVBA
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAでセルに入力したパ...
-
excelに貼り付けた数値が勝手に...
-
Teraマクロで日付ディレクトリ...
-
EXCELのVBAで画像を選んだ順に...
-
ファイルを並び替えるときの「...
-
ハイパーリンクで前回値をひき...
-
エディタで効率的な切り出し方法
-
VLOOKUP関数とネットワークに置...
-
エクセル 一括リンクの解除
-
PDF ファイルが開けません。
-
CSVで文字化けしてしまうのを直...
-
=CELL("filename")で取得したフ...
-
excel INDIRECT 他ファイル参照
-
エクセルからスキャナVBAで連動...
-
Excelでリンクを使用すると#N/A...
-
ミュージックファイルのファイ...
-
Excelのマクロを実行しても、エ...
-
スタートアップに2つのファイ...
-
エクセルVBAで指定フォルダ内の...
-
EXCELで複数のファイルから抽出
おすすめ情報