Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 01.05.2011, 22:45   #1
A-IX-2
Форумчанин
 
Аватар для A-IX-2
 
Регистрация: 08.10.2010
Сообщений: 101
По умолчанию После сохранения в файл *.xls при открытии этого файла выдается предупреждение. Как от этого избавиться?

Текст предупреждения: "Действительный формат открываемого файла (Результат.xls) отличается от указываемого его расширением имени файла. Перед открытием данного файла убедитесь, что он не поврежден и получен из надежного источника. Открыть файл сейчас?" ( да нет справка)
При нажатии на кнопку Да файл открывается нормально, но хотелось бы, чтобы этого предупреждения не было. Думаю, при сохранении нужно что-то добавить/убрать.
Вот так сохраняю в .xls:
Код:
procedure TForm1.N3Click(Sender: TObject);
var
  Excel, WorkBook, Sheet:variant;
  i, j: integer;
  FName: string;
begin
  if SaveDialog1.Execute then FName := SaveDialog1.FileName
  else Exit;
  Excel:=CreateOleObject('Excel.Application');
  Excel.DisplayAlerts:=False;
  Excel.Visible:= False;
  Workbook:=Excel.Workbooks.Add;
  Workbook.SaveAs(FName);
  Sheet:= Workbook.ActiveSheet;
  for i:= 0 to StringGrid1.RowCount - 1 do
  begin
    for j:= 0 to StringGrid1.ColCount - 1 do
    begin
      If i=0 then Sheet.Cells[i+1, j+1]:=StringGrid1.Cells[j, i]
      else
      Sheet.Cells[i+1, j+1]:=StrToFloat(StringGrid1.Cells[j, i]);
    end;
  end;
  Workbook.Save;
  Workbook.Close;
  Excel.Quit;
  Excel:= UnAssigned;
end;
"Думаешь, будет трудно? Конечно, будет! Но, только закаляя дух, людьми становятся люди!"

Последний раз редактировалось A-IX-2; 02.05.2011 в 09:32.
A-IX-2 вне форума
Старый 13.11.2011, 20:33   #2
malor
Форумчанин
 
Регистрация: 23.05.2007
Сообщений: 151
Вопрос

Начиналось все в Delphi XE так:
ExcelApp := CreateOleObject('Excel.Application' );
и сохранялось в xls-файл.

Открываю в MS Office 2007 -


Как это обойти?

WinXP SP3

2. Не оффтопить. Оффтопом считается создание темы, не соответствующей названию раздела, вопрос или пост не по теме, или попытка перевода темы в русло другого вопроса.
Также к оффтопу приравнивается размещение своих личных вопросов в чужой теме, пусть даже и подходящей по смыслу. Есть вопрос - создайте свою тему.
И запомните - на форуме действуют правила "Одна тема - один вопрос", "Одна тема - один автор".
Сюда же относится и кросспостинг - размещение нескольких экземпляров своей "драгоценной" темы.

За оффтоп нарушитель получит нарушение №1.

Последний раз редактировалось mihali4; 13.11.2011 в 21:09.
malor вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как убрать пустые строки при открытии XLS файла Des Общие вопросы Delphi 1 06.11.2010 09:13
Не удаляется файл, не закрыты все потоки для этого файла oirren Общие вопросы по Java, Java SE, Kotlin 1 20.12.2009 21:12
Вот и верь СМИ после этого Роман Радер Свободное общение 13 29.10.2009 17:40
как избавиться от рекламных роликов которые выскакивают при открытии нового окна и не закрываются Jasper92 Свободное общение 4 10.05.2009 23:41