XML - HiAsm

Вверх ↑

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

Этот топик читают: Гость

Ответов: 8926

Рейтинг: 823

#16: 2007-05-25 00:31:46 ЛС | профиль | цитата

Alexbootch, вот запись данных (тех, которые записываются в одно поле) середина работы:
code_1461.txt

карма: 19

файлы: 1

code_1461.txt [28.4KB] [489]

Ответов: 1891

Рейтинг: 110

#17: 2007-05-25 00:51:20 ЛС | профиль | цитата

Леонид, все вставляется кроме почтового индекса и кода города

карма: 0

%time%

Ответов: 8926

Рейтинг: 823

#18: 2007-05-25 08:30:33 ЛС | профиль | цитата

Alexbootch, ну я же сказал: "тех, которые записываются в одно поле" и "середина работы"

карма: 19

Ответов: 1891

Рейтинг: 110

#19: 2007-05-25 22:03:10 ЛС | профиль | цитата

Леонид, все равно спасибо!

карма: 0

%time%

Ответов: 8926

Рейтинг: 823

#20: 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

Ответов: 9906

Рейтинг: 351

#21: 2007-05-26 08:34:56 ЛС | профиль | цитата

Лично мне - не смешно

карма: 9

файлы: 1

code_1468.txt [34.5KB] [1300]

Ответов: 8926

Рейтинг: 823

#22: 2007-05-26 10:02:55 ЛС | профиль | цитата

Galkov, спасибо

карма: 19

Ответов: 2058

Рейтинг: 28

#23: 2007-05-26 14:21:35 ЛС | профиль | цитата

Леонид писал(а):

Galkov, спасибо

ну вот Леонида обидели.

карма: 1

Ответов: 8926

Рейтинг: 823

#24: 2007-05-26 16:55:45 ЛС | профиль | цитата

Эдик, "Спасибо" - Galkov-у за то, что свернул выложенную мной неудачно схему, смайлик

я хотел нажать в том посте, но промазал, наверное, от позднего времени, о чём и намекнул Galkov-у и он-то понял

карма: 19

Ответов: 1891

Рейтинг: 110

#25: 2007-05-27 14:32:49 ЛС | профиль | цитата

Леонид, а можно сделать что бы Exel не открывался (т.е. что бы данные заносились не визуально) и чтобы заполненная форма автоматом сохранялась в xls?

карма: 0

%time%

Ответов: 8926

Рейтинг: 823

#26: 2007-05-27 16:07:02 ЛС | профиль | цитата

Alexbootch, конечно можно - подать False на точку Visible скрипта; Exel не будет видно на экране, только в диспетчере, в этом случае обязательно надо продумывать предупреждение ошибок.
Чтобы автоматом сохранить, надо в расшифровке последнего листа в компоненте StrList добавить строку с флажком и по нему запускать макрос на сохранение.
Будет-ли такая логика работы хороша - не уверен

[size=-2]------ Добавлено в 16:07
Нет, сейчас попробовал - в невидимом режиме у Exсel не работают макросы, т. е. печатать и сохранить с их помощью не получится; "сохранить как" можно сделать внутри скрипта, я там сохранение закомментировал (отключил).

карма: 19

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


Сообщение ...
Прикрепленные файлы (файлы не залиты)