投稿日 | : 2002/12/16(Mon) 17:09 |
投稿者 | : 異邦 |
Eメール | : |
URL | : |
タイトル | : エクセルシートのコピー |
エクセルシートの雛形を新しいブックにVBからコピーしたいのですが
下記のように書いたところ一行目のセレクトの所で「インデックスが有効範囲にありません」というエラーが出ます。
何が悪いのでしょう?
kidoulbook1.Sheets(Array("1部XX部長", "添付別紙 (1部)")).Select
kidoulbook1.Sheets(Array("1部XX部長", "添付別紙 (1部)")).Copy
Set kidoulsheet1 = kidoulbook1.Worksheets("1部XX部長") 'シート名1部XX部長をアクティブ
また、このままだと雛形、新しいブック両方に書き込まれてしまうと思うので。
雛形は閉じてしまいたいのですが、両方ともkidoulbook1なのでどうやって閉じていいかわかりません。
どうすればよいのでしょう?
雛形をコピーするので良い方法があったら教えてください、お願いいたします。