ACCESSからEXCELSHeetを削除する

Question

下記のようにしてみましたが 「 Q909_現品票作成一覧」このsheetが存在しないかどうか確認したいのですがERRORになってしまいます

　ご指導お願いします  

　　　 Set rs1 = db.OpenRecordset(exlobj.ActiveWorkbook.Sheets("Q909_現品票作成一覧"))

        If rs1.RecordCount > 0 Then

           exlobj.ActiveWorkbook.Sheets("Q909_現品票作成一覧").Select

           ActiveWindow.SelectedSheets.Delete

         End If

Answer 1

シートの存在確認（と削除）が目的であれば、Excel のオブジェクトを直接操作する方が分かりやすいと思います

。

Sub DeleteSheet()

'このコードを走らせる前に Excel Object Library を参照設定してください

Dim excelApp As Excel.Application

Set excelApp = New Excel.Application

Dim filePath As String

filePath = "C:\目的のファイル.xlsx"

Dim book As Excel.Workbook

Set book = excelApp.Workbooks.Open(filePath)

Dim sheetExist As Boolean

sheetExist = False

Dim sheetName As String

sheetName = "Q909_現品票作成一覧"

Dim sheet As Excel.Worksheet

For Each sheet In book.Sheets

    If sheet.Name = sheetName Then

        sheetExist = True

    End If

Next sheet

If sheetExist Then

    Debug.Print "シートが存在する"

    sheet = book.Sheets(sheetName)

    sheet.Delete

    book.Save

Else

    Debug.Print "シートが存在しない"

End If

Set sheet = Nothing

Set book = Nothing

excelApp.Quit: Set excelApp = Nothing

End Sub

いかがでしょうか。

---

上本亮介 (ue) @ わんくま同盟, Microsoft MVP for Development Platforms - VSTO

Answer 2

ue さん、ご回答ありがとうございます。

an0324do さん、こんにちは。

Answersをご利用いただきまして、ありがとうございます。

投稿いただいてからだいぶお時間が経過してしまっていますが、問題は解決されましたか。

ue さんからいただいたアドバイスをご参考に、ぜひお試しくださいね。

こちらの情報について、同様の情報をお探しの他の方にも参考にしていただけるよう[回答としてマーク]　をさせていただきました。

[回答としてマーク]は取り消すこともできますので、

引き続き質問なさりたい場合は、ぜひ追加投稿して下さいね。

お試しになった結果をお知らせいただけると嬉しいです。

今後とも Microsoft Answers をよろしくお願いします。

---

田中 美紀– Microsoft Support