Текущий архив: 2002.03.28;
Скачать: CL | DM;

Вниз

Подскажите, как запустить Excel и передать в него данные?   Найти похожие ветки 

← →
lightix ©   (2002-03-13 15:11) [0]

Как передать данные в Excel- файл я знаю, а вот как запустить Excel и передать данные не в файл а в открытый Excel? Что нужно поменять в нижеследующем коде?

Var i,j : Integer;
exl: OLEVariant;
WorkBook,Sheet : Variant;
begin
try
exl := CreateOleObject("Excel.Application");
WorkBook := exl.Application.WorkBooks.Add;
Sheet := WorkBook.WorkSheets[1];
Sheet.Cells(1,1) := "qwertyuiop";
exl.Application.ActiveWorkBook.Saveas("ФАЙЛ.xls");
finally
exl.Application.Quit;
end;

---

← →
Кулюкин Олег ©   (2002-03-13 16:24) [1]

Вместо exl.Application.ActiveWorkBook.Saveas("ФАЙЛ.xls");
сделать
exl.Visible := true;

---

← →
Иван Шихалев ©   (2002-03-13 16:30) [2]

И finally exl.Application.Quit убрать

---

← →
fag2000@ok.ru ©   (2002-03-13 17:18) [3]

Для работы с Exell очень полезно почитать справку по VBA.

---

← →
olookin ©   (2002-03-13 17:25) [4]

У меня все работает с таким кодом:

ExcelApplication: Variant;

ExcelApplication:=CreateOleObject("Excel.Application");
ExcelApplication.Application.Workbooks.Add();
ExcelApplication.Application.ActiveWorkbook.Sheets.Add();
ExcelApplication.Application.ActiveWorkbook.ActiveSheet.Name:="jjj";
ExcelApplication.Application.ActiveWorkbook.
Sheets[SheetName].Cells[1,1].FormulaR1C1:="dddddd";

ExcelApplication.Application.ActiveWorkbook.SaveAs (FileName:="E:\1.xls",
FileFormat:=-4143,Password:="",WriteResPassword:="",
ReadOnlyRecommended:=False,CreateBackup:=False);
ExcelApplication.Quit;
ExcelApplication:=0; //последняя строка очень важна

---

← →
lightix ©   (2002-03-14 11:54) [5]

Спасибо, получилось!
А вот подскажите еще как интерпретировать VIsual Basic в Pascal?
Почему-то не получается работать с Sheet.Cells.Selection ????
И как выделять по номеру строки/столбца а не по буквам?

---

Страницы: 1 вся ветка

Текущий архив: 2002.03.28;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.012 c