|
Открытие файла XML в Excel посредством OLE2
|
|||
---|---|---|---|
#18+
Добрый день. Помогите решить задачку! Нужно открыть через OLE2 XML в Excel. Т.е. как релизовать через OLE2 такой код VBA Sub UseOpenXML() Application.Workbooks.OpenXML _ Filename:="customers.xml", _ LoadOption:=xlXmlLoadImportToList End Sub ... |
|||
:
Нравится:
Не нравится:
|
|||
12.08.2014, 12:44 |
|
Открытие файла XML в Excel посредством OLE2
|
|||
---|---|---|---|
#18+
И в чем проблема? поиском, даже по данному форуму, нарыть примеры открытия файла в Excel через OLE2 делов на 2-е минуты ... |
|||
:
Нравится:
Не нравится:
|
|||
12.08.2014, 14:59 |
|
Открытие файла XML в Excel посредством OLE2
|
|||
---|---|---|---|
#18+
да это все понятно у меня загвоздка только в передаче списка xml а именно как добавить параметр LoadOption:=xlXmlLoadImportToList, все остальное понятно и решено ... |
|||
:
Нравится:
Не нравится:
|
|||
12.08.2014, 15:19 |
|
Открытие файла XML в Excel посредством OLE2
|
|||
---|---|---|---|
#18+
xmlщиккак добавить параметр LoadOption:=xlXmlLoadImportToList, все остальное понятно и решено С чем конкретно проблема: 1. как добавить параметр LoadOption 2. с xlXmlLoadImportToList Желательно все же привести свой код. ... |
|||
:
Нравится:
Не нравится:
|
|||
12.08.2014, 16:13 |
|
Открытие файла XML в Excel посредством OLE2
|
|||
---|---|---|---|
#18+
..... 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); ...... ... |
|||
:
Нравится:
Не нравится:
|
|||
13.08.2014, 07:50 |
|
Открытие файла XML в Excel посредством OLE2
|
|||
---|---|---|---|
#18+
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); ... |
|||
:
Нравится:
Не нравится:
|
|||
13.08.2014, 08:15 |
|
Открытие файла XML в Excel посредством OLE2
|
|||
---|---|---|---|
#18+
Спасибо огромное 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); ... |
|||
:
Нравится:
Не нравится:
|
|||
13.08.2014, 08:40 |
|
|
start [/forum/topic.php?fid=51&fpage=8&tid=1878151]: |
0ms |
get settings: |
11ms |
get forum list: |
14ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
82ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
47ms |
get tp. blocked users: |
2ms |
others: | 10ms |
total: | 190ms |
0 / 0 |