Программное открытие файла mdb в Excel 2010 без выбора источника данных |
автор |
---|
РабочаяКнига = СоздатьОбъект("Excel.Application"); РабочаяКнига.SheetsInNewWorkbook = 1; РабочаяКнига.Caption = "Сводная таблица"; NewBook = РабочаяКнига.Workbooks; List = NewBook.Add; СтрокаПодключения = "ODBC;DSN=База данных MS Access;DBQ=" + КаталогПользователя() + "sr.mdb;DefaultDir=" + КаталогПользователя(); SQL = "SELECT * FROM [PIVOT]"; Назначение = РабочаяКнига.ActiveSheet.Range("A1"); Если ТЗТаблицы.КоличествоСтрок()>65530 Тогда Предупреждение("Размер сводной таблицы превышает 65530 строк.",30); ФС.УдалитьФайл(КаталогПользователя()+"sr.mdb"); Форма.Закрыть(); Возврат; Иначе QueryTables = РабочаяКнига.ActiveSheet.QueryTables.Add(СтрокаПодключения,Назначение,SQL); QueryTables.Refresh(0); СводнаяТаблица = РабочаяКнига.ActiveSheet.PivotTableWizard; СводнаяТаблица.SmallGrid = 0; СводнаяТаблица.Format(1); КонецЕсли; РабочаяКнига.Visible = 1; |
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |