| |
こんにちは。
VBA初心者なのですが、Book間のコピー＆貼り付けができなくて
困っています。
｢仕入先別VA******.xls｣（←*印には年月が入ります。これは毎月変わっていきます。）というファイルと｢原価低減データ.xls｣という２つのファイルがデスクトップ上に
存在するとして、既に｢原価低減データ.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
---------------------------------------------------------------------------
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
