|
▼ichinose さん:
お返事ありがとうございます。
> Workbooks(NewBook).Worksheets(1).Cells(3,1)
> 'してたらどうでしょうか?
ごめんなさい。
NewBookが複数且つ事前にOPENする必要ありなので、
ブック名を特定する必要があったのです。
自分なりにも色々試してしましたが、
現在、以下の方法で動くことを確認しています。
(Officeのバージョンは '97を使用しています。)
Dim strPosition as String
strPosition = Application.ConvertFormula(引数記述略)
←R1C1形式をA1形式に変換
Workbooks("A.xls").Worksheets("Sample").Range("A1").Copy _
Workbooks(NewBook).Worksheets(1).Range(strPosition)
理由はわかりませんが、Rangeの部分の記述において
Range(A1形式) -> OK
Range(Cells(Row,Col)) -> NG
となりました。
どちらも同じように思えますが・・・。
|
|