Импорт/Экспорт xml → xls → txt - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Импорт/Экспорт xml → xls → txt (Макросы/Sub)

Импорт/Экспорт xml → xls → txt

Валерьянка

Дата: Четверг, 19.06.2014, 21:14 | Сообщение № 21

Группа: Пользователи

Ранг: Участник

Сообщений: 71

Репутация: 2 ±

Замечаний: 0% ±

Excel 2010

RAN, мне тоже первое что пришло в голову это удалить, т.н.м. так не работает

наверное надо всё-таки какой-то опэн

Ответить

RAN

Дата: Четверг, 19.06.2014, 21:54 | Сообщение № 22

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата Валерьянка, 19.06.2014 в 21:14, в сообщении № 21

надо всё-таки какой-то опэн

Одного мало?
[vba]

Код

.Load (ff)

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Hugo

Дата: Четверг, 19.06.2014, 22:05 | Сообщение № 23

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3255

Репутация: 707 ±

Замечаний: 0% ±

2019

Гору удалить, а тут так:
[vba]

Код

    For Each x In arFiles
     For n = 1 To lLastCol Step 2
         c = Findattributes(x, ArrCol(1, n))
         Cells(lRow, n).Resize(UBound(c), UBound(c, 2)) = c
         Next
     Next

[/vba]
заменить на
[vba]

Код

     For n = 1 To lLastCol Step 2
         c = Findattributes(Thisworkbook.patch & "/test.xml", ArrCol(1, n))
         Cells(lRow, n).Resize(UBound(c), UBound(c, 2)) = c
         Next

[/vba]

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

RAN

Дата: Четверг, 19.06.2014, 22:21 | Сообщение № 24

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата RAN, 19.06.2014 в 19:28, в сообщении № 20

удалит. (вместе с последующим циклом)

А я об чем? <_<

Быть или не быть, вот в чем загвоздка!

Ответить

Валерьянка

Дата: Четверг, 19.06.2014, 22:23 | Сообщение № 25

Группа: Пользователи

Ранг: Участник

Сообщений: 71

Репутация: 2 ±

Замечаний: 0% ±

Excel 2010

Hugo, отлично, то что нужно, заработало

, только надо адрес по переменной иначе ошибка 438
[vba]

Код

         For n = 1 To lLastCol Step 2
         c = Findattributes(arFiles, ArrCol(1, n))
         Cells(lRow, n).Resize(UBound(c), UBound(c, 2)) = c
         Next

[/vba]

Ответить

Валерьянка

Дата: Понедельник, 01.02.2016, 20:45 | Сообщение № 26

Группа: Пользователи

Ранг: Участник

Сообщений: 71

Репутация: 2 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте, помогите, пожалуйста, вытащить отсюда :

Ссылка удалена. Нарушение Правил форума

<distance>
<value>11822</value>
<text>11.8 km</text>
</distance>

Нужно именно value в метрах
[moder]Тема закрыта. Причина: нарушение п. 5q Правил форума[/moder]

Сообщение отредактировал Pelena - Понедельник, 01.02.2016, 21:16

Ответить

Импорт/Экспорт xml → xls → txt (Макросы/Sub)

Страница 2 из 2
«
1
2