ReSQL.ru
     
powered by simpleCommunicator - 2.0.49     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / XML, XSL, XPath, XQuery [игнор отключен] [закрыт для гостей] / макрос xls to xml
5 сообщений из 5, страница 1 из 1
макрос xls to xml
    #38685601
vtb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vtb
Гость
Добрый день,

есть макрос (максимально обрубил) в excel:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub Save_Data_To_Xml()
Dim MyFileName$


With ThisWorkbook
MyFileName = Left(.Name, InStr(1, .Name, ".xls", vbTextCompare) - 1)
MyFileName = MyFileName & ".xml"  
MyFileName = .Path & "\" & MyFileName
Open MyFileName For Output Lock Write As #1
Print #1, "<?xml version='1.0' encoding='WINDOWS-1251'?>"
Print #1, "<root>"

Print #1, "</root>"
Close #1

End With
End Sub



При его запуске создается xml-ник в той же папке где и xls. XML отлично открывается любым проводником, но мне нужно сделать в кодировке UTF-8, т.е. <?xml version='1.0' encoding='UTF-8'?>. Пробовал открыть созданный xml, но там пусто, хотя с помощью блокнота открывается. Подскажите пожалуйста в чем проблема?
...
Рейтинг: 0 / 0
02.07.2014, 12:05
| Ответить | Цитировать | Написать  
макрос xls to xml
    #38685615
Фотография volodin661
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
volodin661
Участник
vtb мне нужно сделать в кодировке UTF-8

погугли, как в виндусе c помощью VBA пишутся файлы в кодировке UTF-8.
есть у них какой-то activeX на эту тему.
...
Рейтинг: 0 / 0
02.07.2014, 12:20
| Ответить | Цитировать | Написать  
макрос xls to xml
    #38685661
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
vtb,

1) Чем не устраивает Windows-1251? Не все символы влазят?
2) Я бы вместо прямой записи в файл использовал XMLDOMDocument
...
Рейтинг: 0 / 0
02.07.2014, 12:58
| Ответить | Цитировать | Написать  
макрос xls to xml
    #38685692
vtb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vtb
Гость
_Vasilisk_,

Есть жесткое требование ЦБ:(

Состав и формат показателей Выписки из анкеты (досье) клиента.
Выписка из анкеты (досье) клиента формируется в виде файла формата XML в кодировке UTF-8 (первая строка файла имеет следующий вид: <?xml version="1.0" encoding="UTF-8"?>).
...
Рейтинг: 0 / 0
02.07.2014, 13:12
| Ответить | Цитировать | Написать  
макрос xls to xml
    #38685743
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Ну тогда используйте XMLDOMDocument
vtbЕсть жесткое требование ЦБ:(
 
Велика земля русская идиотами
...
Рейтинг: 0 / 0
02.07.2014, 13:50
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / XML, XSL, XPath, XQuery [игнор отключен] [закрыт для гостей] / макрос xls to xml
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=14&fpage=13&tid=1332347]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 52ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 11ms
total:  156ms
созд. / загр.: 156ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]