| 
 | 
| 
 
Открытие файла 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&msg=38718020&tid=1878151]:  | 
    0ms | 
get settings:  | 
    9ms | 
get forum list:  | 
    13ms | 
check forum access:  | 
    4ms | 
check topic access:  | 
    4ms | 
track hit:  | 
    61ms | 
get topic data:  | 
    10ms | 
get forum data:  | 
    2ms | 
get page messages:  | 
    51ms | 
get tp. blocked users:  | 
    1ms | 
| others: | 12ms | 
| total: | 167ms | 

| 0 / 0 | 

    Извините, этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
    
    
    «На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
    
    
    ... ля, ля, ля ...