|
こんにちは。
VBA初心者なのですが、Book間のコピー&貼り付けができなくて
困っています。
「仕入先別VA******.xls」(←*印には年月が入ります。これは毎月変わっていきます。)というファイルと「原価低減データ.xls」という2つのファイルがデスクトップ上に
存在するとして、既に「原価低減データ.xls」を開いている状態から
新たに、「仕入先別VA******.xls」を開いて、「CK302.」というシートの内容をコピーして
「原価低減データ.xls」の「CK30」というシートに貼り付けるというコードを
書きたいのですが、途中で「インデックスが有効範囲にありません」という
エラーメッセージがでてしまいます。
これは何が原因なのでしょうか?
もしわかれば教えていただきたいです。
よろしくお願いします。
今、書いているコードは以下の通りです。
---------------------------------------------------------------------------
Sub 仕入先別VA()
'ファイルを開く
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\AP641\デスクトップ\仕入先別VA******.xls"
'コピー&貼り付け
Application.Windows("原価低減データ.xls").Activate
Sheets("CK302.").Select
Cells.Select
Selection.Copy
Application.Windows("仕入先別VA******.xls").Activate ←ここでエラーがでます。
Sheets("CK30").Select
Cells.Select
ActiveSheet.Paste
End Sub
---------------------------------------------------------------------------
|
|