powered by simpleCommunicator - 2.0.49     © 2025 Programmizd 02
Форумы / Oracle Forms [игнор отключен] [закрыт для гостей] / Открытие файла XML в Excel посредством OLE2
7 сообщений из 7, страница 1 из 1
Открытие файла XML в Excel посредством OLE2
    #38718020
xmlщик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день. Помогите решить задачку! Нужно открыть через OLE2 XML в Excel. Т.е. как релизовать через OLE2 такой код VBA
Sub UseOpenXML()
Application.Workbooks.OpenXML _
Filename:="customers.xml", _
LoadOption:=xlXmlLoadImportToList
End Sub
...
Рейтинг: 0 / 0
Открытие файла XML в Excel посредством OLE2
    #38718298
Leonid Kudryavtsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И в чем проблема?

поиском, даже по данному форуму, нарыть примеры открытия файла в Excel через OLE2 делов на 2-е минуты
...
Рейтинг: 0 / 0
Открытие файла XML в Excel посредством OLE2
    #38718332
xmlщик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
да это все понятно у меня загвоздка только в передаче списка xml а именно как добавить параметр LoadOption:=xlXmlLoadImportToList, все остальное понятно и решено
...
Рейтинг: 0 / 0
Открытие файла XML в Excel посредством OLE2
    #38718474
Leonid Kudryavtsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
xmlщиккак добавить параметр LoadOption:=xlXmlLoadImportToList, все остальное понятно и решено
С чем конкретно проблема:
1. как добавить параметр LoadOption
2. с xlXmlLoadImportToList

Желательно все же привести свой код.
...
Рейтинг: 0 / 0
Открытие файла XML в Excel посредством OLE2
    #38718950
xmlщик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
.....
application := ole2.create_obj('Excel.Application');

workbooks := ole2.get_obj_property(application, 'Workbooks');


--LoadOpt := ole2.invoke_obj(workbooks,'xlXmlLoadImportToList');
-- OLE2.ADD_ARG_OBJ(argss, LoadOpt);
--argss := ole2.create_arglist;
--ole2.add_arg(argss,LoadOpt);

args:= ole2.create_arglist;
ole2.add_arg(args,v_file_name);
--Здесь думаю должно быть что-то типа
-- ole2.add_arg(args, 'xlXmlLoadImportToList'); --Но так как это не текстовый параметр то конечно будет ошибка

workbook := ole2.invoke_obj(workbooks, 'OpenXML', args);
......
...
Рейтинг: 0 / 0
Открытие файла XML в Excel посредством OLE2
    #38718964
OldBoyOdeSu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
xmlщик,

Попробуй так примерно, только со вторым параметром я не знаю как быть
CLIENT_OLE2.ADD_ARG(args, null); --[Stylesheets] Вот с этим, он не обязательный, но как его пропустить х.з. Будет работать или может надо что то другое подсунуть сюда, надо пробовать

application := CLIENT_OLE2.create_obj('Excel.Application');
workbooks := CLIENT_OLE2.Get_Obj_Property(application, 'Workbooks');
--Function OpenXML(Filename As String, [Stylesheets], [LoadOption])
--
args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, 'C:\MyXML.xml'); --Filename As String
CLIENT_OLE2.ADD_ARG(args, null); --[Stylesheets]
CLIENT_OLE2.ADD_ARG(args, 2); --[LoadOption] Const xlXmlLoadImportToList = 2
CLIENT_OLE2.INVOKE(workbooks,'OpenXML',args);
...
Рейтинг: 0 / 0
Открытие файла XML в Excel посредством OLE2
    #38718975
xmlщик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо огромное OldBoyOdeSu за помощь все получилось! У меня 6-ка поэтому так.

args := CLIENT_OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 'C:\MyXML.xml'); --Filename As String
OLE2.ADD_ARG(args, 1) ; --[Stylesheets] и здесь нужно значение указать
OLE2.ADD_ARG(args, 2); --[LoadOption] Const xlXmlLoadImportToList = 2
OLE2.INVOKE(workbooks,'OpenXML',args);
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Oracle Forms [игнор отключен] [закрыт для гостей] / Открытие файла XML в Excel посредством OLE2
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]