Страницы: 1
RSS
VBA Экспорт в XML из таблицы значений без дублей сравнивая 2 столбца
 
Есть таблица:
Номер название файла угол поворота
Экспортирую её в XML.
Последовательно дважды формируется XML. Сначала все строки в определенном формате без угла поворота, только название файла, потом второй блок XML где нужно и название файла, и угол поворота. НО! во втором блоке нужны значения строк без дублей (если название файла и угол одной строки совпадает с другой, то объединить) .
Файл приложил.
 
Ничего не понятно. Сделал бы пример вручную, что должно получиться
 
Помогли с решением на другом форуме.
Выкладываю. Вдруг кому-то пригодится.
Код
  i = Range("FirstID").Row 'возвращаем номер строки первой ячейки в таблице дизайнов

  With CreateObject("scripting.dictionary")
    .comparemode = vbTextCompare 'не различать регистр
    Do
      .Item(Cells(i, 2) & vbTab & Cells(i, 3)) = Cells(i, 1)
      i = i + 1
    Loop Until Cells(i, 2) = ""  'пока не будет пустой ячейки с именем файла

    For Each x In .keys
      Set FILE = xml.createElement("File")
      FILE.setAttribute "ID", .Item(x)
      FILE.Text = Split(x, vbTab)(0)                          ' название файла
      FILE.setAttribute "Angle", Split(x, vbTab)(1)            ' угол поворота
      objRoot.appendChild FILE
    Next
  End With
 
Вот так мне нужно
Страницы: 1
Наверх