Добрый день, уважаемые форумчане
подскажите, пожалуйста, как програмно
выбрать из XML-схемы нужные мне поля и вставить в нужные ячейки.
Использую вот такой макрос но он работает только на этапе импорта схемы:
П.С. Запись вышеупомянутой операции макрописцем ничего не дала, он почему-то ничего незафиксировал 
подскажите, пожалуйста, как програмно
выбрать из XML-схемы нужные мне поля и вставить в нужные ячейки.
Использую вот такой макрос но он работает только на этапе импорта схемы:
| Код |
|---|
Sub ImportXMLSchema()
Dim xmMap As XmlMap, strXPath As String
Application.DisplayAlerts = False
Set xmMap = ActiveWorkbook.XmlMaps.Add("D:\Мои документы\Вересень 2014\22.09.2014 ГУ46 22090343.xml", "egu46")
Application.DisplayAlerts = True
xmMap.AdjustColumnWidth = False
xmMap.PreserveNumberFormatting = True
strXPath = "wagon_num"
ActiveSheet.[a1].XPath.SetValue xmMap, strXPath ' Строка не работает
Set xmMap = Nothing
End Sub
|
