powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Правильный синтаксис в VBA
3 сообщений из 3, страница 1 из 1
Правильный синтаксис в VBA
    #35121074
masterNike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет всем.
Есть такой момент. Для документа Excel пишу макрос в VBA, что бы из него сделать XML.
Весь код приводить не буду вот кусочек:

мой объект
a.writeline ("<?xml version=""1.0""?>")
a.writeline ("<eExact xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xsi:noNamespaceSchemaLocation=""eExact-Schema.xsd"">")
a.writeline ("<GLEntries>")

тут просто передача кода
a.write ("<Costcenter code =""")
a.write (Worksheets("RawData").Cells(5 + i, 8).Value)
a.writeline (""">")
a.writeline ("</Costcenter>")

тут передача описания
a.writeline ("<Description> </Description>")


Так вот вопрос: в таком виде все работает отменно. И если в дескрипшен статику вписать
a.writeline ("<Description> TEST </Description>") тоже все работает.
Ну а если динамически зачитывать ячейку
или
a.writeline ("<Description> a.write (Worksheets("RawData").Cells(5 + i, 8).Value) </Description>")
или
a.writeline ("<Description>") a.write (Worksheets("RawData").Cells(5 + i, 8).Value) ("</Description>")
или
a.writeline ("<Description>") (Worksheets("RawData").Cells(5 + i, 8).Value) ("</Description>")

Ошибка и все тут. Помогите плиз, как правильно написать.

Спасибо
...
Рейтинг: 0 / 0
Правильный синтаксис в VBA
    #35121090
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
a.writeline "<Description>" & Worksheets("RawData").Cells( 5  + i,  8 ).Value & "</Description>"
...
Рейтинг: 0 / 0
Правильный синтаксис в VBA
    #35121127
masterNike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо заработало.
Однако вылез другой бок, если тут


тут просто передача кода
a.write ("<Costcenter code =""")
a.write (Worksheets("RawData").Cells(5 + i, 8).Value)
a.writeline (""">")
a.writeline ("</Costcenter>")

из ячейки зачитываются цифры, то

a.writeline "<Description>" & Worksheets("RawData").Cells(5 + i, 2).Value & "</Description>"
сюда из ячейки Cells(5 + i, 2).Value должен зачитаться текст(varchar)
И XML не формируется.
Выкидывает ошибку

An invalid character was found in text content. Error processing resource 'file:///D:/TEST.xml'. Line 9, Position 14
<Description>

Помогите еще раз плиз :)
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Правильный синтаксис в VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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