|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.11.2010, 19:11 | #1 |
Форумчанин
Регистрация: 05.07.2009
Сообщений: 209
|
выгрузка в Excel по шаблону
Здравствуйте!!! Подскажите, пожалуйста, как можно решить следующую проблему. Я задавала уже здесь вопрос, почему при выгрузке из аксесса 97 отчета в файл Excel в полученном файле текстовое поле "Код материала" автоматически преобразуется в числовое... решение так и не нашла и решила попробовать выгружать отчет с применением шаблона. Я создала шаблон Excel "КР_ВыгрузкаЭксель".xlt, в котором сохранила нужное форматирование и при выгрузке указала путь к шаблону
Dim mn, mn1 As String Dim u As String u = UserName_W() - имя пользователя mn = "КР_ВыгрузкаЭксель" mn1 = Format(Date, "dd.mm.yyyy") DoCmd.OutputTo acOutputReport, mn, acFormatXLS, "C:\Documents and Settings\" & u & "\My Documents\" & mn & mn1 & ".xls", True, "C:\Zatraty\КР_ВыгрузкаЭксель.x lt" - выгружаю отчет "КР_ВыгрузкаЭксель" в свою папку в файл "КР_ВыгрузкаЭксель9.11.2010" с форматированием по шаблону который лежит в "C:\Zatraty" но при открытии полученного файла форматирование как в шаблоне не сохраняется, вобщем шаблон не помог ((((((((((((((((( |
09.11.2010, 22:35 | #2 | |
Участник клуба
Регистрация: 10.08.2009
Сообщений: 1,796
|
Здравствуйте Swatch.
"..задавала .. вопрос .. решение так и не нашла.." Вы лукавите, это Ваши слова, Цитата:
очередное объяснение надеюсь не будет "не найденным" к сожалению с использованием команды JET ядра DoCmd которой Вы усердно пытаетесь достичь результата, возможно только решение предложенное мной ранее (которое Вы не нашли) Но использование библиотеки ADO дает возможность обойти эту "проблему". Образец кода выполняет такую задачу, т.е. выкладывает рекордсет на лист шаблона Excel, возможно с заданным форматированием Код:
|
|
10.11.2010, 19:30 | #3 |
Форумчанин
Регистрация: 05.07.2009
Сообщений: 209
|
Ошибка
Спасибо, Евгений, я попробовала применить ваш вариант, только в качестве источника отчета у меня не adodb а обычный рекордсет то бишь запрос в базе данных... однако возникло новое препятствие:
.Range("a6").CopyFromRecordset rs при записи в эксель из этого рекордсета выходит ошибка "Class doesn't support Automation (Error 430)" что бы это значило? |
10.11.2010, 22:34 | #4 |
Участник клуба
Регистрация: 10.08.2009
Сообщений: 1,796
|
Swatch, попробуйте подключить Excel, в редакторе VBA, меню : Tools / References / Microsoft Excel..., думаю у Вас всё получится.
Евгений. |
10.11.2010, 23:46 | #5 |
Участник клуба
Регистрация: 10.08.2009
Сообщений: 1,796
|
Swatch, ещё MS Access позволяет выполнять подобные запросы
Код:
Код:
Евгений. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
VAlue2&! Выгрузка в Excel | Регинка-малинка | БД в Delphi | 0 | 04.10.2010 20:33 |
Выгрузка из DBGrid в Excel | Nika03 | БД в Delphi | 1 | 19.05.2010 22:06 |
Выгрузка Excel и выборка | asale | Общие вопросы Delphi | 3 | 03.05.2010 12:11 |
выгрузка определенных ячеек из excel | kate158 | Общие вопросы Delphi | 12 | 23.09.2009 11:26 |
Как указать путь к шаблону excel ??? | antoni | БД в Delphi | 4 | 04.11.2008 11:22 |