VBA

[Praud]

ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & ActiveWorkbook.Path & "\BooksDB.accdb; Jet OLEDB:Database;"
    con.Open ConnectionString
    rst.Open "SELECT Code, FIO, Code_country FROM Autors", con
 If Not rst.EOF Then
 arr = rst.GetRows
Worksheets("Лист1").Range(Cells(1, 1), Cells(13, 3)) = Application.Transpose(arr)

Такой код. Объясняю что делаем:
Подключаемся из MS Access, берем таблицу и переносим в MS Excel.

Мне нужно перенести 13 записей и 5 полей, однако как только я указываю дополнительную запись

rst.Open "SELECT Code, FIO, Code_country, Death FROM Autors", con

и увеличиваю список выводимых полей

Worksheets("Лист1").Range(Cells(1, 1), Cells(13, 4)) = Application.Transpose(arr)

Пишет ошибка. Что за черт??

[doober]

Так не проще выводить?

rst.Open "SELECT Code, FIO, Code_country, Death FROM Autors", con
Worksheets("Лист1").Cells(1, 1).CopyFromRecordset rst

Ошибка ,скорее всего, в размерности массива Arr

[Praud]

А так вообще ничего не выводится!

[doober]

Если рекордсет не пустой,то не может этого быть.
Пример файла с макросом и базу с десятком записей в студию.