Excel VBA質問箱 IV

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

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


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

7744 / 76736

←次へ　｜　前へ→


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

kanabun - 13/7/28(日) 22:43 -


	引用なし

	パスワード

▼じゃっかるさん： >>ここを、 > >　　'Bookごとの処理 >　　Dim cnt As Long: cnt = 1 >　　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) >　　　　　　　　　　.Cells(cnt, 1).Value = ws.Range("A1").Value >　　　　　　　　　　.Cells(cnt, 2).Value = ws.Range("A2").Value >　　　　　　　　End With >　　　　　　　　Set ws = Nothing >　　　　　　End If >　　　　　　.Close True >　　　　End With >　　Next > >と、こうしたらどうなります？訂正 OpenしたBookを Closeするところ、 >　　　　　　.Close True は、変更を保存する設定になってますが、今回はそんな必要ないので　　　　　　.Close False でよかったですね。