Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


42848 / 76732 ←次へ | 前へ→

【38946】Re:転記について教えてください!
発言  T  - 06/6/15(木) 6:53 -

引用なし
パスワード
   ▼ESMEY さん:

これが使えます。いま小生が使っているコードです。
アレンジしてください。

Sub test3()

'Application.ScreenUpdating = False
Dim BK(1 To 5) As Workbook
Dim i  As Integer

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")

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(BK(i).Sheets(1).Cells(2, i), BK(i).Sheets(1).Cells(21, i)).Value
Next i
 
For i = 1 To 5
  BK(i).Close False: Set BK(i) = Nothing Next i
'Application.ScreenUpdating = True
End Sub

1 hits

【38943】転記について教えてください! ESMEY 06/6/14(水) 23:42 質問
【38944】Re:転記について教えてください! かみちゃん 06/6/14(水) 23:49 発言
【38946】Re:転記について教えてください! T 06/6/15(木) 6:53 発言
【39012】Re:転記について教えてください! ESMEY 06/6/15(木) 22:21 お礼

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