如何使用SQL语句和vba将MS-Access中的数据导入到excel power查询中？

要将MS-Access中的数据导入到Excel Power Query中，可以使用SQL语句和VBA编程来实现。下面是一个完整的步骤指南：

打开Excel，并创建一个新的工作簿。
在Excel中，按下Alt+F11打开Visual Basic for Applications（VBA）编辑器。
在VBA编辑器中，选择插入（Insert）-> 模块（Module），创建一个新的模块。
在新的模块中，编写以下VBA代码：

Sub ImportDataFromAccess()
    Dim conn As Object
    Dim rs As Object
    Dim dbPath As String
    Dim strSQL As String
    Dim rng As Range
    
    ' 设置数据库路径
    dbPath = "C:\path\to\your\database.accdb"
    
    ' 设置SQL查询语句
    strSQL = "SELECT * FROM TableName"
    
    ' 设置导入数据的目标范围
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1")
    
    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 打开数据库连接
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 执行SQL查询
    rs.Open strSQL, conn
    
    ' 将查询结果复制到Excel中
    rng.CopyFromRecordset rs
    
    ' 关闭记录集和连接
    rs.Close
    conn.Close
    
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
End Sub

请确保将上述代码中的"C:\path\to\your\database.accdb"替换为实际的MS-Access数据库文件路径，"SELECT * FROM TableName"替换为实际的表名或查询语句，ThisWorkbook.Sheets("Sheet1").Range("A1")替换为实际的目标范围。