投稿日 | : 2003/01/22(Wed) 11:52 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^4:^11いきなり自己レスです |
シート名の取得はExcelを操作(起動)しなくても出来るようです。
下記を試して見て下さい。
Private Sub Command3_Click()
Dim DB As Database
Dim xlFileName As String
Dim Tbl As TableDef
Text1.Text = ""
xlFileName = App.Path & "\Sample.xls"
Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=NO;")
For Each Tbl In DB.TableDefs
If Tbl.Attributes And dbSystemObject Then
Else
Text1.Text = Text1.Text & Tbl.Name & vbCrLf
End If
Next Tbl
DB.Close
Set DB = Nothing
End Sub