我如何打开一个访问文本文件，并加载在VBA Excel中的文件path存储在一个variables？

裂缝:)

我有以下代码：

Dim TextFileConn As ADODB.Connection Dim TextFileData As ADODB.Recordset Dim TextFileField As ADODB.Field Set TextFileConn = CreateObject("ADODB.Connection") Set TextFileData = CreateObject("ADODB.Recordset") TextFileConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\A7P2AZZ\Desktop\IBP DP Tool\High_Level_Data_BG.accdb" TextFileConn.Open With TextFileData .ActiveConnection = TextFileConn .Source = "FinalTable" .LockType = adLockReadOnly .CursorType = adOpenForwardOnly .Open End With 

现在我想使用一个variables，我可以从Excel中控制，而无需进入VBA代码，并调整我的文件path。 为此我创build了存储我的文件path的variables“objectname”。

 objectname = "C:\Users\A7P2AZZ\Desktop\IBP DP Tool\High_Level_Data_BG.accdb" 

所以我的问题是，如何将“对象名称”包含在此中

 TextFileConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\A7P2AZZ\Desktop\IBP DP Tool\High_Level_Data_BG.accdb" 

任何帮助，高度赞赏，因为我真的在全世界搜查，但没有find它。

谢谢！ 最好的雪枪

Answer 1

只需要这样做：

 TextFileConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & objectname 

Answer 2

你只是要求string连接？ TextFileConn.ConnectionString =“Provider = Microsoft.ACE.OLEDB.12.0; Data Source =”＆objectname