Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты!
У меня такой вопрос! У меня есть процидура перекидывания в excel данных из Базы данных DBE. Но у меня он почиму то выводит только первые 10 полей вместо 32. Подскажите в чём проблема пожалуйста. код ниже.

Вопрос задал: Kraken (статус: Посетитель) Вопрос отправлен: 16 декабря 2009, 23:13 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Мережников Андрей

Здравствуйте, Kraken!
Дело в том, что Вы неправильно интерпретируете нуменацию колонок в Excel. Сначала идет A-Z, затем AA-ZZ, а у Вас в программе рассчитано только на A-Z.
Строку CHR(64+DataModule2.Table1.FieldCount) попробуйте заменить на:
DoubleStr('A',(DataModule2.Table1.FieldCount div 26))+CHR(64+(DataModule2.Table1.FieldCount mod 26)).
Единственно - уточните название функции DoubleStr, которая находится в модуле StrUtils. Сейчас под руками нет Delphi

Ответ отправил: Мережников Андрей (статус: Абитуриент) Время отправки: 17 декабря 2009, 06:01 Оценка за ответ: 5

Мини-форум вопроса

Мережников Андрей (статус: Абитуриент), 17 декабря 2009, 06:53 [#1]: Немного неверно написал в ответе - нумерация идет A-Z,AA-AZ,BA-BZ и т.д. хотя при количестве полей больше, чем 52 мой вариант также даст сбой, потому, что там надо будет от AA-AZ перейти к BA-BZ, а в моем ответе этого нет. Да, слово "нуменация" - надо читать "нумерация" Вот, что должно быть, чтобы нормально работало: if (DataModule2.Table1.FieldCount>26) then XL.Range['A'+IntToStr(j),CHR(64+((DataModule2.Table1.FieldCount - 1) div 26))+ CHR(64+((DataModule2.Table1.FieldCount-1) mod 26)) +IntToStr(j)].Value := XArr else XL.Range['A'+IntToStr(j), CHR(63+DataModule2.Table1.FieldCount)+IntToStr(j)].Value := XArr; Это будет работать до 676 полей, если такое количество полей в таблице BDE поддерживает. Хотя такого количества столбцов и Excel не поддерживает - в нем максимальный столбец IV

Kraken (статус: Посетитель), 17 декабря 2009, 22:36 [#2]: Здравствуйте ещё раз! А теперь когда я этот код ввёл он мне выводит в excel все поля но при этом он выводит только первую запись причём раз 300 наверное! Напишите пожалуйста прям в коде куда надо это вставлять или что заменить! И можно ли в excel вывести названия этих полей?

Мережников Андрей (статус: Абитуриент), 18 декабря 2009, 19:06 [#3]: Код полностью заново вводили? Проверьте - не пропущена ли строка j:=j+1 и правильно ли она стоит - может быть ее поставили после цикла?

Kraken (статус: Посетитель), 18 декабря 2009, 22:49 [#4]: Я попробовал и куда не ставь J:=j+1 всё равно такая штука! Поэтому и попросил прислать всё в коде! Он ещё после этого ошибку выдаёт вот на этой строчке then XL.Range['A'+IntToStr(j),CHR(64+((DataModule2.Table1.FieldCount - 1) div 26))+ CHR(64+((DataModule2.Table1.FieldCount-1) mod 26)) +IntToStr(j)].Value := XArr

Kraken (статус: Посетитель), 18 декабря 2009, 22:58 [#5]: Да кстати а можно всё это дело скидывать не в excel а в word. Быть может это будет проще если так то напишите пожалуйста как это сделать? И как мне сделать чтобы названия полей тоже выводилось?

Kraken (статус: Посетитель), 18 декабря 2009, 23:05 [#6]: raised exception class EOleexception with message 'OLE 800AC472' Это текст ошибки который выдаётся постоянно даже если J:=j+1; вообще убрать и с ним тоже самое

Kraken (статус: Посетитель), 18 декабря 2009, 23:29 [#7]: Прошу прощения! Я нашёл свою ошибку! У меня ещё вот какая просьба Как мне сделать чтобы первая строка в excel была название этих полех причём чтобы их можно было бы назвать на русском как они названы например в DBGrid? И можно чтобы он мне кидал в excel не всю базу а только поля той записи какая сейчас выделена?

Мережников Андрей (статус: Абитуриент), 19 декабря 2009, 08:43 [#8]: Названия полей в первой строке выводить, конечно, можно. Название колонки в DBGrid : DBGrid1.Columns.Items[i].Title .Вот насчет соответствия названий полей с DBGrid могут быть проблемы при таком способе заполнения. Вы можете гарантировать, что порядок полей в таблице всегда будет неизменным? Если хотите, чтобы в Excel переносилась информация только с текущей записи, то уберите DataModule2.Table1.First и цикл прохождения по таблице. Чтобы освободить первую строку в Excel под названия - первое значение j присвойте 2, а не 1.

Kraken (статус: Посетитель), 19 декабря 2009, 10:58 [#9]: Да я могу гарантировать! Потому что база будет одна и изменятся не будет!

Kraken (статус: Посетитель), 19 декабря 2009, 19:21 [#10]: Напишите это пожалуйста кодом, а то что то у меня не получается он какие то ошибки выдаёт!

Kraken (статус: Посетитель), 19 декабря 2009, 23:15 [#11]: ДА у меня ещё вот какой вопрос! А можно данные из базы в excel кидать не в строчку а в столбик(просто база большая и в строчку при печати затрачивается несколько станиц). Если это можно сделать то напишите пожалуйста как? если можно прям кодом

Мережников Андрей (статус: Абитуриент), 20 декабря 2009, 19:19 [#12]: Если таблица одна и меняться не будет, то лучше всего сделать в Excel табличку - нарисовать границы ячеек, установить размер шрифта, написать названия колонок, установить ориентацию текста в колонках и т.д. Затем, используя этот файл как шаблон заполнять данными из таблицы БД. Можно установить формат бумаги, например, печатать таблицу из Excel не более чем на одном(двух, трех и т.д.) листах в ширину, тогда будет автоматом производиться масштабирование выводимой таблицы. Можно установить формат листа - альбомный, тогда больше колонок поместится. Используя предварительно созданные шаблоны в Excel, не надо заморачиваться по поводу программного создания вида таблицы.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.