Question

excel vba 连接sql提取表格数据，怎么将代码里面的服务器、数据库用窗体里的文本框赋予？

ActiveWorkbook.Queries.Add Name:="xxxx", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " 源 = Sql.Databases(""服务器"")," & Chr(13) & "" & Chr(10) & " 数据库= 源{[Name=""数据库""]}[Data]," & Chr(13) & "" & Chr(10) & " dbo_xxxx = 数据库{[Schema=""dbo"",Item=""xxxx""]}[Data]" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " dbo_xxxx"

Answer 1

一般正常将连接SQL的命令作为窗体上的按钮事件，同时把文本框内容作为变量与文本连接即可。

我作个演示，以数据库登陆密码作为文本输入