编辑数据连接

Question

第一篇文章，大家好。

我正在寻找按钮的代码，当按下该按钮时会提示用户更改数据连接源文件。下面的代码可以请求用户选择一个新的源文件，但是没有一个连接可以使用新的文件路径更新，有什么想法吗？预先感谢

Sub xlTest()

Dim i As Long
Dim cnt As Long
Dim cn

cnt = ActiveWorkbook.Connections.Count

'Choose a File
strPath = Application.GetOpenFilename(Title:="Choose a file", _
FileFilter:="Excel Files *.xls* (*.xls*),")

If strPath = False Then
    MsgBox "No file selected. Exiting now.", vbExclamation
    Exit Sub
End If
'Change Connection source filepath for each connection
For i = cnt To 1 Step -1
     Set cn = ActiveWorkbook.Connections.Item(i)
     cn.OLEDBConnection.SourceDataFile = strPath
Next i

End Sub

Answer 1

我不明白您为什么要使用For Next语句，因为每次执行似乎只打开一个文件。但是我认为您可以将其中的代码替换为ActiveWorkbook.Connections.AddFromFile (strPath)，它会提示您进入对话框以选择要连接的工作表，也不需要声明'cn'变量。