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