AccessからExcelファイルのシート名

質問

よろしくお願いします
WinXP pro
Access2000を使用しています

現在
Dim DB As DAO.Database
Dim Tbl As DAO.TableDef
Dim nCount As Long
Dim ArrSheets As String
nCount = 0
ArrSheets = Array()
Set DB = OpenDatabase("ファイルパス", True, True, "Excel 8.0;")
For Each Tbl In DB.TableDefs
If Right$(Tbl.Name, 1) = "$" Or Right$(Tbl.Name, 2) = "$'" Then
ReDim Preserve ArrSheets(nCount)
ArrSheets(nCount) = Mid(Tbl.Name, 1, InStr(1, Tbl.Name, "$", 1) - 1)
nCount = nCount + 1
End If
Next Tbl
DB.Close
Set DB = Nothing
という風にしてExcelファイルのシート名を取得しているのですが
これだと、保護されているExcelファイルのシート名は取得できません
保護されているExcelファイルのシート名を取得する場合
どのようにしたらいいのでしょうか？

よろしくお願いします

回答No.1

bonaron · ベストアンサー

シート名を取得するのが目的なら、これでできますが。

Dim xlApp As Object
Dim xlBk As Object
Dim nCount As Long
Dim ArrSheets() As String
Dim i

Set xlApp = CreateObject("Excel.Application")
Set xlBk = xlApp.Workbooks.Open(FileName:="ファイルパス", ReadOnly:=True, Password:="パスワード")

nCount = xlBk.Worksheets.Count
ReDim ArrSheets(nCount - 1)
For i = 1 To nCount
　　ArrSheets(i - 1) = xlBk.Worksheets(i).Name
Next

xlApp.Quit
Set xlApp = Nothing

お礼

無事解決しました
ありがとうございました