|
IXMLDOMNode.Attributes
|
|||
---|---|---|---|
#18+
В экселевском макросе имеется функция с примерно таким кодом: Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9.
в vNodeTable данные загружаются. vNodeTable.nodeName - работает, а вот дальше при попытке доступа к Attributes или childNodes.Length происходит compile error и On Error не отлавливает её. При этом через Watch могу посмотреть и содержание всех аттрибутов и детей. При этом как я понял на 2000 офисе это всё работало, а на 2007 начало выдавать такую ерунду. Если закомментить строки обращения к этим параметрам, то compile error не происходит. В чем может быть причина? Может появились новые функции доступа к параметрам? googlить пробовал, голову уже сломал. ... |
|||
:
Нравится:
Не нравится:
|
|||
10.06.2011, 15:24 |
|
IXMLDOMNode.Attributes
|
|||
---|---|---|---|
#18+
Немного дополню: ошибка которая возникает: Compile error Function or interface marked as restricted or uses a type not supported in Visual Basic на момент входа в функцию. Если во время отладки, комментировать тревожащий компилятор код, то отладчик работает дальше, если разкомментить, то соответственно ошибка. ... |
|||
:
Нравится:
Не нравится:
|
|||
10.06.2011, 15:29 |
|
IXMLDOMNode.Attributes
|
|||
---|---|---|---|
#18+
Создайте чистый проект в экселе и повторите ситуацию. Если сработает, ищите отличия, если нет — выкладывайте. ... |
|||
:
Нравится:
Не нравится:
|
|||
10.06.2011, 18:23 |
|
IXMLDOMNode.Attributes
|
|||
---|---|---|---|
#18+
повторить и выложить достаточно тяжело, так как экселевский документ со скриптами весит более мегабайта (учитывая что самих таблиц там только один маленький лист) и всё это добро, которое в нем творится я не до конца понимаю. Но, что касается озвученного выше вопроса, нашел странное решение: Раз удается получить nodeName, то значит нода существует, то следующим кодом удается получить список аттрибутов без ошибки: Dim oNamedNodeMap As IXMLDOMNamedNodeMap Set xmlNodeList = vDocEstInfo.getElementsByTagName(nodeName) If xmlNodeList.Length > 0 Then Set oNamedNodeMap = vDocEstInfo.getElementsByTagName(nodeName).Item(0).Attributes If Not IsNull(oNamedNodeMap) Then For Each vAttribute In oNamedNodeMap '''''''''''''''''''' Next vAttribute end if Баг ли это.... или непонятно что или решение таится в закрытых секциях мсдн... ... |
|||
:
Нравится:
Не нравится:
|
|||
15.06.2011, 10:48 |
|
|
start [/forum/topic.php?fid=60&msg=37304427&tid=2158623]: |
0ms |
get settings: |
7ms |
get forum list: |
11ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
39ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
42ms |
get tp. blocked users: |
1ms |
others: | 13ms |
total: | 129ms |
0 / 0 |