Excel и Delphi
Как в делфи открыть файл Эксель?
У шестой дельфи есть готовые компоненты для оле серверов, их можно передрать в дельфи и пониже. Вот небольшой кусок, как с их помощью открыть экселевский документ.
ExcelApplication.Connect;
except
MessageDlg('Microsoft Excel Not Installed', mtError, [mbOk], 0);
exit;
end;
st := IniFile.ReadString('TemplatesFr',GetTemplateForm.ListBox.Items.Strings[GetTemplateForm.Result],'');
ExcelApplication.Workbooks.Open(<полный путь к файлу>,0,true,1,'','',true,xlWindows,',',true,true,0,false,0);
ExcelWorkbook.ConnectTo(ExcelApplication.Workbooks.Item[1]);
ExcelWorkbook.Activate;
ExcelApplication.Visible[0] := true;
А дальше работаем с ВоркБуком.
Вроде всё.
ExcelApplication.Connect;
except
MessageDlg('Microsoft Excel Not Installed', mtError, [mbOk], 0);
exit;
end;
st := IniFile.ReadString('TemplatesFr',GetTemplateForm.ListBox.Items.Strings[GetTemplateForm.Result],'');
ExcelApplication.Workbooks.Open(<полный путь к файлу>,0,true,1,'','',true,xlWindows,',',true,true,0,false,0);
ExcelWorkbook.ConnectTo(ExcelApplication.Workbooks.Item[1]);
ExcelWorkbook.Activate;
ExcelApplication.Visible[0] := true;
А дальше работаем с ВоркБуком.
Вроде всё.
Цитата:
Originally posted by zamei
Как в делфи открыть файл Эксель?
Как в делфи открыть файл Эксель?
Еще вариант на заметку
if XLApp.Workbooks.Count<>0 then
begin
wb.Close(true);
ws.Disconnect;
wb.Disconnect;
end;
wb.ConnectTo(XLApp.Workbooks.Open(FileName,
UpdateLinks, ReadOnly, Format, Password,
WriteResPassword, IgnoreReadOnlyRecommended,
Origin, Delimiter, Editable, Notify, Converter, AddToMru, lcid));
wb.Activate(lcid);
ws.ConnectTo(wb.Worksheets[1] as _Worksheet);
ws.Activate(lcid);
Все имеет тип OleVariant
кроме FileName -- AnsiString
wb -- ExcelWorkbook
ws -- ExcelWorkSheet
XLApp -- ExcelApplication
советую посмотреть хелпу по VBA
в стандартной поставке офиса ога есть
P.S. что такое lcid не знаю
скорее всего, что-то вроде ID приложения
lcid - Это Class ID
Для каждой оле хрени есть свой класс, он прописан в реестре. Прописывается при регистрации оле компонент, выглядит как {и тут много цифер через минусы}.
Для каждой оле хрени есть свой класс, он прописан в реестре. Прописывается при регистрации оле компонент, выглядит как {и тут много цифер через минусы}.