以sql形式将数据库信息复制到excel中

最新推荐文章于 2025-05-15 11:41:09 发布

原创最新推荐文章于 2025-05-15 11:41:09 发布 · 403 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vba

本文介绍了一种使用VBA从Access数据库中读取数据的方法。通过创建新的工作表，并利用DAO（Data Access Objects）库连接到指定的Access数据库文件，可以实现数据的检索和导入。首先设置数据库和记录集对象，然后定义SQL查询语句，接着打开记录集并读取数据。如果记录集不为空，将字段名写入第一行，然后将数据复制到工作表的A2单元格开始的位置。

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