Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.07.2012, 15:49   #1
Freerider1972
Пользователь
 
Регистрация: 01.07.2007
Сообщений: 41
Вопрос Импорт XML в Excel банковский лицевой счет

Добрый день!
Если кто знает ответ по импорту XML файла без посторонней утилиты.

Если делать стандартный импорт XML файла в Excel, то поле Страхового номера (SNILS), если оно начинается с "0" не импортируется с начальным нулем.
Например SNILS - 06229840957
Импортируется как - 6229840957

И еще по импорту лицевого счета.
Длина его 20 числовых значений. При импорте он обнуляет последние 5 значений.
Вместо 40817810954003508799
Поле имеет вид 4,08178E+19
И если расширить, то значение на конце с нулями - 40817810954003500000
Freerider1972 вне форума Ответить с цитированием
Старый 26.07.2012, 16:26   #2
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

Один из способов - это ставить апостроф перед значением.
motorway вне форума Ответить с цитированием
Старый 26.07.2012, 16:32   #3
Freerider1972
Пользователь
 
Регистрация: 01.07.2007
Сообщений: 41
По умолчанию

Цитата:
Сообщение от motorway Посмотреть сообщение
Один из способов - это ставить апостроф перед значением.
Апостроф непосредственно в XML файле?
Freerider1972 вне форума Ответить с цитированием
Старый 27.07.2012, 17:34   #4
Freerider1972
Пользователь
 
Регистрация: 01.07.2007
Сообщений: 41
По умолчанию

Нашел решение (может кому пригодится)
Используя VBA, вытаскиваю все данные которые нужны мне на лист.
Формат ячеек ставлю какой нужно, для лицевого счета, просто текстовый формат.
Далее можно крутить и вертеть данными.

Вот код (нашел в сетях)

В references не забываем проставить галку перед MS - xml формата

Цитата:
Sub ReadXML()
Dim xml_doc As New DOMDocument
Dim nde_test As IXMLDOMElement

xml_doc.Load "D:\Тест\Тест.xml"

For Each nde_test In xml_doc.selectNodes("//ROW")

Debug.Print nde_test.selectSingleNode("ACCOUNT" ).Text

Next

End Sub
Freerider1972 вне форума Ответить с цитированием
Старый 27.07.2012, 19:11   #5
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

Цитата:
Сообщение от Freerider1972 Посмотреть сообщение
Апостроф непосредственно в XML файле?
Нет, я имел в виду в ячейке Эксела
motorway вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
XML и Экспорт/Импорт Greek9000 Общие вопросы Delphi 0 09.08.2011 14:37
Импорт из XML -=pasha=- БД в Delphi 8 31.03.2011 11:44
Автоматический импорт из XML в Access. grigorill2 Microsoft Office Access 0 07.02.2011 10:17
Импорт из XML в Access Tarman Microsoft Office Access 0 26.01.2011 21:36