Импорт/Экспорт xml → xls → txt
Валерьянка
Дата: Четверг, 19.06.2014, 21:14 |
Сообщение № 21
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация:
2
±
Замечаний:
0% ±
Excel 2010
RAN, мне тоже первое что пришло в голову это удалить, т.н.м. так не работает наверное надо всё-таки какой-то опэн
RAN, мне тоже первое что пришло в голову это удалить, т.н.м. так не работает наверное надо всё-таки какой-то опэн Валерьянка
Ответить
Сообщение RAN, мне тоже первое что пришло в голову это удалить, т.н.м. так не работает наверное надо всё-таки какой-то опэн Автор - Валерьянка Дата добавления - 19.06.2014 в 21:14
RAN
Дата: Четверг, 19.06.2014, 21:54 |
Сообщение № 22
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
надо всё-таки какой-то опэн
Одного мало? [vba][/vba]
надо всё-таки какой-то опэн
Одного мало? [vba][/vba]RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение надо всё-таки какой-то опэн
Одного мало? [vba][/vba]Автор - RAN Дата добавления - 19.06.2014 в 21:54
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]
Гору удалить, а тут так: [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] Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение Гору удалить, а тут так: [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] Автор - Hugo Дата добавления - 19.06.2014 в 22:05
RAN
Дата: Четверг, 19.06.2014, 22:21 |
Сообщение № 24
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
удалит. (вместе с последующим циклом)
А я об чем?
удалит. (вместе с последующим циклом)
А я об чем? RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение удалит. (вместе с последующим циклом)
А я об чем? Автор - RAN Дата добавления - 19.06.2014 в 22:21
Валерьянка
Дата: Четверг, 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]
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] Валерьянка
Ответить
Сообщение 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] Автор - Валерьянка Дата добавления - 19.06.2014 в 22:23
Валерьянка
Дата: Понедельник, 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]
Здравствуйте, помогите, пожалуйста, вытащить отсюда :Ссылка удалена. Нарушение Правил форума <distance> <value>11822</value> <text>11.8 km</text> </distance> Нужно именно value в метрах [moder]Тема закрыта. Причина: нарушение п. 5q Правил форума[/moder] Валерьянка
Сообщение отредактировал Pelena - Понедельник, 01.02.2016, 21:16
Ответить
Сообщение Здравствуйте, помогите, пожалуйста, вытащить отсюда :Ссылка удалена. Нарушение Правил форума <distance> <value>11822</value> <text>11.8 km</text> </distance> Нужно именно value в метрах [moder]Тема закрыта. Причина: нарушение п. 5q Правил форума[/moder] Автор - Валерьянка Дата добавления - 01.02.2016 в 20:45