Excel VBA質問箱 IV

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

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


50560 / 76738 ←次へ | 前へ→

【31064】異なる複数のブックのシート1と2からのデータの貼り付け
質問  PI  - 05/11/10(木) 22:50 -

引用なし
パスワード
   5個のブックのシート1と2からセルのデータを
一枚の「仕上げシート」に貼り付けたいのですが・・・

これに関して2点質問があります。
1.もう少しシンプルなコードに仕上げたい
2.複数のセルデータの貼りこみの仕方(コードの中の⇒です)が上手く行きません
 対応の方法
この2件について教えてください。

現在のコードは

 Dim 一枚仕上げ As Workbook
  Dim A111 As Workbook
  Dim A222 As Workbook
  Dim A333 As Workbook
  Dim A444 As Workbook
  Dim A555 As Workbook
  
  On Error Resume Next
  Set 一枚仕上げ = ThisWorkbook
  Set A111 = Workbooks.Open(ThisWorkbook.Path & "\A111.xls")
  Set A222 = Workbooks.Open(ThisWorkbook.Path & "\A222.xls")
  Set A333 = Workbooks.Open(ThisWorkbook.Path & "\A333.xls")
  Set A444 = Workbooks.Open(ThisWorkbook.Path & "\A444.xls")
  Set A555 = Workbooks.Open(ThisWorkbook.Path & "\A555.xls")
       
   With 一枚仕上げ.Sheets(1)
    .Range("B5").Value = A111.Sheets(1).Range("A1:B1")
'質問2.⇒上の行B5にBookA111のRange("A1:B1")を貼り付ける方法
'下の4行も複数のセルデータをB列に貼り付けたいのですが、現在は出来ていません。
    .Range("B6").Value = A222.Sheets(1).Range("A1")
    .Range("B7").Value = A333.Sheets(1).Range("A1")
    .Range("B8").Value = A444.Sheets(1).Range("A1")
    .Range("B9").Value = A555.Sheets(1).Range("A1")
   
    .Range("D5").Value = A111.Sheets(2).Range("A1")
    .Range("D6").Value = A222.Sheets(2).Range("A1")
    .Range("D7").Value = A333.Sheets(2).Range("A1")
    .Range("D8").Value = A444.Sheets(2).Range("A1")
    .Range("D9").Value = A555.Sheets(2).Range("A1")
   End With
    
  A111.Close False
  A222.Close False
  A333.Close False
  A444.Close False
  A555.Close False
  
  Set A111 = Nothing
  Set A222 = Nothing
  Set A333 = Nothing
  Set A444 = Nothing
  Set A555 = Nothing
  On Error GoTo 0
  
以上です。宜しくお願いします。
0 hits

【31064】異なる複数のブックのシート1と2からのデータの貼り付け PI 05/11/10(木) 22:50 質問
【31071】Re:異なる複数のブックのシート1と2から... Kein 05/11/11(金) 11:46 発言
【31115】Re:異なる複数のブックのシート1と2から... PI 05/11/11(金) 20:28 お礼
【31119】Re:異なる複数のブックのシート1と2から... Kein 05/11/11(金) 21:01 回答
【31134】Re:異なる複数のブックのシート1と2から... PI 05/11/11(金) 23:38 質問
【31136】Re:異なる複数のブックのシート1と2から... こたつねこ 05/11/12(土) 1:05 回答
【31137】Re:異なる複数のブックのシート1と2から... PI 05/11/12(土) 7:15 お礼
【31139】Re:異なる複数のブックのシート1と2から... こたつねこ 05/11/12(土) 8:34 発言
【31140】Re:異なる複数のブックのシート1と2から... PI 05/11/12(土) 10:06 お礼
【31214】Re:異なる複数のブックのシート1と2から... PI 05/11/14(月) 20:09 質問
【31215】Re:異なる複数のブックのシート1と2か... ponpon 05/11/14(月) 22:11 発言
【31216】Re:異なる複数のブックのシート1と2から... こたつねこ 05/11/15(火) 0:12 発言
【31219】Re:異なる複数のブックのシート1と2から... PI 05/11/15(火) 7:02 質問
【31225】Re:異なる複数のブックのシート1と2から... こたつねこ 05/11/15(火) 10:41 回答
【31261】Re:異なる複数のブックのシート1と2から... PI 05/11/15(火) 18:28 お礼

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