创建Excel工作簿的副本并删除查询连接

Question

大家晚上，

我有一本具有强大查询连接的工作簿，我希望创建并保存该文件的副本，并删除新文件中的查询连接，并将连接保留在第一个文件中。

到目前为止，这是我从网络上组合的代码：

Clone Copy()
Dim cn As WorkbookConnection
Dim qr As WorkbookQuery
Dim NewFilePath As String

    NewFilePath = ThisWorkbook.Path & "\Cloned_Workbook.xlsm"

    If VBA.Dir(NewFilePath) <> "" Then
        MsgBox "File With Same Name Exists already. Enter Different Name"
        End
    End If

    With ActiveWorkbook
        .SaveCopyAs Filename:=NewFilePath
        On Error Resume Next
        For Each cn In ThisWorkbook.Connections
    cn.Delete
Next
For Each qr In ThisWorkbook.Queries
    qr.Delete
    Next
End Sub

这将从现有文件中删除查询连接，并将连接保留在复制的文件中，这与我要查找的相反。

非常感谢您的帮助：）

Sh