Опять ExcelApplication

← →
edicon © (2003-05-18 19:23) [0]

Уважаемые мастера!!! помогите еще разок (я всеже добью этот
злобный продукт от MS)
Работаю с ExcelApplication. Все параметры посмотрел, компилирует
без проблем а вот на стадии выполнения виснет... ПОЧЕМУ?????????

var
WorkBk1 : _WorkBook; // определяем WorkBook
WorkSheet : _WorkSheet; // определяем WorkSheet
IIndex: OleVariant;
begin

// Соединяемся с сервером TExcelApplication
XLApp.Connect;
// Добавляем WorkBooks в ExcelApplication
XLApp.WorkBooks.Open("c:\1.xls",EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam); на этом месте программа виснет
// Выбираем первую WorkBook
IIndex:=1;
WorkBk1 := XLApp.WorkBooks.Item[IIndex];
// Определяем первый WorkSheet
WorkSheet := WorkBk1.WorkSheets.Get_Item(1) as _WorkSheet;

//Сохраняю получившийся документ, если сверху закомментировать
// открытие док-та и создать новый: XLApp.WorkBooks.Add(xlWBatWorkSheet,0);
// то виснет на сохранении...
// xlApp.ActiveWorkBook.SaveAs("c:\2.xls",EmptyParam,EmptyParam,EmptyParam,EmptyParam,
// EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

// Показываем Excel
XLApp.Visible[0] := True;

// Разрываем связь с сервером
XLApp.Disconnect;
end;

P.S. Поскольку работаю с ExcelApplication исправьте меня применительно
к нему, без всяких поздних связываний, а то я совсем запутаюсь...

Заранее благодарю!!!!!!!!!!!!!!!!!!!

← →
Романов Р.В. © (2003-05-18 20:12) [1]

F7 нажимать пробовал?

const xlLCID = LOCALE_USER_DEFAULT; Excel.Connect; Excel.Workbooks.Open(FileName, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, false, xlLCID); (Excel.Worksheets.Item[1] as _Worksheet).Activate;(xlLCID); //активация первого листа

я делал так, с сохранением не пробовал. Попробуй так

Опять ExcelApplication Найти похожие ветки