【アクセス97】エクセルのシートを変更したい。。

質問

アクセスからエクセルにデータを書き込んでいます。（VBAで）
そこで、エクセルのシート名を「sheet1」から「aaaaa」に変更したいのです。
どのようにしたらいいでしょうか。
ちなみに以前にアクセスで質問し、そのときに回答をいただいたものに追加するつもりです。。。
質問NO280074です。。
よろしくお願いします。

回答No.2

BlueRay · ベストアンサー

質問NO280074からの引用に追加しました。コレでわかりますか？

　　'新規Bookを作る
　　Set myBook = myExcel.Workbooks.Add

　　'シート名の変更
　　myBook.Sheets("Sheet1").Name = "aaaaa"

　　'データベース
　　Set db = CurrentDb

お礼

ありがとうございました。わかりました！！！
なんしか、初心者なものでぜーーーーーんぜんVBAがわからないんです。
〆切は近いし・・・。
ありがとうございました。(゜゜)(。。)ペコッ

回答No.1

BlueRay

Sheets("Sheet1").Name = "aaaaa"

補足

回答をいただいたものを追加しても
コンパイルエラーになりますが・・・。
_(._.)_　お願いします