|
◆ハチ様
言葉足らずで申し訳ございません。
>提示されているコードを実行するとどうなって、
>どこの部分がわからないのでしょうか?
提示コードを実行しますと、以下の通りの実行結果になります。
【P情報A.xls】と【P情報BBB.xls】の[プリンタ]シートA1〜C1を
【現在開いているファイル.xls】[プリンタ全情報]シートA1〜C1に1レコードづつ展開します。
--提示コードの実行結果---------------------------------------------
【P情報A.xls】
[プリンタ]シート
A B C D E F
1 |コード1 コード2 記号 項目1 項目2 項目3
2 |A001 A11 C1 K11 K21 K31
3 |A002 A12 C2 K12 K22 K31
4 |A003 A13 C3 K13 K23 K33
5 |A004 A14 C4 K14 K24 K34
6 |A005 A15 C5 K15 K25 K35
【P情報BBB.xls】
[プリンタ]シート
A B C D E F
1 |コード1 コード2 記号 項目1 項目2 項目3
2 |B001 B11 F1 Z11 Z21 Z31
3 |B002 B12 F2 Z12 Z22 Z31
4 |B003 B13 F3 Z13 Z23 Z33
5 |B004 B14 F4 Z14 Z24 Z34
6 |B005 B15 F5 Z15 Z25 Z35
-----------------------------------------------
【現在開いているファイル.xls】
[プリンタ全情報]シート
A B C D
1 |項目1 項目2 項目3 項目3
2 |A001 A11 C1 ←【P情報A.xls】の1レコード目情報
3 |A002 A12 C2 ←【P情報A.xls】の2レコード目情報
4 |A003 A13 C3 ←【P情報A.xls】の3レコード目情報
5 |A004 A14 C4 ←【P情報A.xls】の4レコード目情報
6 |A005 A15 C5 ←【P情報A.xls】の5レコード目情報
7 |B001 B11 F1 ←【P情報BBB.xls】の1レコード目情報
8 |B002 B12 F2 ←【P情報BBB.xls】の2レコード目情報
9 |B003 B13 F3 ←【P情報BBB.xls】の3レコード目情報
10|B004 B14 F4 ←【P情報BBB.xls】の4レコード目情報
11|B005 B15 F5 ←【P情報BBB.xls】の5レコード目情報
-------------------------------------------------------
>
>パッと見で。
>
>> With myWB.Sheets("プリンタ")
>> .Range("A1", .Range("C65536").End(xlUp)).Copy _
>> ThisWorkbook.Sheets("プリンタ全情報").Range("A65536").End(xlUp).Offset(1)
>> End With
>
>を
>
>> <設定条件>
>> 1.P情報*.xlsの B2セル + C2セルを「プリンタ全情報」A2セルに設定
>> 2.P情報*.xlsの D4セルを「プリンタ全情報」B2セルに設定
>> 3.P情報*.xlsの D5セルを「プリンタ全情報」C2セルに設定
>> 4.P情報*.xlsの D6セルを「プリンタ全情報」E2セルに設定
>
>に書き直せば良さそうですね。
ご指摘の通りです。
上記のコードを<設定条件>のコードに変更する事ができません。
ご教授頂けますでしょうか。
それでは失礼致します。
|
|