Не работает Merge в 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
Создайте еще более понятный интерфейс и мир создаст еще более тупого юзера.
http://www.sql.ru/forum/1092950/ne-rabotaet-merge-v-2013-ofise
| Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |