我有一个使用连接字符串连接到SQL DB的Excel VBA,但我想知道是否可以从单元格解析连接字符串?例如,如果我在SQLSVR1\Instance1
中的B2
和Databas1
中的B3
,我可以将其放入连接字符串中,如下所示:
objMyConn.ConnectionString = "Provider=sqloledb; Data Source=**"B2"**; Initial Catalog=**"B3"**; Integrated Security=SSPI;"
这可能吗?
提前致谢。
答案 0 :(得分:2)
答案 1 :(得分:0)
是的,有可能提到 EoinS 。但请注意确定您的工作表。对于这种情况,您希望在另一个工作表上定义连接字符串。尝试这样的事情:
Dim wb as workbook, ws as worksheet
Set wb = Thisworkbook
Set ws = wb.Worksheets("TheNameofYourWorksheetsWithYourConnectionsDefined")
''Get Cnxn details
sDsn = wsc.Cells(wsc.Range("YourLabeloftheCell").Row + 1, wsc.Range("YourLabeloftheCell").Column).Value
sUser = wsc.Cells(wsc.Range("YourLabeloftheCell").Row + 2, wsc.Range("YourLabeloftheCell").Column).Value
sPwd = wsc.Cells(wsc.Range("YourLabeloftheCell").Row + 3, wsc.Range("YourLabeloftheCell").Column).Value
sSql= GetRangeString(Worksheets("SQL").Range("A17:A22"))
check = DbSelectQueryToSheet(sDsn, "", sUser, sPwd, sSql, Worksheets("TargetWorksheet").Range("A1"), True)
希望,这有帮助!