VPF::Как правильно из Delphi открыть XML-файл в Excel

Slawanix

Дата 15.4.2010, 11:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 177
Регистрация: 29.7.2004
Где: г. Великие Луки

Репутация: нет
Всего: 1

Доброго дня, друзья!
У меня стоит такая задача - хочу с помощью Delphi7 отправить в Excel файл XML.
То есть, в самой Дельфи я не делаю никакой обработки XML-файла а просто запускаю Excel и кидаюсь в него XML-файлом.
Дальше уже внутри Excel я собираюсь его средствами Дельфи обрабатывать.
Делаю я это вот так:

Код


procedure TForm1.btn1Click(Sender: TObject);
begin
 if dlgOpenXML.Execute then
 begin
  E:=CreateOleObject('Excel.Application');
  E.WorkBooks.Add;
  E.Workbooks.Open(dlgOpenXML.FileName,ReadOnly:=True);
  E.Visible:=True;
 end;
end;

Проблема в том, что файл открывается таким способом как простой xls, в виде таблицы, некорректно отображая структуру и содержание XML. Я же хочу сделать так, как это делает сам Excel, когда им открываешь XML-файл, он спрашивает в каком виде открыть, в виде XML-таблицы или еще там варианты. И когда я в его окошке выбираю в виде XML-таблицы, он красиво его открывает.
Когда я попробовал сделать макрос в VB Excel, там прописывается параметр LoadOption=xmlToXMLTable, или чет-типа этого. Как такую опцию сделать в Дельфи? smile

Нашел решение, подсмотрел как VB макрос делает, только в Delphi это выглядит вот так:

Код


procedure TForm1.btn1Click(Sender: TObject);
var LoadOption:Variant;
begin
 if dlgOpenXML.Execute then
 begin
  E:=CreateOleObject('Excel.Application');
  E.Workbooks.OpenXML(dlgOpenXML.FileName,LoadOption:=2);
  E.Visible:=True;
 end;
end;

и очень красиво открывается, так как мне и нужно smile

Спасибо всем.

Это сообщение отредактировал(а) Slawanix - 15.4.2010, 11:54

--------------------

моск кипит

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »