【VBA】EXCELブックを開かずにシート名を取得したい

こんにちは。 提示URL先の方法とは違いますが、 ADOを使った方法をしばらく前に紹介した事があります。 QNo. 2922101 です。参考にしてみてください。 （締め切られてないのでうまくいかなかったのかもしれませんが） ExcelVBA用に書き直してみると Option Explicit Sub sample() Const adSchemaTables As Long = 20 Dim adoCn As Object Dim adoRs As Object Dim wbName As String Dim shName As String Dim chk As String Dim j As Long Dim x() On Error Resume Next wbName = "c:\work\Book1.xls" Set adoCn = CreateObject("ADOD