HiAsm

Ответов: 8926

Рейтинг: 823

#1: 2007-05-26 00:48:02 ЛС | профиль | цитата

Alexbootch, вот теперь всё вставляется (в предыдущем ошибся в английском алфавите, сегодня часа 3 искал, почему же не то выдаёт

);
расшифрована 1-ая страница, остальные 12 по тому же принципу: (вопрос;адрес), для цифровых кодов (вопрос;адрес;адрес;.....адрес), для выбираемых ответов (вопрос;<или>предложение;адрес<или>предложение;адрес<или>....<или>предложение;адрес<или>) -адрес ручками не вносить, копируйте, а то ошибку потом не не отыскать

Все ячейки в листах должны иметь текстовой формат (HiAsm выдаёт строку)
В макросе SaveAsXML заменить содержимое на:

    Dim NameMyBook As String

    Sheets("стр.1").Select
    Range("BB19").Select
    NameMyBook = ActiveCell & ".xls"

    ActiveWorkbook.SaveAs Filename:=NameMyBook, FileFormat:=xlNormal, _
       Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
       CreateBackup:=False

а вот и схема (нужно ещё выявление и обработку ошибок пользователя)

[size=-2]------ Добавлено в 00:48
почему-то не свернулась, зараза

карма: 19

Форумы Между делом XML ← Ctrl12Ctrl →