|
今晩は。
こたつねこ さんには、色々とご指導いただき、理解できたつもりでおりますが。
また、質問させていただきます。
下記のコードで、「異なる複数のブックからデータを張り付け」ようと
したのですが、9行目で
実行時エラー91
「オブジェクトの変数またはWithブロックの変数が設定されていません。」
のエラーメッセージが出ます。色々と考えて、コードの書き換えを試みましたが
対処方法がつかめません。分かりましたら、教えてください。
Sub test3()
Dim BK(1 To 5) As Workbook
Dim i As Integer
Set BK1 = Workbooks.Open(ThisWorkbook.Path & "\Book1.xls")
Set BK2 = Workbooks.Open(ThisWorkbook.Path & "\Book2.xls")
Set BK3 = Workbooks.Open(ThisWorkbook.Path & "\Book3.xls")
Set BK4 = Workbooks.Open(ThisWorkbook.Path & "\Book4.xls")
Set BK5 = Workbooks.Open(ThisWorkbook.Path & "\Book5.xls")
For i = 1 To UBound(BK, 1)
With ThisWorkbook.Sheets(1)
.Range(.Cells(5, i + 1), .Cells(24, i + 1)).Value = _
BK(i).Sheets(1).Range(Cells(2, i), Cells(24, i)).Value
End With
Next i
For i = 1 To 5
BK(i).Close False: Set BK(i) = Nothing
Next i
End Sub
|
|