Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Подскажите, как запустить Excel и передать в него данные? [D5, Win2k]

lightix © (2002-03-13 15:11:00)
Как передать данные в 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;

lightix (2002-03-14 11:54:00) [1]
Спасибо, получилось!
А вот подскажите еще как интерпретировать VIsual Basic в Pascal?
Почему-то не получается работать с Sheet.Cells.Selection ????
И как выделять по номеру строки/столбца а не по буквам?

olookin (2002-03-13 17:25:00) [2]
У меня все работает с таким кодом:

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; //последняя строка очень важна

fag2000@ok.ru (2002-03-13 17:18:00) [3]
Для работы с Exell очень полезно почитать справку по VBA.

Иван Шихалев (2002-03-13 16:30:00) [4]
И finally exl.Application.Quitубрать

Кулюкин Олег (2002-03-13 16:24:00) [5]
Вместо exl.Application.ActiveWorkBook.Saveas("ФАЙЛ.xls");
сделать
exl.Visible := true;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »