|
こんばんは。
横から失礼します。
>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")
を
Set BK(1) = Workbooks.Open(ThisWorkbook.Path & "\Book1.xls")
Set BK(2) = Workbooks.Open(ThisWorkbook.Path & "\Book2.xls")
Set BK(3) = Workbooks.Open(ThisWorkbook.Path & "\Book3.xls")
Set BK(4) = Workbooks.Open(ThisWorkbook.Path & "\Book4.xls")
Set BK(5) = Workbooks.Open(ThisWorkbook.Path & "\Book5.xls")
に、しないと配列にならないからじゃないかなー。
違ったらごめんね。
|
|