Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7747 / 76734

←次へ　｜　前へ→


	【74572】フォルダ（サブフォルダ含）内ブックのデータ集計について

じゃっかる - 13/7/28(日) 16:18 -


	引用なし

	パスワード

VBA初心者です。
フォルダ内（サブフォルダ含む）のブックの特定シートの特定セル（複数）を抽出して、別ブックにて集計を行いたいです。
自分なりに調べまして以下のように組んでみましたが、サブフォルダからの抽出ができません。
ご教授願います。

Sub 練習01()

Dim FName As String
Dim FPath As String
Dim cnt As Integer

'画面更新オフ
Application.ScreenUpdating = False
'累積データがある列のデータ下端を取得
cnt = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

FPath = "C:\Documents and Settings\PC名\デスクトップ\練習用データ" \'対象フォルダのパス
ChDir FPath
FName = Dir("*.xls")

Do While FName <> ""
Workbooks.Open FName

ThisWorkbook.Sheets(1).Cells(cnt, 1) = Sheets("1枚目").Range("a1").Value
ThisWorkbook.Sheets(1).Cells(cnt, 2) = Sheets("1枚目").Range("a2").Value

cnt = cnt + 1

ActiveWorkbook.Close
FName = Dir()
Loop

'画面更新オン
Application.ScreenUpdating = True

3 hits

▼

【74572】フォルダ（サブフォルダ含）内ブックのデータ集計について じゃっかる 13/7/28(日) 16:18

≪