找了论坛上老师的例子,增加了一句生成表。
Private Sub cmd_打开_Click()
Dim ssql As String
'Dim strfilename As String
With FileDialog(3)
.Filters.Clear
.Filters.Add "", "*.mdb;*.accdb"
If .Show Then
Me.txt_文件 = .SelectedItems(1)
Else
Exit Sub
End If
End With
'strfilename = Mid(Me.txt_文件, InStrRev(Me.txt_文件, "."))
'通过SQl语句获取文件中的表
ssql = "SELECT Name FROM MSysObjects IN '" & Me.txt_文件.Value & "' WHERE (Type=1) AND (([Name] Like 'MSys*' Or [Name] Like '~*')=False);"
'Debug.Print ssql
DoCmd.RunSQL "SELECT MSysObjects.Name INTO Temp_TableName FROM MSysObjects IN '" & Me.txt_文件.Value & "'WHERE (((MSysObjects.[Type])=1) AND (([Name] Like 'MSys*' Or [Name] Like '~*')=False));"
Me.cmb_表.RowSource = ssql
Me.cmb_表.Value = Null
Me.cmb_表.SetFocus
Me.cmb_表.Dropdown