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

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

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 197

/ вопрос открыт /

Как сохранить сформированную таблицу Excel с заданным именем?
Я открываю исходную таблицу ID1.XLS(он открывает файл, как ID11.XLS), заполняю нужные таблицы, а теперь нужно сохранить файл с именем, который задал пользователь SaveDialog'ом! Как это сделать? (Использую Delphi6)

Приложение:
  1.  
  2. Var
  3. n,n2 : OleVariant;
  4.  
  5. ....
  6.  
  7. n2:= GetCurrentDir + 'ID1.xls';
  8. n:= CreateOleObject('Excel.Application');
  9. n.Workbooks.Add(n2);
  10.  
  11. ...
  12.  
  13.  
  14. n.ActiveWorkBook.WorkSheets[2].Cells[11+i,1]:=IBTable1.FieldByName('Code').Asstring;
  15. n.ActiveWorkBook.WorkSheets[2].Cells[11+i,2]:=IBTable1.FieldByName('Name').Asstring;
  16.  
  17.  


RedMask Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: RedMask (статус: Посетитель)
Вопрос отправлен: 15 декабря 2006, 09:28
Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: PaVeL-Ekt

Здравствуйте, RedMask!

n.saveas(opendialog1.filename);

Ответ отправил: PaVeL-Ekt (статус: 2-ой класс)
Время отправки: 15 декабря 2006, 09:43
Оценка за ответ: 4

Комментарий к оценке: Хороший и правельный ответ, поставил 5 бы если сработало :-)

Ответ #2. Отвечает эксперт: Помфюк Владимир Степанович

Здравствуйте, RedMask!
n.ActiveWorkbook.SaveAs(opendialog1.filename);
или так
n3:=n.Workbooks.Add(n2);
n3.SaveAs(opendialog1.filename);

Ответ отправил: Помфюк Владимир Степанович (статус: Абитуриент)
Время отправки: 15 декабря 2006, 10:14
Оценка за ответ: 5

Комментарий к оценке: Спасибо большое) Помог первый вариант) Как гора с плеч!

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

Всего сообщений: 1; последнее сообщение — 15 декабря 2006, 10:10; участников в обсуждении: 1.
RedMask

RedMask (статус: Посетитель), 15 декабря 2006, 10:10 [#1]:

Ну значит Saveas - ответ системы "Method 'Saveas' not supported by automation object"!
Что делать?

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

Версия движка: 2.6+ (26.01.2011)
Текущее время: 27 июня 2017, 15:19
Выполнено за 0.03 сек.
Рейтинг@Mail.ru