Accessのインポートや、リンクの操作を自動化するプログラムを作成する
ような場合、Excelブック内に含まれる全てのシートあるいは特定のシート名
の取得をする必要があります。

　そこで、Accessから、特定のExcelファイル内に含まれる全てのシート名を
取得する方法を紹介します。


● サンプル ●

Public Function Sample()

  Dim Mydb   As Database
  Dim tbl    As TableDefs
  Dim I      As Integer
  Dim wsName As String

  Set Mydb = OpenDatabase("C:Book1.xls", False, False, "excel 5.0;hdr=no;")
  For I = 0 To Mydb.TableDefs.Count - 1
     wsName = Mydb.TableDefs(I).Name

    '取得したシート名に付加された"$"マークを取り除きます。
     wsName = Mid(wsName, 1, InStr(1, wsName, "$", 1) - 1)
     
     MsgBox wsName
     
  Next I
  
  Mydb.Close
  
End Function