|
Вопрос # 197/ вопрос открыт / |
|
Как сохранить сформированную таблицу Excel с заданным именем?
Я открываю исходную таблицу ID1.XLS(он открывает файл, как ID11.XLS), заполняю нужные таблицы, а теперь нужно сохранить файл с именем, который задал пользователь SaveDialog'ом! Как это сделать? (Использую Delphi6)
Приложение: Переключить в обычный режим-
- Var
- n,n2 : OleVariant;
-
- ....
-
- n2:= GetCurrentDir + 'ID1.xls';
- n:= CreateOleObject('Excel.Application');
- n.Workbooks.Add(n2);
-
- ...
-
-
- n.ActiveWorkBook.WorkSheets[2].Cells[11+i,1]:=IBTable1.FieldByName('Code').Asstring;
-
n.ActiveWorkBook.WorkSheets[2].Cells[11+i,2]:=IBTable1.FieldByName('Name').Asstring;
-
-
 |
Вопрос задал: 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 (статус: Посетитель), 15 декабря 2006, 10:10 [#1]:
Ну значит Saveas - ответ системы "Method 'Saveas' not supported by automation object"!
Что делать?
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
