Форум: "Основная";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];
ВнизОпять 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 нажимать пробовал?
← →
Ich Hasse (2003-05-18 20:38) [2]
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); //активация первого листа
я делал так, с сохранением не пробовал. Попробуй так
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c