小编Toa*_*d62的帖子

对任何形式的代码都很陌生。尝试在 VBA 中运行一个脚本，该脚本将使用 SQL 从访问数据库中提取数据并将其放入 Excel 电子表格中。代码类似于下面。运行干净，但我不知道如何使用它正在提取的数据。提前致谢。

Sub Get_Data()
Dim cn As Object
Dim rs As Object
Dim strFile As String
Dim strCon As String
Dim strSQL, strInput As String

strFile = "S:\Location.Database.accdb"

strCon = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & strFile

Set cn = CreateObject("ADODB.Connection")
cn.Open strCon

strInput = InputBox("Input Desired Name")

strSQL = "SELECT NAME, Location WHERE NAME =""'strInput'"";"

cn.Execute strSQL

cn.Close
Set cn = Nothing

End Sub