sqlstr = "select title,url from down1 "
rs.Open sqlstr, cn, adOpenStatic, adLockOptimistic
rs.Close
Set rs = Nothing
Set grid.DataSource = rs
Dim ss
Dim filename
filename = "c:\"
Dim mdbtable
mdbtable = "cc.xls"ss = "select * into [Excel 9.0;database=" & filename & "]." & mdbtable & " from down1"
rs.Open ss, cn, adOpenStatic, adLockOptimistic[为什么提示 excel 9.0;database=c:\不存在的错误呢]
rs.Open sqlstr, cn, adOpenStatic, adLockOptimistic
rs.Close
Set rs = Nothing
Set grid.DataSource = rs
Dim ss
Dim filename
filename = "c:\"
Dim mdbtable
mdbtable = "cc.xls"ss = "select * into [Excel 9.0;database=" & filename & "]." & mdbtable & " from down1"
rs.Open ss, cn, adOpenStatic, adLockOptimistic[为什么提示 excel 9.0;database=c:\不存在的错误呢]
excel 9.0改成excel 8.0Public Sub MdbToxls(sAccessFileName As String, sExcelPath As String, sSheetName As String, sAccessTable As String)
'功能:将Access数据库中表导出到Excel文件中
'输入参数1:cAccessFileName Access文件全路径 如:c:\temp\test1.mdb
'输入参数2:sExcelPath Excel文件的全路径 如:c:\temp\test2.xls
'输入参数3:sSheetName Excel中的工作簿名 如:$Sheet1
'输入参数4:sAccessTable Access数据库中的表 如:Table1
'作者:YOKI 最后修改:2003-08-21
'调用:Call MdbToxls("c:\temp\test1.mdb","c:\temp\test2.xls","$Sheet1","Table1")
'结果:将C:\temp\test1.mdb中的Table1表导入到c:\temp\test2.xls的$Sheet1中
Dim db As DAO.Database
Set db = Workspaces(0).OpenDatabase(sAccessFileName)
db.Execute "SELECT * INTO [Excel 8.0;DATABASE=" & sExcelPath & "].[" & sSheetName & "] FROM [" & sAccessTable & "]"
db.Close
Set db = Nothing
End Sub