Добрый день форумчане. Стоит задача с помощью VBA открыть сохранить и закрыть файл xlsx.
В VBA не силён как и в программировании. Нашёл строчки которые открывают и закрывают файл. Но а как сохранить пока не могу.

Прошу помочь дописать эту недостающую строчку которая сохранит xlsx.

Public Sub XMLSOpen()
Dim oXL As Object
Set oXL = CreateObject("Excel.Application")
With oXL
.Workbooks.Open CurrentProject.Path & "\L3 MBH-BS порегионально_new.xlsx"
.Visible = True
End With


oXL.Workbooks.Close

Set oXL = Nothing


End Sub

Akina,

Set oWbk = oXL.Workbooks.Open CurrentProject.Path & "\L3 MBH-BS ïîðåãèîíàëüíî_new.xlsx"

жалуется на синтаксическую ошибку

Кривцов Анатолий,

Смысл действия следующий. Скачиваю таблицу Excel с сайта. Далее нужно добавить данные из Excel в Acces. Но ручное добавление не происходит без пересохранения таблицы. Т.е. открываем таблицу, нажимаем Сохранить и далее она без проблем подтягивается в Acces.

Теперь мне нужно автоматизировать это действие в автоматическом режиме, чтобы с помощью VBA это происходило.

[quot Akina]
SELECT *
FROM [Лист1$A1:B5] IN 'C:\Temp\f1.xls'[Excel 12.0; HDR=No; IMEX=1];

Куда это вставлять?

Кривцов Анатолий Очень странная ситуация. Т.е. файл дефектный, а открыв и сохранив вы его лечите?
Да именно так.
Кривцов АнатолийКогда открываете файл ручками, никаких сообщений нет?
Вообще никаких нет.
Кривцов АнатолийЕсли не "Сохранить", а "Сохранить как...", то какой формат предлагает?
Предлогает Книгу Excel
Кривцов АнатолийВы с сайта выгружаете готовый файл или выполняете экспорт данных?
С сайта выгружаю

AkinaОткрывая книгу, Вы не сохранили ссылку на неё. Это затрудняет сохранение заданной книги (хотя и не делает его невозможным - придётся итерировать всю коллекцию oXL.Workbooks и проверять имена книг).

Лучше делайте так:




Спасибо большое, это и помогло! Всё работает!!!