Закрыть odb c соединение с макросом

Question

Попытка создать отчет, который создает его копию, а затем прекращает ссылки на базу данных, чтобы она не обновлялась. Я делал что-то подобное в прошлом, но когда я попробую это на этот раз, я получаю Subscript вне допустимой ошибки. Ниже приведен код для макроса, который я хочу создать копию в другом месте и закрыть ссылку на базу данных. Запрос odb c соединяется с внешней базой данных.

Sub SaveCopyPath()

Dim SavedCopy As Excel.Workbook


ActiveWorkbook.SaveCopyAs "U:\Reports\Forecast\forecast" & Format(Date, "mmddyyyy") & ".xlsm"

Workbooks.Open "U:\Reports\Forecast\forecast" & Format(Date, "mmddyyyy") & ".xlsm"

Set SavedCopy = ActiveWorkbook

With SavedCopy

    .Worksheets("Query1").ListObjects(1).Unlink

    Application.DisplayAlerts = False

    Application.DisplayAlerts = True

    .Close True

End With


End Sub