Option Explicit
Sub F_Sample025()
'Microsoft DAO 3.6 Object Library
'F_Data.mdb F_Tbl01
Dim myDb As DAO.Database
Dim myRst As DAO.Recordset
Dim mySqlStr As String
Dim myFileName As String
Dim i As Long
Worksheets.Add
myFileName = "F_Data.mdb"
Set myDb = OpenDatabase(ThisWorkbook.Path & "\" & myFileName)
mySqlStr = "SELECT * FROM F_Tbl01"
Set myRst = myDb.OpenRecordset(mySqlStr)
If myRst.EOF Then
MsgBox ""
Else
With myRst
For i = 1 To .Fields.Count
Cells(1, i).Value = .Fields(i - 1).Name
Next
Range("A2").CopyFromRecordset myRst
.Close
End With
End If
ActiveSheet.Cells.Font.Name = "宋体"
myDb.Close
Set myRst = Nothing
Set myDb = Nothing
End Sub
以sql形式将数据库信息复制到excel中
最新推荐文章于 2022-03-31 21:25:56 发布