Получение из базы данных VBA

Question

Я пытаюсь получить данные из базы данных MySQL.

    Dim oRS as ADODB.Recordset
    Dim databaseRecords as Range
    Set oRS = New ADODB.Recordset
    oRS.ActiveConnection = oConn
    oRS.Source = "Select AccID from database123"
    oRS.Open
    databaseRecords.CopyFromRecordset (oRS)
    oRS.Close
    If Not oRS Is Nothing Then Set oRS = Nothing

Я уже подключился к базе данных mySQL.Часть соединения в порядке.Я получаю сообщение об ошибке «Переменная объекта или переменная не установлена» в databaseRecords.CopyFromRecordset (oRS).В базе данных нет пустых строк.

Answer 1

Вы объявили databaseRecords, но не присвоили его.Его необходимо назначить существующему (и действительному размеру) диапазону в целевой электронной таблице.