|
▼じゃっかる さん:
> 抽出元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
|
|