Excel VBA質問箱 IV

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

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


42851 / 76732 ←次へ | 前へ→

【38943】転記について教えてください!
質問  ESMEY  - 06/6/14(水) 23:42 -

引用なし
パスワード
   ファイルA,sheet("リスト"),range("G33","H15","I18")
ファイルB,sheet("リスト"),range("G33","H15","I18")
ファイルC,sheet("リスト"),range("G33","H15","I18")
ファイルD,sheet("リスト"),range("G33","H15","I18")

     ↓↓↓
[ファイルX]
     A         B        C
1 ファイルAのG33値,ファイルAのH15値,ファイルAのI18値
2 ファイルBのG33値,ファイルBのH15値,ファイルBのI18値
3 ファイルCのG33値,ファイルCのH15値,ファイルCのI18値
4 ファイルDのG33値,ファイルDのH15値,ファイルDのI18値


ファイルA〜Dの4ファイルから3つのセル値を抽出し、ファイルXという新しいブックにまとめて転記したいのですが、下記の型を4回書く方法しかできませんでした。(ファイルA〜Dの中のひとつファイルAを書いてみましたが・・・)これをひとつのSubにまとめることはできるのでしょうか?教えてください。よろしくお願いします。

Sub 転記する()
 Dim ブック as Workbook
 Application.EnableAEvents=False
 Set ブック =Workbooks.Open(ファイルA)
 ThisWorkbook.Worksheets(1).Range("A1")=_
   ブック.Worksheets("リスト").Range("G33").Value
 ThisWorkbook.Worksheets(1).Range("B1")=_
   ブック.Worksheets("リスト").Range("H15").Value
 ThisWorkbook.Worksheets(1).Range("C1")=_
   ブック.Worksheets("リスト").Range("I18").Value
 Application.EnableEvents=True
End Sub

0 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 お礼

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