-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Не работает Merge в 2013 офисе

Понедельник, 05 Мая 2014 г. 20:00 + в цитатник
Доброго времени суток. Есть макрос по экспорту из Access в Excel. Всё работало в 2003-2010 офисе, в 2013 вываливается с ошибкой. Библиотека подключена. Ставлю точку, вылезают варианты. Выдержка кода:

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.application")
Set xlBook = xlApp.Workbooks.Add
xlApp.WindowState = xlMinimized
xlApp.Visible = True
Set xlSheet = xlBook.Worksheets(1)
With xlSheet
        'Шапка
        .Name = "Основная выгрузка"
        .Range(.Cells(1, 1), .Cells(1, 10)).Select
        .Range(.Cells(1, 1), .Cells(1, 10)).Merge
end with

.Select добавил после возникновения ошибки, чтобы проверить вдруг это ошибка .Range, но нет, выделяет нормально, а на .Merge выдаёт ошибку: "'1004' Application-defined or object-defined error"

Создайте еще более понятный интерфейс и мир создаст еще более тупого юзера.

http://www.sql.ru/forum/1092950/ne-rabotaet-merge-v-2013-ofise


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку