Excel VBA質問箱 IV

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

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


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

7740 / 76734

←次へ　｜　前へ→


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

kanabun - 13/7/29(月) 12:17 -


	引用なし

	パスワード

▼じゃっかるさん： > 抽出元AブックのデータもB、C・・・ブックのデータも、出力先の同じセルに出力され、次々に上書きされているようです。 >どこかにcnt=cnt+1的なコードを入れないといけないと思うですが失礼。修正時、忘れてました m(_ _)m >　 'Bookごとの処理　　Dim cnt As Long　 '◆ここを修正 >　　Dim book >　　Dim ws As Worksheet >　 >　　For Each book In FoundFiles >　　　　With Workbooks.Open(book) >　　　　　　On Error Resume Next >　　　　　　Set ws = .Worksheets("1枚目") >　　　　　　On Error GoTo 0 >　　　　　　If ws Is Nothing Then >　　　　　　　　MsgBox "このBookには指定シートがありません" >　　　　　　Else >　　　　　　　　With ThisWorkbook.Sheets(1) 　　　　　　　　　　　cnt = cnt + 1　　　　　’◆一行追加 >　　　　　　　　　　.Cells(cnt, 1).Value = ws.Range("At1").Value >　　　　　　　　　　.Cells(cnt, 2).Value = ws.Range("g8").Value >　　　　　　　　End With >　　　　　　　　Set ws = Nothing >　　　　　　End If >　　　　　　.Close False >　　　　End With >　　Next >　　MsgBox "まとめ処理終了", , myFolder >End Sub