Способы сбора и сохранения значений элементов Актив Х

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Способы сбора и сохранения значений элементов Актив Х

andj25

Дата: Среда, 05.09.2018, 08:00 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Добрый день
делается анкета в Word (приложена)
пользователь заполняет ее и отправляет по e-mail
дальнейшая обработка результатов планируется в Excel
мной решено сделать сбор значений элементов Актив Х в 1 переменную с последующим сохранением ее в TextBox (по кнопке закончить анкету)
после получения заполненной анкеты я копирую из этого TextBox строку в Excel. где уже средствами Excel ее обрабатываю (делю на результаты по каждому пункту Анкеты и делаю свод)
проблемы
1. макрос перебирает значения в не известном мне порядке (или это порядок расположения элементов на странице?)
[vba]

Код

Private Sub CommandButton2_Click()
    For Each x2 In ActiveDocument.InlineShapes
    x2 = x2 + x.OLEFormat.Object.Value
    Next x2
    TextBox1.Text = x2
End Sub

[/vba]
2. так как значения некоторых элементов логические (True/False) возникает ошибка, видимо надо в текст это перевести
3. ввиду того что вопросов с ответами может быть много, есть вероятность, что потом в Excel текстовая строка не войдет

в связи со всем выше сказанным вопрос
может мне отказаться от моего варианта записи результатов и выбрать другой вариант?
например ввести справа/слева колонку и писать результаты по каждому элементу Анкеты с последующим копированием этого столбца в Excel?

Код

Private Sub CommandButton2_Click()
    For Each x2 In ActiveDocument.InlineShapes
    x2 = x2 + x.OLEFormat.Object.Value
    Next x2
    TextBox1.Text = x2
End Sub

К сообщению приложен файл: 2406808.docm (44.3 Kb)

Сообщение отредактировал andj25 - Среда, 05.09.2018, 08:03

Ответить

СообщениеДобрый день
делается анкета в Word (приложена)
пользователь заполняет ее и отправляет по e-mail
дальнейшая обработка результатов планируется в Excel
мной решено сделать сбор значений элементов Актив Х в 1 переменную с последующим сохранением ее в TextBox (по кнопке закончить анкету)
после получения заполненной анкеты я копирую из этого TextBox строку в Excel. где уже средствами Excel ее обрабатываю (делю на результаты по каждому пункту Анкеты и делаю свод)
проблемы
1. макрос перебирает значения в не известном мне порядке (или это порядок расположения элементов на странице?)
[vba]

Код

Private Sub CommandButton2_Click()
    For Each x2 In ActiveDocument.InlineShapes
    x2 = x2 + x.OLEFormat.Object.Value
    Next x2
    TextBox1.Text = x2
End Sub

Автор - andj25
Дата добавления - 05.09.2018 в 08:00

Pelena

Дата: Среда, 05.09.2018, 09:09 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19174

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.

Цитата andj25, 05.09.2018 в 08:00, в сообщении № 1 ()

выбрать другой вариант?

Заполняйте анкету в Excel

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

andj25

Дата: Среда, 05.09.2018, 09:12 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Pelena, вариант
но эксель выглядит не очень
по этому и выбран Word

Ответить

_Boroda_

Дата: Среда, 05.09.2018, 09:36 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Цитата andj25, 05.09.2018 в 09:12, в сообщении № 3 ()

эксель выглядит не очень

1. Что конкретно "не очень"? Уверяю Вас, в Excel можно сделать намного более "очень", чем в Ворде
2. Вам ехать или шашечки?
3. В третьей строке Вы пропустили двоечку
4. Макрос сбора нужно написать вот так
[vba]

Код

Private Sub CommandButton2_Click()
    For Each x2 In ActiveDocument.InlineShapes
        On Error Resume Next
        z_ = z_ & "/" & x2.OLEFormat.Object.Value
    Next x2
    TextBox1.Text = z_
End Sub

[/vba]
5. Текстовая строка по идее пройти должна, но, если есть сомнения, то можно разбить ее на десяток строк поменьше

** Абсолютно с огласен с Леной - я бы делал в Excel

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

andj25

Дата: Среда, 05.09.2018, 10:20 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Спасибо

не очень, просто ощущения

не чем не подкрепеленные
буду думать

значит варианты
1. оставить как есть и на всякий случай разбить z_ на кусочки
2. перейти на Excel

Ответить

Gustav

Дата: Среда, 05.09.2018, 11:52 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2731

Репутация: 1132 ±

Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1

Цитата andj25, 05.09.2018 в 10:20, в сообщении № 5 ()

значит варианты
1. оставить как есть и на всякий случай разбить z_ на кусочки
2. перейти на Excel

Еще можно Google Forms использовать. Они как раз для опросов/анкет/викторин предназначены. Ответы автоматически складываются в таблицу Google. Исключается звено пересылки по почте. Пользователь заходит по ссылке, отвечает на вопросы и жмёт кнопку "Отправить". Если опыта с Google Forms не было - хорошая возможность познакомиться.

МОИ: Ник, Tip box: 41001663842605

Ответить

Страница 1 из 1
1