Перенос данных из столбца Эксель в Ворд

@Буцефал Иваныч · Регистрация: 14.05.2014

Студворк — интернет-сервис помощи студентам

Приветствую спецов и всех. Извиняюсь, но ответа на форуме я не нашёл.
Сам я ни разу не программист и, поэтому имею трудность с несложной, кажется, задачей.
Помучившись, я составил код для Экселя, который позволяет фиксировать наблюдаемое событие по нажатию соответствующей кнопки путём фиксации текущего времени таймера. Эти значения записываются в столбец (это такая как бы исследовательская программа). Таких столбцов несколько, сообразно наблюдаемым показателям.

Далее, после окончания наблюдения, вылезает форма, я там всё заполняю и нажимаю итоговую кнопку. При нажатии этой кнопки образуется документ Ворд, создаваемый по шаблону. Это такой итоговый протокол. Там есть закладки.

Всё в этой таблице заполняется как надо.

У меня не получается следующее: ячейки со значениями времени из столбцов, соответствующих каждому показателю, должны быть копированы в документ так же столбиком сверху вниз, начиная с соответствующей закладки.

Имея ниже представленный цикл, я сталкиваюсь с тем, что значения времени встают на закладку по очереди, сменяя друг друга (вобщем-то, я понимаю, почему). В итоге остаётся только последнее. Мне же нужна полная копия столбца.

Как я понимаю, мне не хватает знаний, чтобы сделать какую-то простую операцию. Например, добавить в Ворде ячейку ниже и перейти на неё и т. п.

Код такой:

Visual Basic
1
2
3
4
5
6
7
8
9
Range("I6").Select
     'Запускаем цикл: с выбранной ячейки копируем по одной вниз
     Do While Not IsEmpty(ActiveCell.Value)
       Selection.Copy
       ActiveCell.Offset(1, 0).Select
       
       'Добавляем вставку. Это явно ошибка, но что вместо этого?
       oDoc.Bookmarks("Закладка1").Range.Paste
     Loop

Было бы ещё не плохо подсчитать сумму событий/заполненных ячеек и внести на свою закладку.

"Офис" - 2003.

Надеюсь, я прошу не слишком много.)))
Извините, если "слишком много букв" - пытался лучше объяснить.
Заранее благодарю Всех, кто попытается помочь.

shanemac51 · 14.05.2014, 22:36

Извините, если "слишком много букв" - пытался лучше объяснить.

задача понимается намного легче, если помимо слов прилагаются
--екселька
--шаблон ворд

@Буцефал Иваныч · 14.05.2014, 23:46 **[ТС]**

Ну вот сделал короткие варианты. Вроде всё воспроизводится, включая и проблему.
Только почему-то не даёт загружать, не корректные говорит.

Почему-то xls 2 мб весит. Как файл с макросами до 100 кб ужать? Как грузить-то?

@Буцефал Иваныч · 14.05.2014, 23:50 **[ТС]**

Я дурак. ))))
Сделал в архиве..

Там только в коде путь к шаблону свой поставить.

@Казанский · 15.05.2014, 01:32

Сообщение от Буцефал Иваныч

Как файл с макросами до 100 кб ужать?

Дело не в макросе, а в миллионе строк, которые на вид пустые, но на самом деле нет.
Выделите, скажем, 10 строку, Ctrl+Shift+вниз, правый клик - Удалить. Сохраните файл, посмотрите размер (у меня стал 25 кб).
Это так, на будущее.

Сообщение от Буцефал Иваныч

ячейки со значениями времени из столбцов, соответствующих каждому показателю, должны быть копированы в документ так же столбиком сверху вниз, начиная с соответствующей закладки. Имея ниже представленный цикл...

А зачем цикл? Почему бы сразу столбец не перенести? Получается красиво

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub ЗаписатьДокумент()
 'Создаём объект Word
 Set oWord = CreateObject("Word.Application")
 
 'Чтобы Word не закрылся тут же,делаем его видимым
 oWord.Visible = True
 
 'Создаём документ из шаблона, ссылаясь на него
 'Шаблон берется из папки с книгой
 Set oDoc = oWord.Documents.Add(ThisWorkbook.Path & "\ШаблонВремя.dotx")
 
 'Теперь будем копировать содержимое столбца с засечками времени
  
 Range("H3", Cells(Rows.Count, "H").End(xlUp)).Copy
 oDoc.Bookmarks("Время").Range.Paste
 
End Sub

@Буцефал Иваныч · 15.05.2014, 22:52 **[ТС]**

Казанский,

Сообщение от Казанский

А зачем цикл? Почему бы сразу столбец не перенести?

Да конечно и так можно, главное результат, это даже лучше. Так что, очень благодарен!

Теперь вот только, если перенести закладку в самый первый столбец таблицы, то всё съезжает и впечатывается не туда (строки таблицы как бы раздвигаются и цифры вносятся как бы в пустое пространство), в других столбцах - идеально. Не пойму, что-то не так с форматированием таблицы шаблона?

И есть ли быстрый способ подсчитать сумму временных засечек, т. е. событий? Или вводить переменную и прибавлять к ней по одному во время нажатия кнопок?

Добавлено через 3 минуты
...Да и про Ctrl+Shift+вниз Вы мне реально глаза открыли.))))

Добавлено через 20 часов 6 минут
Тема актуальна.

@Казанский · 16.05.2014, 00:31

Буцефал Иваныч, да, метод ненадежный - при ручном копипасте так не получается.
Значит, надо вставлять нужное к-во строк в таблицу и заполнять их.
Этот код в основном записан макрорекордером Ворда, мне он не нравится, но работает с закладкой в любой ячейке нижней строки таблицы.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub ЗаписатьДокумент()
 'Создаём объект Word
 Set oWord = CreateObject("Word.Application")
 
 'Чтобы Word не закрылся тут же,делаем его видимым
 oWord.Visible = True
 
 'Создаём документ из шаблона, ссылаясь на него
 'Шаблон берется из папки с книгой
 Set oDoc = oWord.Documents.Add(ThisWorkbook.Path & "\ШаблонВремя1.dotx")
 
 'Теперь будем копировать содержимое столбца с засечками времени
  
 With Range("H3", Cells(Rows.Count, "H").End(xlUp))
  .Copy
  oWord.Selection.GoTo What:=-1, Name:="Время" '-1=wdGoToBookmark
  oWord.Selection.InsertRowsBelow .Rows.Count - 1
  oWord.Selection.GoTo What:=-1, Name:="Время" '-1=wdGoToBookmark
  oWord.Selection.MoveDown Unit:=5, Count:=.Rows.Count - 1, Extend:=1  '5=wdLine, 1=wdExtend
  oWord.Selection.Paste
End With
End Sub

@Буцефал Иваныч · 16.05.2014, 01:32 **[ТС]**

Я решил проблему, добавив в таблицу шаблона первый пустой столбец минимальной ширины. Со всеми остальными-то нормально... Какая-то ерунда именно с первым. Не изящно, конечно, но надёжно.

Сумму отметок пришлось считать функцией =СЧЁТ, а затем вставлять на закладки текст из ячеек со значениями. Ничего лучше я не придумал.

Есть, правда, последний (я надеюсь)))) глюк: при пустом любом столбце (т. е. отсутствии какого-либо вида наблюдений) он вместо того, чтоб оставить пустым столбец шаблона почему-то впечатывает туда заголовок столбца из Экселя. Если же столбец не пуст, то идут только засечки времени - всё как надо.

В мире так много странного....;-)

Добавлено через 12 минут
Вот это место

'Теперь будем копировать содержимое столбца с засечками времени

Range("H3", Cells(Rows.Count, "H").End(xlUp)).Copy
oDoc.Bookmarks("Время").Range.Paste

...почему-то копирует заголовок столбца Экселя и вносит его в таблицу в случае, если столбец не заполнен отметками времени.

Мне кажется дело не в коде...

Добавлено через 1 минуту
Я извиняюсь, форматировать текст кода что-то пока не понял, как.

@Казанский · 16.05.2014, 01:43

Буцефал Иваныч, Вы как будто #7 не видели.
А что должно происходить, если столбец не заполнен? Вообще не создавать документ Ворда или создавать пустой?

@Буцефал Иваныч · 16.05.2014, 13:06 **[ТС]**

Видел конечно. Да эффект от #7 безусловно лучше. Просто ухватился за короткое решение.

В полной версии того, что я делаю, несколько столбцов и ещё другие данные. Поэтому документ создаётся в любом случае. Один из столбцов действительно теоретически может оказаться не заполненным, если отсутствуют наблюдения какого-либо рода/признака.

Теперь всё почти сделано. Думаю, что вопросы ещё возможны (другие уже), но остались только мелкие доработки и тестирование.

Спасибо Вам.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Буцефал Иваныч 2 / 2 / 0 Регистрация: 14.05.2014 Сообщений: 20
	14.05.2014, 23:46 [ТС]
	Ну вот сделал короткие варианты. Вроде всё воспроизводится, включая и проблему. Только почему-то не даёт загружать, не корректные говорит. Почему-то xls 2 мб весит. Как файл с макросами до 100 кб ужать? Как грузить-то? 0

@Буцефал Иваныч 2 / 2 / 0 Регистрация: 14.05.2014 Сообщений: 20
	16.05.2014, 01:32 [ТС]
	Я решил проблему, добавив в таблицу шаблона первый пустой столбец минимальной ширины. Со всеми остальными-то нормально... Какая-то ерунда именно с первым. Не изящно, конечно, но надёжно. Сумму отметок пришлось считать функцией =СЧЁТ, а затем вставлять на закладки текст из ячеек со значениями. Ничего лучше я не придумал. Есть, правда, последний (я надеюсь)))) глюк: при пустом любом столбце (т. е. отсутствии какого-либо вида наблюдений) он вместо того, чтоб оставить пустым столбец шаблона почему-то впечатывает туда заголовок столбца из Экселя. Если же столбец не пуст, то идут только засечки времени - всё как надо. В мире так много странного....;-) Добавлено через 12 минут Вот это место 'Теперь будем копировать содержимое столбца с засечками времени Range("H3", Cells(Rows.Count, "H").End(xlUp)).Copy oDoc.Bookmarks("Время").Range.Paste ...почему-то копирует заголовок столбца Экселя и вносит его в таблицу в случае, если столбец не заполнен отметками времени. Мне кажется дело не в коде... Добавлено через 1 минуту Я извиняюсь, форматировать текст кода что-то пока не понял, как. 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	16.05.2014, 01:43
	Буцефал Иваныч, Вы как будто #7 не видели. А что должно происходить, если столбец не заполнен? Вообще не создавать документ Ворда или создавать пустой? 0

@Буцефал Иваныч 2 / 2 / 0 Регистрация: 14.05.2014 Сообщений: 20
	16.05.2014, 13:06 [ТС]
	Видел конечно. Да эффект от #7 безусловно лучше. Просто ухватился за короткое решение. В полной версии того, что я делаю, несколько столбцов и ещё другие данные. Поэтому документ создаётся в любом случае. Один из столбцов действительно теоретически может оказаться не заполненным, если отсутствуют наблюдения какого-либо рода/признака. Теперь всё почти сделано. Думаю, что вопросы ещё возможны (другие уже), но остались только мелкие доработки и тестирование. Спасибо Вам. 0

Перенос данных из столбца Эксель в Ворд

Решение