Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Редактирование xml файла через макрос - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Редактирование xml файла через макрос (Макросы Sub)
Редактирование xml файла через макрос
Эмка Дата: Вторник, 03.09.2013, 16:54 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Подскажите можно ли с помощью макроса вывести в xml файл динамическое кол-во строк,если известен номер строки начиная с которой необходимо вставить строки.
К сообщению приложен файл: 1234567891.xls (21.0 Kb) · exp.xml (0.4 Kb)


Сообщение отредактировал Эмка - Вторник, 03.09.2013, 17:30
 
Ответить
СообщениеПодскажите можно ли с помощью макроса вывести в xml файл динамическое кол-во строк,если известен номер строки начиная с которой необходимо вставить строки.
Автор - Эмка
Дата добавления - 03.09.2013 в 16:54
SergeyKorotun Дата: Вторник, 03.09.2013, 17:43 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 301
Репутация: 15 ±
Замечаний: 0% ±

Excel 2007
xml не скачивается:
Ошибка синтаксического анализа XML: объявление XML или текста не в начале сущности
Адрес: http://www.excelworld.ru/_fr/60/exp.xml
Строка 1, символ 3: <?xml version="1.0" encoding="windows-1251" standalone="yes" ?>
--^
Наверно надо упаковать.


Сообщение отредактировал SergeyKorotun - Вторник, 03.09.2013, 17:44
 
Ответить
Сообщениеxml не скачивается:
Ошибка синтаксического анализа XML: объявление XML или текста не в начале сущности
Адрес: http://www.excelworld.ru/_fr/60/exp.xml
Строка 1, символ 3: <?xml version="1.0" encoding="windows-1251" standalone="yes" ?>
--^
Наверно надо упаковать.
Автор - SergeyKorotun
Дата добавления - 03.09.2013 в 17:43
Эмка Дата: Вторник, 03.09.2013, 17:57 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
слишком много поудоляла строк
выходит только в txt (
К сообщению приложен файл: exp.txt (0.9 Kb)
 
Ответить
Сообщениеслишком много поудоляла строк
выходит только в txt (
Автор - Эмка
Дата добавления - 03.09.2013 в 17:57
SergeyKorotun Дата: Вторник, 03.09.2013, 18:43 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 301
Репутация: 15 ±
Замечаний: 0% ±

Excel 2007
удалите пояснения, а то будет неверно определяться последняя строка
[vba]
Код
Sub xml()
    Dim myLastRow As Long
    Dim i As Long

    Application.ScreenUpdating = False
    myLastRow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To myLastRow 'вместо 2 подставьте известный вам номер строки
       'здесь вставка i-ой строки в xml файл
       'как не знаю, вывожу только на экран
       MsgBox Range("A" & i) & " " & Range("B" & i) & " " & Range("C" & i) & " " & Range("D" & i) & " " & Range("E" & i) _
                    & " " & Range("F" & i) & " " & Range("G" & i) & " " & Range("H" & i) & " " & Range("H" & i)
    Next i
    Application.ScreenUpdating = True
End Sub
[/vba]


Сообщение отредактировал SergeyKorotun - Вторник, 03.09.2013, 18:44
 
Ответить
Сообщениеудалите пояснения, а то будет неверно определяться последняя строка
[vba]
Код
Sub xml()
    Dim myLastRow As Long
    Dim i As Long

    Application.ScreenUpdating = False
    myLastRow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To myLastRow 'вместо 2 подставьте известный вам номер строки
       'здесь вставка i-ой строки в xml файл
       'как не знаю, вывожу только на экран
       MsgBox Range("A" & i) & " " & Range("B" & i) & " " & Range("C" & i) & " " & Range("D" & i) & " " & Range("E" & i) _
                    & " " & Range("F" & i) & " " & Range("G" & i) & " " & Range("H" & i) & " " & Range("H" & i)
    Next i
    Application.ScreenUpdating = True
End Sub
[/vba]
Автор - SergeyKorotun
Дата добавления - 03.09.2013 в 18:43
Эмка Дата: Среда, 04.09.2013, 09:45 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Экран то немножко не то, но все равно спасибо
 
Ответить
СообщениеЭкран то немножко не то, но все равно спасибо
Автор - Эмка
Дата добавления - 04.09.2013 в 09:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Редактирование xml файла через макрос (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!