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

12 hits

【74572】フォルダ(サブフォルダ含)内ブックのデータ集計について じゃっかる 13/7/28(日) 16:18 質問
【74573】Re:フォルダ(サブフォルダ含)内ブックの... kanabun 13/7/28(日) 18:41 発言
【74574】Re:フォルダ(サブフォルダ含)内ブックの... じゃっかる 13/7/28(日) 20:31 発言
【74575】Re:フォルダ(サブフォルダ含)内ブックの... kanabun 13/7/28(日) 21:22 発言
【74576】Re:フォルダ(サブフォルダ含)内ブックの... kanabun 13/7/28(日) 21:32 発言
【74577】Re:フォルダ(サブフォルダ含)内ブックの... kanabun 13/7/28(日) 22:43 発言
【74578】Re:フォルダ(サブフォルダ含)内ブックの... じゃっかる 13/7/29(月) 10:55 質問
【74579】Re:フォルダ(サブフォルダ含)内ブックの... kanabun 13/7/29(月) 12:17 発言
【74580】Re:フォルダ(サブフォルダ含)内ブックの... じゃっかる 13/7/29(月) 14:48 お礼

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