EXCEL, создайте XML файл из данных в таблице через код vba

EXCEL

Файл luxom2xlm доступен по адресу https://www.dropbox.com/sh/f3dd2aby8wxpn5x/AAAOqaUV9LvtgrNghMT71AkHa?dl=0

Есть также скриншоты (потому что мне не разрешено вставлять в него картинки, у меня нет 10 репутаций... коррекция кажется, что я был неправ)

vba для создания XML файла https://www.dropbox.com/s/6vr30uydv9kmgqq/EXCEL_luxom_macro.PNG?dl=0

формула не работает "непоследовательная ошибка" в excel2013- https://www.dropbox.com/s/mnpaurktpj39o21/EXCEL_luxom_columns.PNG?dl=0

(К сожалению, мне просто разрешили задавать один вопрос в день, поэтому завтра я открою новый вопрос...) (не лучшее решение для решения непоследовательных проблем, но это единственное, что я нашел до сих пор - см. Комментарий)

1. vba code: создать XML файл

Я пытаюсь выяснить, как сделать макрос для извлечения данных непосредственно из таблицы и создания XML файла и проверить его с помощью XSD файла. Вручную он работает штрафом, поэтому я записал код vba.

Но, к сожалению, это, похоже, не сработает.

' REF VBA - http://www.globaliconnect.com/excel/index.php?option=com_content&view=article&id=162:excel-vba-calling-sub-procedures-a-functions-placement-in-modules&catid=79&Itemid=475
' EXCEL - http://excelcentral.com

Sub Export2XML()
'
' export2XML Macro
'
' REF : http://office.microsoft.com/en-gb/excel-help/export-xml-data-HP010206401.aspx
'

'
 Path_Name = Sheets("info").Range("c21").Value ' Path_Name = E:\luxom.xml

 'work sheet luxom_input
 Sheets("luxom_input").Select

 'where Luxom__Elements_In_Output_Map is the root element of the XSD-file
 'which is used as reference

 'method 1 created via a record macro doesn't work
 ActiveWorkbook.XmlMaps("Luxom__Elements_In_Output_Map").export URL:= _
 "E:\luxom.xml"

 'method 2 
 ActiveWorkbook.XmlMaps("Luxom__Elements_In_Output_Map").export URL:= _
 Path_Name
End Sub

2. ТАБЛИЦА: формула не работает. INCONSISTENT ERROR (решение, которое я нашел - см. Комментарий)

Формула отлично работала в EXCEL2010, а в EXCEL2013 снова была введена и распознана, но теперь я получаю сообщение об ошибке

Ни помощь от Microsoft не решила мою проблему

http://office.microsoft.com/en-ca/mac-excel-help/correct-an-inconsistent-formula-HA102927556.aspx

Лист "luxom_input", таблица "T_LuxomInput",

  • в столбце "O-ID" (адрес = фиксированный строковый формат)

    =CONCATENATE([@[networkID]] ;address; [@[groupID]] ;address; TEXT([@[HexAddress]];"00"))

  • в колонке "O - KAST"

    =IF(AND(IFERROR(FIND(start_02;MID([@Name];1;1))>0;0);MID([@Name];2;1)<(CHAR(CODE(9)+1)));MID([@Name];2;1);"")

У кого-то есть идея заставить его работать...

Возможно, вам придется измениться ; к , и , к . согласно вашему местному.

1 ответ

stackoverflow.com/questions/15142523/... для части 1. MACRO: создать XML файл - это решение, написанное "непрограммистом" - kris Aug 25 '14 at 16:21

licensed under cc by-sa 3.0 with attribution.