如何将ACCESS数据库中的一个表导入到EXCEL或将DATAGRID导出到EXCEL

Question

问题如上,请写的详细点,我想在导出时可以选择保存地址及文件名

Answer 1

try:Sub trans(ByVal mdbpath As String, mdbtablename As String, xlspath As String)
Dim cn As New ADODB.Connection
cn.open "Provider=MicroSoft.Jet.OLEDB.3.51;Data Source=" & mdbpath
cn.Execute ("SELECT * INTO my IN '" & xlspath & "' 'EXCEL 9.0;' FROM " & mdbtablename)
Set cn = Nothing
End Sub

Answer 2

or:'引用MICROSOFT ACCESS X.0 OBJECT LIBRARYPrivate Sub Command1_Click()
trans "c:\xxxx.mdb", "aa", "c:\yy.xls"
End SubSub trans(ByVal mdbpath As String, mdbtablename As String, xlspath As String)
Dim accessApp As New Access.Application
accessApp.OpenAccessProject mdbpath
accessApp.DoCmd.OutputTo acOutputQuery, mdbtablename, acFormatXLS, xlspath, True
Set accesspath = Nothing
MsgBox "ok"
End Sub