Создание копии книги 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

Удаляет соединения запроса из существующего файла и сохраняет соединения в скопированном файле.что противоположно тому, что я ищу.

Любая помощь очень ценится:)

Шрю