SaveAs для доступа в Excel VBA

Question

В моей книге Excel я могу прикрепить базу данных Access как объект OLE.

Теперь я хочу сохранить копию этого объекта (база данных Access) в другой папке.

Здесьмой код:

    If nameEnd = "ccdb" Then
        'Access Type

        Dim AccessApp As Object
        Dim obja As OLEObject

        Application.ScreenUpdating = False
        Set obja = ActiveSheet.OLEObjects(i)
        obja.Activate
        obja.Visible = True
        Set AccessApp = GetObject(, "Access.Application")
        AccessApp.CurrentDatabase.SaveAs FileName:=fpath & "AttachmentAccess"
        AccessApp.CurrentDb.ExportAsFixedFormat outputfilename:=saveFile & "Attachment DB", _
        ExportFormat:=accdbExportFormatPDF
        Set AccessApp = Nothing
        Range("K2:Z300").Select
        Application.ScreenUpdating = True
     End If

Я получаю ошибку «Объект не поддерживает это свойство или метод», вероятно, потому что «CurrentDatabase.SaveAs» не существует как свойство.

Answer 1

Я думаю, что вы использовали неправильные имена свойств.

Когда вы пишете в следующей строке, это не CurrentDatabase, а CurrentDb.Более того, функция не называется SaveAs, а MakeReplica.Итак, попробуйте это:

AccessApp.CurrentDb.MakeReplica PathName:=fpath & "AttachmentAccess"