vb6.0如何把access数据库的指定信息导入excel模板中

Question

真的很急“vb6.0如何把access数据库的指定信息导入excel模板中”
你们答案都不准，我自己研究出来了，但还要谢谢你们。

Answer 1

如果EXCEL模板与ACCESS文件在同一目录下，直接复制下面代码到EXCEL中,并执行

Sub 从ACCESS中读数()
Dim Cnn As New ADODB.Connection
Dim myPath As String
Dim strSql As String

myPath = ThisWorkbook.Path & "\ACCESS.mdb" '你的ACCESS文件名
myTable = "表名" '你的ACCESS中表的名称
'On Error GoTo errmsg
With Cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source =" & myPath
.Open
End With

strSql = "SELECT * FROM 表名 where 字段名=条件" '你要提取的字段（*为提所有）

Sheet1.Range("a2:a10000") = "" '提出的数据存放在sheet1中的a2
Sheet1.Range("a2").CopyFromRecordset Cnn.Execute(strSql)

Cnn.Close
Set Cnn = Nothing
Exit Sub
errmsg:
MsgBox Err.Description, , "错误报告"
Err.Clear
On Error GoTo 0
End Sub

如果代码提示“子过程没定义”则要在VBA中选上“Mircosoft ActiveX Data Object 2.0”或2.0以上的其中一个

Answer 2

通过Vb获取数据，然后循环输出就可以了
对excel操作如下
Dim xlapp As Object
Dim xlBook As Object
Dim xlSheet As Object
Set xlapp = CreateObject("Excel.Application")
Set xlBook = xlapp.Workbooks.Open(App.Path & "\文件.xls")‘打开一个文件
Set xlSheet = xlBook.Worksheets(1)
With xlSheet
.Range(.Cells(2, 1), .Cells(2, 40)).Copy
xlapp.Visible = False
xlapp.DisplayAlerts = False
for i=1 to ...
.Cells(i, 1) = ....
.Cells(i, 2) = ....
.Cells(i, 3) = ....
.Cells(i, 4) = ....
next
end with
Me.CDlTool.Filter=....你要保存的位置
Me.CDlTool.ShowSave

Answer 3

找我吧！