Интеграция с макросами VBA

Вы можете использовать надстройку SaveToDB в макросах VBA как библиотеку.

С ее помощью легко загружать данные из таблиц, представлений и хранимых процедур баз данных, а также из Интернета и текстовых файлов.

Вы можете сохранять данные в базы данных Microsoft SQL Server, Oracle Database, MySQL, MariaDB, Snowflake, PostgreSQL и SQLite.

Эти возможности позволяют быстро создавать приложения на VBA и решать задачи доступа к базам данных.

Модель программирования очень проста:

Настройте поведение надстройки SaveToDB в визуальном режиме.
Вызывайте методы надстройки SaveToDB из макросов VBA.

Например, используйте следующий код для получения ссылки на надстройку SaveToDB:

Dim com As COMAddIn
Dim addIn As Object
Set com = Application.COMAddIns("SaveToDB")
Set addIn = com.Object

Для сохранения изменений в базу данных используйте:

addIn.Save

Все просто.

Вы можете использовать один из следующих вариантов, передавая объект ListObject как параметр:

addIn.Save ListObject

Call addIn.Save(ListObject)

If Not addIn.Save(ListObject) Then
    MsgBox addIn.LastResultMessage
End If

Для загрузки данных из баз данных, веб и текстовых файлов используйте:

addIn.Load

addIn.Load ListObject

Call addIn.Load(ListObject)

If Not addIn.Load(ListObject) Then
    MsgBox addIn.LastResultMessage
End If

Код ниже обновляет параметры запроса в именованных ячейках и загружает данные с новыми параметрами:

Application.EnableEvents = False

Range("Account").Value = 123
Range("Company").Value = "ABC"

Application.EnableEvents = True

addIn.RebuildCommandTextFromNamedCells

Также можно использовать прямые вызовы надстройки для установки значений параметров:

addIn.ParameterValue(ListObject, "Account") = 123
addIn.ParameterValue(ListObject, "Company") = "ABC"

Call addIn.Load(ListObject)

Этот подход не требует создания именованных ячеек и более универсален.

Смотрите полные списки доступных свойств и методов: