Excelファイルのシート存在チェックについて

にんにん 2006-02-27 20:51:34 No: 94380

フォルダ、ファイルの存在チェックをFileSystemObjectを使い行っているのですが、Excelファイルのシート存在チェックがうまくできません。方法をしっていたら教えてください。なおExcelファイル名は固定です。

あん 2006-02-27 22:25:07 No: 94381

まだ色々方法はあると思うけど

    Dim oExcel As Object
    Dim oSheet As Object

    Set oExcel = CreateObject("D:\探すファイル.xls")
    On Error Resume Next
    Set oSheet = oExcel.Worksheets("検索するシート")
    If oSheet Is Nothing Then
        MsgBox "シートない"
    Else
        MsgBox "シートある"
    End If