Ошибка метода при попытке использовать функцию .SaveAs VBA

Question

Я пытаюсь получить доступ к экспорту копии таблицы, над которой я работаю, через программу при каждом запуске программы. Я получаю следующую ошибку в строке myExcel.SaveAs: «Ошибка времени выполнения« 438 »: объект не поддерживает это свойство или метод»

Библиотеки ссылок, которые я включил, следующие: «Visual Основы c Для приложений "," Библиотека объектов Microsoft Access 16.0 "," Автоматизация OLE "," Библиотека объектов ядра базы данных Microsoft Office 16.0 Access "," Библиотека объектов данных Microsoft ActivceX 6.1 "," Библиотека объектов Microsoft Excel 16.0 ".

Я пытался поиграть с библиотеками, а также с различными форматами префиксов для метода .SaveAs, но безрезультатно.

Dim myrs As DAO.Recordset ' Create a recordset to hold the data
Dim myExcel As New Excel.Application ' Create Excel with Early binding
Dim mySheet As Excel.Worksheet


Set mySheet = myExcel.Workbooks.Add(1).Worksheets(1) ' Create Workbook
Set myrs = CurrentDb.OpenRecordset("SELECT * FROM tablename") ' Define recordset
Dim i As Integer

'Add header names
For i = 0 To myrs.Fields.Count - 1
    mySheet.Cells(1, i + 1).Value = myrs.Fields(i).Name
Next

Dim fname As String
fname = "Detail_Export"
Dim timestamp As Date
timestamp = Now()
Dim strTime As String
Dim strTime2 As String

timestamp = CStr(timestamp)
strTime = Replace([timestamp], ":", ".")
strTime2 = Replace([strTime], "/", ".")

fname = fname & " " & strTime2

'Add data to excel and make Excel visible
mySheet.Range("A2").CopyFromRecordset myrs
myExcel.Visible = False
myExcel.SaveAs FileName:=("C:\User\me\Database Backups\" & fname), FileFormat:=xlOpenXMLWorkbook
myrs.Close

Answer 1

myExcel - это объект Excel Application. SaveAs - это метод объекта Workbook:

Изменить

Set mySheet = myExcel.Workbooks.Add(1).Worksheets(1) ' Create Workbook

на

Dim myWb as Excel.Workbook
Set myWb = myExcel.Workbooks.Add

Set mySheet = myWb.Worksheets(1)

Теперь вы можете SaveAs на Workbook .