[リストへもどる]
一括表示
投稿時間：2002/12/16(Mon) 17:09
投稿者名：異邦
Ｅメール：
ＵＲＬ　：
タイトル：エクセルシートのコピー
エクセルシートの雛形を新しいブックにＶＢからコピーしたいのですが
下記のように書いたところ一行目のセレクトの所で「インデックスが有効範囲にありません」というエラーが出ます。
何が悪いのでしょう？

  　　　kidoulbook1.Sheets(Array("1部ＸＸ部長", "添付別紙 (1部)")).Select
        kidoulbook1.Sheets(Array("1部ＸＸ部長", "添付別紙 (1部)")).Copy
　　　  Set kidoulsheet1 = kidoulbook1.Worksheets("1部ＸＸ部長") 'シート名1部ＸＸ部長をアクティブ

また、このままだと雛形、新しいブック両方に書き込まれてしまうと思うので。
雛形は閉じてしまいたいのですが、両方ともkidoulbook1なのでどうやって閉じていいかわかりません。
どうすればよいのでしょう？
雛形をコピーするので良い方法があったら教えてください、お願いいたします。

投稿時間：2002/12/16(Mon) 17:39
投稿者名：これ
ＵＲＬ　：
タイトル：Re: エクセルシートのコピー
> 雛形をコピーするので良い方法があったら教えてください、お願いいたします。

こんにちは。
テンプレートファイル（ＸＬＴ）なんていかがでしょうか？
Excelオブジェクト.WorkBooks.Add(テンプレートファイル)なら
元のファイルは保護されますよ。

投稿時間：2002/12/16(Mon) 20:42
投稿者名：異邦
Ｅメール：
ＵＲＬ　：
タイトル：ありがとうございます
> > 雛形をコピーするので良い方法があったら教えてください、お願いいたします。
>
> こんにちは。
> テンプレートファイル（ＸＬＴ）なんていかがでしょうか？
> Excelオブジェクト.WorkBooks.Add(テンプレートファイル)なら
> 元のファイルは保護されますよ。

ありがとうございます！
試してみます！

投稿時間：2002/12/17(Tue) 12:15
投稿者名：異邦
Ｅメール：
ＵＲＬ　：
タイトル：できました！
ド胆抜かれるくらい簡単にできました！
本当、ありがとうございます！
私も教えて上げれるくらいになるように頑張っちゃいます！

（・▽・）＜おかーさん！雛形のコピーできたよー！