ACCESS EXCELシートのコピー
ACCESSでEXCELシートのコピーを教えてください。
ブックに原本というシートがあり、それを先頭にCOPYして
シート名を店舗名にしようと思っています。
原本が原本(2)にCOPYはできるのですが、名前の変更が
出来ません。
原本(2)の(2)がまずいのか、”インデックスが有効の範囲にない”
でエラーになります。
COPYする時に、直接、名前を指定出来るならその方がありがた
いのですが、何か方法はありませんか?
EXCELブックOPENして、店舗マスタを読みながらCOPYするようにしています。
xlsobj_.sheets("原本").Copy before:=xlsobj_.sheets("原本")
xlsobj_.sheets("原本(2)").NAME = 店舗名
単純に原本と言うシートを10個程度(店舗が10店舗ぐらいあります)
COPYしてそれぞれのシート名を店舗名にしたいだけです。
宜しくお願い致します。
お礼
ご指摘のようにチェック入っていませんでした。 入れたら出来るようになりました。 解決有り難うございました。