VBA访问access数据库实例

最近，同事要用一个excel文件导出每天邮件的信息，邮件基本信息都存在了access数据表中了，要实现这个功能有好几种方式，例如写一个qty文件，而我直接用了excel自带的VBA功能，写了一个宏，根据输入的日期直接调用，想要哪一天的就导哪一天的！不能白瞎了我这个程序猿的称号啊，

Sub DaoChuExl()

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rowxh As Integer, vhx As Integer, rowzs As Integer, connStr As String, sqlStr As String
On Error Resume Next

connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\maildb.mdb;"
'MsgBox connStr
Dim ws As Worksheet

Set ws = Sheets("Sheet1")
conn.Open connStr

vhx = 1

sqlStr = "SELECT Fax_Name, Fax_ModiTime FROM Fax_ReciveInfo where Fax_Update='" & ws.Cells(1, 6).Value & "';"

'MsgBox sqlStr
rs.Open sqlStr, conn, adOpenStatic, adLockBatchOptimistic


ws.Range("A2:K65535").ClearContents


Do While Not rs.EOF
With ws
.Range("C2").CopyFromRecordset rs, 65535
End With

rs.MoveNext
Loop


rowzs = rs.RecordCount + 1
For rowxh = 2 To rowzs
ws.Cells(rowxh, 1) = vhx
ws.Cells(rowxh, 4).NumberFormatLocal = "yyyy-m-d hh:mm:ss"
vhx = vhx + 1
Next


rs.Close
Set rs = Nothing
End Sub

最后的成果是：