|
▼じゃっかる さん:
>>ここを、
>
> '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
でよかったですね。
|
|