AccessVBAで、Excelのシートを削除したいです。
AccessのクエリをExcelの指定したシートにエクスポートする処理をしたいのですが、
同じ名前のシートが存在すると
「テーブル○○○は既に存在しています」
とゆうエラーになってしまいます。
上書きしてくれれば良いのですが、上書きされないのですよね?

いろいろ調べたのですが、ExcelVBAでシートを削除する方法しか見つけることが出来ませんでした。

エクスポートはODAを使用せずに、
SELECT * INTO ~文で実行しています。

初心者です。よろしくお願いいたします。

A 回答 (3件)

サンプルが必要なら 補足してください

    • good
    • 0

もしも 逆に Excelで Accessのデータをインポートできるなら


その方法でもいいでしょうか
決まったシートにエクスポートするなら そのあとでExcelを開くと思います
それなら Accessから出す のではなく Excelにボタンを付けて
毎回 同じ場所に Accessのデータを取り出す という機能をつければ
Excelの処理がスムーズにできると思います

シートのボタンでスタート 前回データを消去して インポート
http://www.happy2-island.com/vbs/cafe02/capter00 …
    • good
    • 0
この回答へのお礼

ありがとうございます。
その逆の発想はすごいですね。思いつきませんでした。
業務のためのものでしたので、
Excelを基準にしていいものかどうかは別問題ですが、
こうゆう考え方もあるんだなと関心しました。
この方法でも試してみたいと思います。
驚きです。

お礼日時:2007/11/14 09:46

>ExcelVBAでシートを削除する方法しか見つけることが出来ませんでした


>初心者です,
をエクセルVBあの初心者とすれば、鉄則は「マクロの記録」が使えないか、考えることです。
Sub Macro1()
Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.Delete
End Sub
ーー
Sub test01()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
MsgBox sh.Name
Next
End Sub
でSheet2が消えたことは間違いない。
ーー
削除可か警告が出ます。
出さないようにするため
Sub test02()
Application.DisplayAlerts = False
Sheets("Sheet3").Select 'Sheet3に変えた
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub
これで出ません。用意はできなした。
ーー
初心者のうちは、一気にACCESSVBAとの連携は余りお勧めできませんが(エクセルVBAでも上級の課題です。)
ACCESSのモジュールに
Sub test04()
Dim exapp As Object
Dim wb As Object
Set exapp = CreateObject("Excel.Application")
exapp.Visible = True
myFLName = "C:\Documents and Settings\xxxx\My Documents\" & "Book1.xls"
Set wb = exapp.workbooks.Open(myFLName)
exapp.DisplayAlerts = False
wb.Sheets("Sheet4").Delete
exapp.Save
exapp.DisplayAlerts = True
Set exapp = Nothing
Set wb = Nothing
End Sub
この辺はむつかしいです。
何か起こるとエクセルVBAを知り抜いていないと途方にくれる。
エクセル側だけで実行できるやり方から始めるべきです。

この回答への補足

ありがとうございます。
ExcelVBAは多少さわったことがあります。
でも多少です…
ExcelVBAからExcelをいじることは調べたら結構出てくるので、
わかりやすかったですが、
AccessからExcelを見るのが本当に難しいです。
業務で使うため、ゆっくり勉強していられなくて、
焦っていました。

補足日時:2007/11/14 09:38
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

今、見られている記事はコレ!

  • 縦書きと横書きはどちらが読みやすい?

    普段何気なく読んでいる文章ですが、縦書きか横書きか、意識したことはありますか?制作側としては読み手はどちらの方が読みやすいと思うかはとても大きな問題です。教えて!gooには、 「『横書き』と『縦書き』、...

  • 昭和の日ってどういう日?

    ゴールデンウィーク初日の4月29日は「昭和の日」です。今や平成生まれの人も多い時代ですが、「なぜ昭和の日があるの?」という疑問をもったことはありませんか?和暦を挙げるのなら、大正の日、明治の日、平成の日...

  • Excelの意外な使い方とは?

    会社のパソコンに必ず入っている、と言っても過言ではない、Office系ソフトの「Word」と「Excel」。PCを使う職場にいた方なら、一度は触ったことがあるかと思います。Wordは仕事以外に使う方法がすぐ浮かびそうです...

  • エルフ田さん:第70話「絵と向き合うということ」

    エルフ(ファンタジーとかに出てくる長寿の種族)の「エルフ田」と、ただの人間である女子社員2人による日常ギャグ。エルフならではのズレたツッコミでバシバシ人間界の話題を斬っていきます。

  • たまランチ:第46話「エビチリ」

    外ランチを愛してやまない元気な女子社員・たまちゃん(26)。オシャレなお店より「安くておいしい」お店が大好き! そんな女子力低めなたまちゃんの、色気より食い気な日々をつづります。

おしトピ編集部からのゆる~い質問を出題中

お題をもっとみる

このQ&Aを見た人が検索しているワード

コンピュータやスピーカーなどのオーディオ、スマートフォンをはじめとした携帯電話とそのサービスに関する質問が充実。急なトラブルの対策案もここで得られるかもしれません。

このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ