Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.62/13: Рейтинг темы: голосов - 13, средняя оценка - 4.62
5 / 5 / 1
Регистрация: 21.11.2010
Сообщений: 72

Ошибки при экспорте из StringGrid в Excel

24.03.2015, 15:44. Показов 2840. Ответов 11
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Попробовал реализовать сохранение данных из СтрингГрид в Ексель, все скомпилировалась, программа пишет данные в xls-файл, но иногда не корректно, т.е. иногда все нормально, иногда у некоторых ячеек слетает формат (см. вложение - т.е. у всех ячеек формат ч:мм:сс, а у одной - "общий").
Так же напрягает не совсем корректное открытие файла Екселем (см. так же вложение - если нажать "Да", то файл открывается).

Код, который пишет данные в файл при нажатиии кнопки (название файла берется из edit-a):

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
function TForm1.GetExcelFileName: String;
begin
  Result := ExtractFilePath(Application.ExeName) + Edit6.Text;
 
  if LowerCase(ExtractFileExt(Result)) <> EXCEL_FILE_EXT then
    Result := Result + EXCEL_FILE_EXT;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
 ExcelApp, Sheet: variant;
 Col, Row: Word;
begin
  //*******************
ExcelApp := CreateOleObject('Excel.Application');
  try
    ExcelApp.Visible := false;
 
    ExcelApp.Workbooks.Add;
    Sheet := ExcelApp.ActiveWorkbook.Worksheets[1];
 
    for Col := 0 to StringGrid1.ColCount - 1 do
      for Row := 0 to StringGrid1.RowCount - 1 do
        Sheet.Cells[Row + 1, Col + 1] := StringGrid1.Cells[Col, Row];
 
    ExcelApp.ActiveWorkbook.SaveAs(GetExcelFileName);
 
    ShowMessage('Ok!');
  finally
    ExcelApp.Application.Quit;
    ExcelApp := unassigned;
    Sheet := Unassigned;
  end;
//*******************
end;
В чем может быть проблема? Прошу очень Вашей помощи...
Миниатюры
Ошибки при экспорте из StringGrid в Excel   Ошибки при экспорте из StringGrid в Excel  
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
24.03.2015, 15:44
Ответы с готовыми решениями:

Как выгрузить процесс Excel из памяти при экспорте данных из ASP.Net (C#) в Excel?
Здравствуйте! Как выгрузить процесс Excel из памяти при экспорте данных из ASP.Net (C#) в Excel? Вопрос обсуждается везде и много...

StringGrid, как сохранить цвет при экспорте?
Добрый день! Помогите мне пожалуйста. у меня есть stringgrid закрашиваю его так procedure TForm1.StringGrid1DrawCell(Sender: TObject;...

Иероглифы при экспорте данных из таблицы StringGrid в файл
Пишу программу, выполняющую расчёты по заданным в программе формулам, используя данные, которые загружаются из XML-файлов. На...

11
Эксперт Pascal/Delphi
 Аватар для droider
4882 / 2819 / 862
Регистрация: 04.10.2012
Сообщений: 10,248
24.03.2015, 15:59
Цитата Сообщение от EVG! Посмотреть сообщение
Так же напрягает не совсем корректное открытие файла Екселем
А Вы сохраняйте его нормально, сопоставив с соответствующим расширением.
0
5 / 5 / 1
Регистрация: 21.11.2010
Сообщений: 72
24.03.2015, 17:07  [ТС]
Я сопоставляю...
Извиняюсь, забыл поместить в листинг:

Delphi
1
2
const
  EXCEL_FILE_EXT = '.xls';
Где закралась неточность?

Добавлено через 20 минут
Вот так вроде бы нормально сохраняет:
Delphi
1
Sheet.Cells[Row + 1, Col + 1] := '''' + StringGrid1.Cells[Col, Row];
Но ругается на формат при открытии все равно.
0
Эксперт Pascal/Delphi
 Аватар для droider
4882 / 2819 / 862
Регистрация: 04.10.2012
Сообщений: 10,248
24.03.2015, 17:37
Цитата Сообщение от EVG! Посмотреть сообщение
ругается на формат при открытии все равно
Решение "в лоб":
В меню Пуск пункт Выполнить, введите команду regedit и нажмите кнопку ОК.
Найдите и выделите следующий подраздел реестра:
HKEY_CURRENT_USER\Software\Microsoft\Off ice\<номер версии>\Excel\Security
В меню Правка выберите пункт Создать, а затем — Параметр DWORD.
Введите ExtensionHardening и нажмите клавишу ВВОД.
Щелкните параметр ExtensionHardening правой кнопкой мыши и выберите команду Изменить.
В поле Значение введите значение параметра и нажмите кнопку ОК.

Далее перечислены подходящие значения параметра ExtensionHardening:
0: не проверять расширение имени файла и тип файла, а также обойти функцию предупреждающего сообщения.
1: проверить расширение имени файла и тип файла. Если они не совпадают, отображать предупреждающее сообщение.
2: проверить расширение имени файла и тип файла. Если они не совпадают, не открывать этот файл.
По-простому: добавить в код перед созданием книги
Delphi
1
ExcelApp.DisplayAlerts :=False;
Не катит?
0
Житель Земли
 Аватар для DenNik
3004 / 3026 / 390
Регистрация: 26.07.2011
Сообщений: 11,465
Записей в блоге: 1
24.03.2015, 17:47
Цитата Сообщение от EVG! Посмотреть сообщение
у всех ячеек формат ч:мм:сс, а у одной - "общий").
так ты назначь всем ячейкам формат "общий"
0
Эксперт Pascal/Delphi
 Аватар для droider
4882 / 2819 / 862
Регистрация: 04.10.2012
Сообщений: 10,248
24.03.2015, 17:48
Лучший ответ Сообщение было отмечено EVG! как решение

Решение

И еще попробуйте
Delphi
1
EXCEL_FILE_EXT = '.xlsx'; //для новых версий
0
5 / 5 / 1
Регистрация: 21.11.2010
Сообщений: 72
24.03.2015, 17:56  [ТС]
Цитата Сообщение от droider Посмотреть сообщение
По-простому: добавить в код перед созданием книги
Так - все равно ругается на формат, единственное изменение, теперь если файл уже существует, то не спрашивает перезаписать или нет, сразу перезаписывает.

С реестром - не получится в виду, что программа для проведения наших местных соревнований и будет использоваться на разных . Попросили помочь, пришлось вспоминать делфи)

Вроде бы сейчас работает, в принципе можно и так отдать, но хочется нормального сохранения, где-то во время создания файла я что-то упускаю....

Добавлено через 3 минуты
Цитата Сообщение от droider Посмотреть сообщение
И еще попробуйте
Код Delphi
1
EXCEL_FILE_EXT = '.xlsx'; //для новых версий
Во! Вот так работает и не ругается)) В чем проблема то с классическим разрешением? Была мысль попробовать, но отогнал ее от себя - мол, какая разница.
Спасибо!

Добавлено через 2 минуты
Цитата Сообщение от DenNik Посмотреть сообщение
так ты назначь всем ячейкам формат "общий"
как это сделать средствами делфи?
как писал выше - сделал вот такой костыль (теперь все форматы - общий):
Delphi
1
Sheet.Cells[Row + 1, Col + 1] := '''' + StringGrid1.Cells[Col, Row];
ЗЫ. Я больше сисадмин, потому костыль, а так наверное правильнее - фича))) Извините за оффтоп.
0
Житель Земли
 Аватар для DenNik
3004 / 3026 / 390
Регистрация: 26.07.2011
Сообщений: 11,465
Записей в блоге: 1
24.03.2015, 18:01
EVG!, почитай эту книгу
Название: Программирование документов и приложений MS Office в Delphi
Автор: Василий Корняков
Издательство: БХВ-Петербург
Год: 2005
ISBN: 5-94157-458-4
Добавлено через 1 минуту
еще подсказка. многое можно узнать при помощи макросов. ты записываешь какое-то действи в Экселе макросом. потом смотришь код VBA, его можно легко адаптировать в паскаль, особенно, когда прочитаешь книгу и будешь знать принципы работы с экселем из Делфи
1
5 / 5 / 1
Регистрация: 21.11.2010
Сообщений: 72
24.03.2015, 18:07  [ТС]
Спасибо!
0
Житель Земли
 Аватар для DenNik
3004 / 3026 / 390
Регистрация: 26.07.2011
Сообщений: 11,465
Записей в блоге: 1
24.03.2015, 18:12
вот пример макроса
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Макрос1()
'
' Макрос1 Макрос
'
 
'
    Range("A1").Select
    Selection.Font.Bold = True
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
End Sub
код на делфи
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
  E: OleVariant;
  Range: OleVariant;
begin
  E:= CreateOleObject('Excel.Application');
  E.WorkBooks.Add;
  Range:= E.ActiveWorkbook.Worksheets[1].Range['A1'];
  Range.Value:= 'Hello';
  Range.Font.Bold:= True;
  Range.Font.Color:= clRed;
  E.Visible:= true;
end;
результат
0
Житель Земли
 Аватар для DenNik
3004 / 3026 / 390
Регистрация: 26.07.2011
Сообщений: 11,465
Записей в блоге: 1
24.03.2015, 18:14
а с большими объемам ячеек удобнее работать через вариантные массивы
0
5 / 5 / 1
Регистрация: 21.11.2010
Сообщений: 72
24.03.2015, 18:18  [ТС]
Сегодня будет интересная ночь) Давно не сидел за делфи, ушел в другую область.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
24.03.2015, 18:18
Помогаю со студенческими работами здесь

Ошибки при экспорте в swf ролик
Выдает ошибки при компиляции, облазил форумы, так и не разобрался, помогите пожалуйста. Скрин ошибок во вложениях. package { ...

кодировкой при экспорте в Excel
Доброго времени суток всем!!!! Response.ContentType = &quot;text/csv&quot;; Response.AddHeader(&quot;Content-Disposition&quot;, &quot;attachment;...

Названия при экспорте в Excel
Добрый день, может кто подскажет, как разрешить вот такие проблемки: Есть запрос, который нужно экспортировать в Excel. При этом нужно...

Покраска Excel при экспорте
Добрый день, нужно покрасить определенные столбцы в другой цвет, но проблема в том, что он красит не только столбцы, но и все ячейки до...

Ошибка при экспорте в Excel
Здравствуйте! При нажатии на кнопку Excel получаю ошибку: Control 'GridView1' of type 'GridView' must be placed inside a form tag with...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru