Vba word скопировать таблицу
Имеется файлик Word с таблицами, данные из которых используются для расчетов в Excel. Решение, которое сейчас используется - ручное открытие Word копирование, вставка в нужный лист Excel, но честно говоря надоело так делать, потому что люди косячат при копировании и порой приходится переделывать очень много, хочу сделать через макрос по нажатию кнопки. Имеются так сказать "обрывки" кода (они чуть ниже), совместить не хватает мозгов, надеюсь на вашу помощь
Как я вижу реализацию:
1) Макрос запускает окно с предложением открыть нужный документ Word
2) копирует всё его содержимое
3) активирует нужный лист Excel и вставляет содержимое в него
4) очищает буфер и закрывает Word без сохранения
Вот обрывки кода
на открытие:
[vba]
' открываем нужный файл
Dim myName As String, wB As Workbook
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Выберите 451 форму"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
myName = .SelectedItems(1)
End With
Application.ScreenUpdating = False
Workbooks.Open Filename:=myName: Set wB = Workbooks(ActiveWorkbook.Name)
' переходим к копированию файла в лист 1
Windows(wB.Name).Activate: ActiveSheet.Unprotect
Range("A1:Y750").Select
Selection.Copy
Windows("Поиск совпадений.xlsm").Activate
Sheets("Лист1").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Windows(wB.Name).Activate
'В константе "strDocFullName" нужно указать полное имя Word-документа,
'из которого нужно скопировать таблицу.
Const strDocFullName As String = "C:\Users\User\Desktop\Из.docx"
'Для написания макроса, удобно подключить библиотеку для работы
'с программой "Word". Затем можно будет отключить эту библиотеку:
'Tools - References. - Microsoft Word версия Object Library.
Dim myWord As Word.Application
Dim docSource As Word.Document
'Запуск и VBA-наименование программы "Word".
'Даём программе "Word" VBA-имя "myWord" и через
'это имя будем работать с программой Word в макросе.
Set myWord = CreateObject(Class:="Word.Application")
'Делаем программу Word видимой, чтобы было удобно писать код.
myWord.Visible = True
'Открытие и VBA-наименование Word-файла.
Set docSource = myWord.Documents.Open(Filename:=strDocFullName)
'Копирование первой таблицы в Word-файле.
'Range - это фрагмент Word-файла, где находится таблица.
docSource.Tables(1).Range.Copy
'Выделение ячейки, куда будут вставлены данные.
'Для вставки в Excel будет использоваться метод "PasteSpecial",
'который относится к объекту "Worksheet". Метод "PasteSpectial"
'ещё есть у объекта "Range". У объекта "Worksheet" нельзя
'указать ячейку, куда надо вставить, поэтому нужно заранее
'выделить нужную ячейку, куда будут вставлены данные.
ActiveSheet.Range("A1").Select
'Вставка скопированной таблицы в активный Excel-лист в выделенную ячейку.
'Код записал с помощью макрорекордера, делая такие действия в "Excel 2010":
'вкладка "Главная" - группа "Буфер обмена" - "Вставить (со стрелкой)" -
'"Специальная вставка. " - кружок "Вставить" - "HTML".
ActiveSheet.PasteSpecial Format:="HTML", Link:=False
'Чтобы в буфере обмена не было много данных, очищаем буфер обмена,
'копируя в него только одну ячейку.
docSource.Tables(1).Cell(1, 1).Range.Copy
'Закрытие Word-документа.
'0 - без сохранения.
docSource.Close SaveChanges:=0
'Закрытие программы "Word".
myWord.Quit SaveChanges:=0
Имеется файлик Word с таблицами, данные из которых используются для расчетов в Excel. Решение, которое сейчас используется - ручное открытие Word копирование, вставка в нужный лист Excel, но честно говоря надоело так делать, потому что люди косячат при копировании и порой приходится переделывать очень много, хочу сделать через макрос по нажатию кнопки. Имеются так сказать "обрывки" кода (они чуть ниже), совместить не хватает мозгов, надеюсь на вашу помощь
Как я вижу реализацию:
1) Макрос запускает окно с предложением открыть нужный документ Word
2) копирует всё его содержимое
3) активирует нужный лист Excel и вставляет содержимое в него
4) очищает буфер и закрывает Word без сохранения
Вот обрывки кода
на открытие:
[vba]
' открываем нужный файл
Dim myName As String, wB As Workbook
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Выберите 451 форму"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
myName = .SelectedItems(1)
End With
Application.ScreenUpdating = False
Workbooks.Open Filename:=myName: Set wB = Workbooks(ActiveWorkbook.Name)
' переходим к копированию файла в лист 1
Windows(wB.Name).Activate: ActiveSheet.Unprotect
Range("A1:Y750").Select
Selection.Copy
Windows("Поиск совпадений.xlsm").Activate
Sheets("Лист1").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Windows(wB.Name).Activate
'В константе "strDocFullName" нужно указать полное имя Word-документа,
'из которого нужно скопировать таблицу.
Const strDocFullName As String = "C:\Users\User\Desktop\Из.docx"
'Для написания макроса, удобно подключить библиотеку для работы
'с программой "Word". Затем можно будет отключить эту библиотеку:
'Tools - References. - Microsoft Word версия Object Library.
Dim myWord As Word.Application
Dim docSource As Word.Document
'Запуск и VBA-наименование программы "Word".
'Даём программе "Word" VBA-имя "myWord" и через
'это имя будем работать с программой Word в макросе.
Set myWord = CreateObject(Class:="Word.Application")
'Делаем программу Word видимой, чтобы было удобно писать код.
myWord.Visible = True
'Открытие и VBA-наименование Word-файла.
Set docSource = myWord.Documents.Open(Filename:=strDocFullName)
'Копирование первой таблицы в Word-файле.
'Range - это фрагмент Word-файла, где находится таблица.
docSource.Tables(1).Range.Copy
'Выделение ячейки, куда будут вставлены данные.
'Для вставки в Excel будет использоваться метод "PasteSpecial",
'который относится к объекту "Worksheet". Метод "PasteSpectial"
'ещё есть у объекта "Range". У объекта "Worksheet" нельзя
'указать ячейку, куда надо вставить, поэтому нужно заранее
'выделить нужную ячейку, куда будут вставлены данные.
ActiveSheet.Range("A1").Select
'Вставка скопированной таблицы в активный Excel-лист в выделенную ячейку.
'Код записал с помощью макрорекордера, делая такие действия в "Excel 2010":
'вкладка "Главная" - группа "Буфер обмена" - "Вставить (со стрелкой)" -
'"Специальная вставка. " - кружок "Вставить" - "HTML".
ActiveSheet.PasteSpecial Format:="HTML", Link:=False
'Чтобы в буфере обмена не было много данных, очищаем буфер обмена,
'копируя в него только одну ячейку.
docSource.Tables(1).Cell(1, 1).Range.Copy
'Закрытие Word-документа.
'0 - без сохранения.
docSource.Close SaveChanges:=0
'Закрытие программы "Word".
myWord.Quit SaveChanges:=0
Вот обрывки кода
на открытие:
[vba]
' открываем нужный файл
Dim myName As String, wB As Workbook
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Выберите 451 форму"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
myName = .SelectedItems(1)
End With
Application.ScreenUpdating = False
Workbooks.Open Filename:=myName: Set wB = Workbooks(ActiveWorkbook.Name)
' переходим к копированию файла в лист 1
Windows(wB.Name).Activate: ActiveSheet.Unprotect
Range("A1:Y750").Select
Selection.Copy
Windows("Поиск совпадений.xlsm").Activate
Sheets("Лист1").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Windows(wB.Name).Activate
'В константе "strDocFullName" нужно указать полное имя Word-документа,
'из которого нужно скопировать таблицу.
Const strDocFullName As String = "C:\Users\User\Desktop\Из.docx"
'Для написания макроса, удобно подключить библиотеку для работы
'с программой "Word". Затем можно будет отключить эту библиотеку:
'Tools - References. - Microsoft Word версия Object Library.
Dim myWord As Word.Application
Dim docSource As Word.Document
'Запуск и VBA-наименование программы "Word".
'Даём программе "Word" VBA-имя "myWord" и через
'это имя будем работать с программой Word в макросе.
Set myWord = CreateObject(Class:="Word.Application")
'Делаем программу Word видимой, чтобы было удобно писать код.
myWord.Visible = True
'Открытие и VBA-наименование Word-файла.
Set docSource = myWord.Documents.Open(Filename:=strDocFullName)
'Копирование первой таблицы в Word-файле.
'Range - это фрагмент Word-файла, где находится таблица.
docSource.Tables(1).Range.Copy
'Выделение ячейки, куда будут вставлены данные.
'Для вставки в Excel будет использоваться метод "PasteSpecial",
'который относится к объекту "Worksheet". Метод "PasteSpectial"
'ещё есть у объекта "Range". У объекта "Worksheet" нельзя
'указать ячейку, куда надо вставить, поэтому нужно заранее
'выделить нужную ячейку, куда будут вставлены данные.
ActiveSheet.Range("A1").Select
'Вставка скопированной таблицы в активный Excel-лист в выделенную ячейку.
'Код записал с помощью макрорекордера, делая такие действия в "Excel 2010":
'вкладка "Главная" - группа "Буфер обмена" - "Вставить (со стрелкой)" -
'"Специальная вставка. " - кружок "Вставить" - "HTML".
ActiveSheet.PasteSpecial Format:="HTML", Link:=False
'Чтобы в буфере обмена не было много данных, очищаем буфер обмена,
'копируя в него только одну ячейку.
docSource.Tables(1).Cell(1, 1).Range.Copy
'Закрытие Word-документа.
'0 - без сохранения.
docSource.Close SaveChanges:=0
Таблицы в VBA Word принадлежат коллекции Tables, которая предусмотрена для объектов Document, Selection и Range. Новая таблица создается с помощью метода Tables.Add.
Синтаксис метода Tables.Add
Expression – выражение, возвращающее коллекцию Tables.
Параметры метода Tables.Add
- Range – диапазон, в котором будет создана таблица (обязательный параметр).
- Rows – количество строк в создаваемой таблице (обязательный параметр).
- Columns – количество столбцов в создаваемой таблице (обязательный параметр).
- DefaultTableBehavior – включает и отключает автоподбор ширины ячеек в соответствии с их содержимым (необязательный параметр).
- AutoFitBehavior – определяет правила автоподбора размера таблицы в документе Word (необязательный параметр).
Создание таблицы в документе
Создание таблицы из 3 строк и 4 столбцов в документе myDocument без содержимого и присвоение ссылки на нее переменной myTable:
Создание таблицы из 5 строк и 4 столбцов в документе Word с содержимым:
Для указания точки вставки таблицы присваиваем числовой переменной количество символов в документе минус один. Вычитаем единицу, чтобы исключить из подсчета последний знак завершения абзаца (¶), так как точка вставки не может располагаться за ним.
Последний знак завершения абзаца всегда присутствует в документе Word, в том числе и в новом без содержимого, поэтому такой код подойдет и для пустого документа.
При создании, каждой новой таблице в документе присваивается индекс, по которому к ней можно обращаться:
Нумерация индексов начинается с единицы.
Отображение границ таблицы
Новая таблица в документе Word из кода VBA Excel создается без границ. Отобразить их можно несколькими способами:
Вариант 1
Присвоение таблице стиля, отображающего все границы:
Вариант 2
Отображение внешних и внутренних границ в таблице:
Вариант 3
Отображение всех границ в таблице по отдельности:
Присвоение таблицам стилей
Вариант 1
Чтобы узнать название нужного стиля, в списке стилей конструктора таблиц наведите на него указатель мыши. Название отобразится в подсказке. Кроме того, можно записать макрос с присвоением таблице стиля и взять название из него.
Вариант 2
Выбирайте нужную константу с помощью листа подсказок свойств и методов – Auto List Members.
Обращение к ячейкам таблицы
Обращение к ячейкам второй таблицы myTable2 в документе myDocument по индексам строк и столбцов:
Обращение к ячейкам таблицы myTable в документе Word с помощью свойства Cell объектов Row и Column и запись в них текста:
В таблице myTable должно быть как минимум 2 строки и 3 столбца.
Примеры создания таблиц Word
Пример 1
Создание таблицы в новом документе Word со сплошными наружными границами и пунктирными внутри:
В выражении myDocument.Range(Start:=0, End:=0) ключевые слова Start и End можно не указывать – myDocument.Range(0, 0) .
Пример 2
Создание таблицы под ранее вставленным заголовком, заполнение ячеек таблицы и применение автосуммы:
Метод AutoSum суммирует значения в ячейках одного столбца над ячейкой с суммой. При использовании его для сложения значений ячеек в одной строке, результат может быть непредсказуемым.
Чтобы просуммировать значения в строке слева от ячейки с суммой, используйте метод Formula объекта Cell:
Другие значения метода Formula, применяемые для суммирования значений ячеек:
- «=SUM(ABOVE)» – сумма значений над ячейкой (аналог метода AutoSum);
- «=SUM(BELOW)» – сумма значений под ячейкой;
- «=SUM(RIGHT)» – сумма значений справа от ячейки.
12 комментариев для “VBA Excel. Создание таблиц в документе Word”
Спасибо автору сайта за подробное описание и примеры.
Вопрос по записи макроса в Word 2003.
Нужно реализовать отключение макросом автоподбора размеров таблицы по содержимому (Свойства таблицы — Таблицы — Параметры). При попытке записать макрос Свойства таблицы оказываются недоступными.
Подскажите код, который будет отключать автоподбор размеров таблицы по содержимому.
Спасибо.
Здравствуйте, Юрий!
Попробуйте так:
Евгений, спасибо огромное!
Конструкция работает — в таблице, вставленной макросом из Excel в Word ширина столбцов остаётся такой же как и в Excel.
Здравствуйте Евгений!
Может Вы подскажете в чем дело.
Нужно вставить несколько диапазонов ячеек из Excel в Word.
Эти диапазоны могут быть разной высоты (разное количество строк и разная высота строк)
Нужно, чтобы каждый диапазон располагался на отдельном листе Word.
Руками я делаю так: на листе Word рисую таблицу из одной ячейки и в неё вставляю нужную таблицу Excel.
Сделал макрос, который вставляет нужные диапазоны ячеек в документ из шаблона Word по
меткам и т.д.
Всё отлично работает, но страницы «съезжают» т.к. высота вставляемых диапазонов (количество и высота строк в них) меняется.
Если в шаблоне Word рисую таблицу из одной ячейки на весь лист, в которую ставлю метку, например, ,
то VBA вставляет таблицу ВЫШЕ ячейки на листе Word. Причем, метка остается внутри ячейки.
Основные объекты, использующиеся в VBA Word для определения места вставки, добавления и форматирования текста – это Selection (выделение), Range (диапазон) и Bookmark (закладка).
Selection и Range позволяют заполнять текстом новые документы или редактировать существующие. Закладки можно использовать для вставки изменяемых реквизитов в шаблоны различных документов: договоры, акты, справки.
Объект Range имеет преимущество перед объектом Selection, так как он может быть создан только программно и не зависит от действий пользователя. Если для вставки и форматирования текста будет использоваться объект Selection, а пользователь во время работы программы просто поставит курсор в другое место документа, результат будет непредсказуем.
Word.Range кардинально отличается от объекта Range в Excel. В приложении Word он представляет из себя набор из одного или множества символов. А также он может вообще не содержать ни одного символа, а быть указателем ввода текста (виртуальным курсором).
Объект Range возвращается свойством Range других объектов приложения Word: Document, Selection, Bookmark, Paragraph, Cell (объект Table).
Вставка текста без форматирования
Если текст вставляется без форматирования, достаточно одной строки кода (myDocument – это переменная):
- Вставка текста с заменой имеющегося: myDocument.Range.Text = "Вставляемый текст"
- Добавление текста после имеющегося: myDocument.Range.InsertAfter "Добавляемый текст"
- Добавление текста перед имеющимся: myDocument.Range.InsertBefore "Добавляемый текст"
Методами InsertAfter и InsertBefore можно вставить текст и на пустую страницу, также, как с помощью свойства Text. Перейти на новый абзац и начать предложение с красной строки можно с помощью ключевых слов vbCr (vbNewLine, vbCrLf) и vbTab.
Вставка текста с форматированием
Для форматирования отдельных участков текста необходимо указать диапазон символов, входящих в этот участок. Здесь нам также поможет объект Range, которому можно задать любой набор символов, содержащихся в документе Word.
VBA — это очень мощный инструмент, который можно использовать для автоматизации большой работы между несколькими приложениями Microsoft Office. Одним из распространенных действий, которые вы можете автоматизировать с помощью VBA, является вставка таблицы Excel в документ Word.
Visual Basic для приложений (VBA) — очень мощный инструмент, который можно использовать для автоматизации большой работы между несколькими приложениями Microsoft Office. Одним из распространенных действий, которые вы можете автоматизировать с помощью VBA, является вставка таблицы Excel в документ Word.
Есть два способа сделать это. Первый — это автоматическое копирование и вставка существующего диапазона из Excel в новую таблицу в документе Word. Второй — выполнение расчетов в Excel, создание новой таблицы в Word и запись результатов в таблицу.
Вы можете попытаться записать макрос, чтобы сделать это, но макросы позволят вам только автоматизировать задачи внутри Word. В этой статье вы узнаете, как писать код VBA для автоматизации этих действий между Excel и Word.
Скопируйте и вставьте диапазон Excel в Word с VBA
В обоих примерах мы начнем с образца электронной таблицы Excel. Этот образец представляет собой список заказов на покупку различных продуктов.
Допустим, вы хотите скопировать и вставить весь диапазон ячеек на этом листе в документ Word. Для этого вам нужно написать функцию VBA, которая будет запускаться при нажатии кнопки «Копировать в слово».
Выбрать разработчик из меню и выберите Вставить из группы управления на ленте. В раскрывающемся списке выберите элемент управления «Кнопка» в разделе «Элементы управления ActiveX».
Затем нарисуйте командную кнопку на правой стороне листа. Вы можете изменить заголовок на «Копировать в Word», щелкнув правой кнопкой мыши по кнопке и выбрав свойства, Измените текст заголовка, и вы можете использовать шрифт для обновления размера и стиля шрифта.
Запись: Если вы не видите разработчик в меню Excel, затем добавьте его. Выбрать файл, Опции, Настроить лентуи выберите Все команды из выпадающего списка слева. Тогда двигайся разработчик от левой панели вправо и выберите OK, чтобы закончить.
Напишите копию и вставьте код VBA
Теперь вы готовы начать писать код VBA. Чтобы начать, дважды щелкните новый Копировать в Word кнопка, чтобы открыть окно редактора кода.
Вы должны увидеть подпрограмму с именем Commandbutton1_Click (), как показано ниже.
Вы хотите скопировать каждый раздел кода ниже. Прежде чем приступить к написанию кода, для управления Word на вашем компьютере с помощью VBA необходимо включить справочную библиотеку Microsoft Word.
В редакторе кода выберите инструменты из меню и выберите Ссылки, В списке доступных ссылок прокрутите вниз и включите Библиотека объектов Microsoft Word 16.0,
Выберите OK, и вы готовы начать кодирование. Мы рассмотрим каждый раздел кода за раз, чтобы вы поняли, что делает этот код и почему.
Во-первых, вам нужно создать переменные и объекты, которые будут содержать диапазон и позволять вам управлять приложением Word.
Dim tblRange As Excel.Range
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim WordTable As Word.Table
Следующая строка кода выбирает определенный диапазон ячеек и сохраняет его в объекте диапазона Excel в VBA.
Set tblRange = ThisWorkbook.Worksheets("Sheet1").Range("A2:G44")
Затем вы хотите проверить, открыто ли приложение Word на компьютере. Для этого вы можете ссылаться на приложение Word, используя специальную ссылку «класс» с командой VBA GetObject. Если Word еще не открыт, то следующая строка запустит его с помощью функции CreateObject. Строка «On Error Resume Next» предотвращает любую ошибку первой функции GetObject (если Word еще не открыт) останавливать выполнение следующей строки в программе.
On Error Resume Next
Set WordApp = GetObject(class:="Word.Application")
If WordApp Is Nothing Then Set WordApp = CreateObject(class:="Word.Application")
Теперь, когда приложение Word запущено, вы хотите сделать его видимым для пользователя и активировать его для использования.
Далее вы хотите создать новый документ в приложении Word.
Set WordDoc = WordApp.Documents.Add
Наконец, вы скопируете и вставите диапазон ячеек в новую таблицу в документе Word.
tblRange.Copy
WordDoc.Paragraphs(1).Range.PasteExcelTable _
LinkedToExcel:=False, _
WordFormatting:=False, _
RTF:=False
Переключатели в вышеупомянутой функции вставят несвязанную таблицу, используя исходное форматирование Excel (не форматирование Word) и не используя расширенный текстовый формат.
Наконец, для работы с диапазонами Excel, которые шире, чем документ, вам нужно автоматически установить новую таблицу, чтобы она соответствовала полям вашего нового документа Word.
Set WordTable = WordDoc.Tables(1)
WordTable.AutoFitBehavior (wdAutoFitWindow)
И теперь вы сделали! Сохраните файл как файл Excel с поддержкой макросов (расширение .xlsm). Закройте редактор, снова сохраните исходный файл Excel, а затем нажмите командную кнопку, чтобы увидеть код в действии!
Записать результаты Excel в таблицу Word с помощью VBA
В следующем разделе вы напишете код VBA, который выполняет вычисления значений в Excel и записывает их в таблицу в Word.
Для этого примера мы возьмем данные на 10 строк, вычислим и запишем результаты в таблицу в документе Word. Кроме того, исходная таблица будет содержать четыре столбца, а код VBA извлечет первые десять строк данных из этого диапазона.
Как и в последнем разделе, мы рассмотрим каждый раздел за раз, чтобы вы понимали, что делает этот код и почему.
Сначала создайте переменные и объекты, которые будут содержать данные и позволят вам писать в приложение Word.
Dim tblRange As Excel.Range
Dim WrdRange As Word.Range
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim WordTable As Word.Table
Dim intRows
Dim intColumns
Dim strDate As String
Dim strItem As String
Dim intUnits As Variant
Dim intCost As Variant
Dim intTotal As Variant
Затем установите общее количество столбцов и строк, которые вы хотите прочитать из диапазона Excel.
intNoOfRows = 10
intNoOfColumns = 5
Повторите тот же код, что и в последнем разделе, который откроет Word, если он еще не открыт.
On Error Resume Next
Set WordApp = GetObject(class:="Word.Application")
If WordApp Is Nothing Then Set WordApp = CreateObject(class:="Word.Application")
WordApp.Visible = True
WordApp.Activate
Set WordDoc = WordApp.Documents.Add
Следующие четыре строки создают таблицу внутри вновь открытого документа Word.
Set WrdRange = WordDoc.Range(0, 0)
WordDoc.Tables.Add WrdRange, intNoOfRows, intNoOfColumns
Set WordTable = WordDoc.Tables(1)
WordTable.Borders.Enable = True
Наконец, следующий цикл выполнит эти действия:
- Для каждой строки поместите дату заказа, позицию, единицы и стоимость в переменные
- Рассчитайте стоимость за единицу времени (общую продажу) и сохраните ее в переменной
- Для каждого столбца запишите значения в таблицу Word, включая рассчитанный общий объем продаж в последней ячейке.
- Перейдите к следующему ряду и повторите процедуру выше
Вот как выглядит этот код:
For i = 1 To intNoOfRows
For j = 1 To intNoOfColumns
If j = 1 Then
strDate = tblRange.Cells(i + 1, j).Value
strItem = tblRange.Cells(i + 1, j + 1).Value
intUnits = Val(tblRange.Cells(i + 1, j + 2).Value)
intCost = Val(tblRange.Cells(i + 1, j + 3).Value)
intTotal = intUnits * intCost
End If
Select Case j
Case Is = 1
WordTable.Cell(i, j).Range.Text = strDate
Case Is = 2
WordTable.Cell(i, j).Range.Text = strItem
Case Is = 3
WordTable.Cell(i, j).Range.Text = intUnits
Case Is = 4
WordTable.Cell(i, j).Range.Text = intCost
Case Is = 5
WordTable.Cell(i, j).Range.Text = intTotal
Case Else
End Select
Next
Next
Функция «Ячейки» в первой части извлекает значения ячеек из Excel. Ячейки (x, y) означают, что он извлекает значение ячейки в строке x и столбце y.
Функция «Ячейка» в последней части записывает данные в ячейки таблицы Word, используя те же назначения строк и столбцов.
После сохранения и запуска этого кода VBA вы увидите результаты в только что созданном документе Word.
Как видите, не так сложно создать полезную автоматизацию между Excel и Word. Это просто вопрос понимания того, как работают различные «объекты», которые могут создавать и контролировать приложения Excel и Word на вашем компьютере.
Здравствуйте!
Столкнулся с проблемой - не знаю как выделить макросом несколько строк в таблице WORD сразу.
Как выделить одну знаю: Это работает
Selection.Tables(1).Rows(1).Select
Пробовал макрос записать Выделил строки в ручную и скопировал их буфер. Получил это:
Sub Макрос2()
'
' Макрос2 Макрос
Может подскажите другое решение?
Суть Есть большой файл Word 462 страницы там несколько таблиц 3 или 4. Мне надо эту таблицу скопировать в excel. Полностью скопировать в буфер удается, но вставить в excel оттуда нет - пишет что невозможно вставить. По столбцам копировать тоже не дает- пишет разной длины.
Единственный способ копировать по строчно или несколько строк в буфер и вставлять в excel
Как это сделать макросом?
Здравствуйте!
Столкнулся с проблемой - не знаю как выделить макросом несколько строк в таблице WORD сразу.
Как выделить одну знаю: Это работает
Selection.Tables(1).Rows(1).Select
Пробовал макрос записать Выделил строки в ручную и скопировал их буфер. Получил это:
Sub Макрос2()
'
' Макрос2 Макрос
Может подскажите другое решение?
Суть Есть большой файл Word 462 страницы там несколько таблиц 3 или 4. Мне надо эту таблицу скопировать в excel. Полностью скопировать в буфер удается, но вставить в excel оттуда нет - пишет что невозможно вставить. По столбцам копировать тоже не дает- пишет разной длины.
Единственный способ копировать по строчно или несколько строк в буфер и вставлять в excel
Как это сделать макросом? clever77
Пробовал макрос записать Выделил строки в ручную и скопировал их буфер. Получил это:
Sub Макрос2()
'
' Макрос2 Макрос
Может подскажите другое решение?
Суть Есть большой файл Word 462 страницы там несколько таблиц 3 или 4. Мне надо эту таблицу скопировать в excel. Полностью скопировать в буфер удается, но вставить в excel оттуда нет - пишет что невозможно вставить. По столбцам копировать тоже не дает- пишет разной длины.
Единственный способ копировать по строчно или несколько строк в буфер и вставлять в excel
Как это сделать макросом? Автор - clever77
Дата добавления - 13.05.2017 в 17:36
RAN я оценил юмор, но что можете сказать по сути?
Пока лучшее что придумал это написать 2 макроса 1 в Word
Цикл перебора строк (по одной)
копирование в буфер
запуск макроса excel после копирования
2 Макрос excel
Определение занятых строк
активация первой пустой
вставка из буфера
Думаю должно сработать
Кстати кто знает что такое VBE в Word?
Я думал это VB Excel, но Word ругается пишет нет доверия
А было бы здорово
With Application.VBE и далее макрос Excel.
RAN я оценил юмор, но что можете сказать по сути?
Пока лучшее что придумал это написать 2 макроса 1 в Word
Цикл перебора строк (по одной)
копирование в буфер
запуск макроса excel после копирования
2 Макрос excel
Определение занятых строк
активация первой пустой
вставка из буфера
Думаю должно сработать
Кстати кто знает что такое VBE в Word?
Я думал это VB Excel, но Word ругается пишет нет доверия
А было бы здорово
With Application.VBE и далее макрос Excel. clever77
Пока лучшее что придумал это написать 2 макроса 1 в Word
Цикл перебора строк (по одной)
копирование в буфер
запуск макроса excel после копирования
2 Макрос excel
Определение занятых строк
активация первой пустой
вставка из буфера
Думаю должно сработать
Кстати кто знает что такое VBE в Word?
Я думал это VB Excel, но Word ругается пишет нет доверия
А было бы здорово
With Application.VBE и далее макрос Excel. Автор - clever77
Дата добавления - 14.05.2017 в 16:42
а вы? где образчики файлов? образчики ругающихся скринов? тут телепаты по вашему? Автор - buchlotnik
Дата добавления - 14.05.2017 в 17:15
Файл слишком большой 376 Мегабайт. потому и не выкладываю
Как выделить в таблице несколько строк не знаю, но решение своего вопроса нашел:
работает медленно, но работает
office 2016
Важно- перед запуском макроса таблицу надо выбрать - навести курсор и кликнуть мышкой
Sub for_i()
Dim objXls As Object
Set objXls = CreateObject("Excel.Application")
objXls.Workbooks.Open "D:\Macros2017\MWE.xlsm" ' Открытие файла Excel с нужным макросом -открывать 1 раз
a = Selection.Tables(1).Rows.Count
'а=35292 строк в таблице
For i = 1 To a
Selection.Tables(1).Rows(i).Select
Selection.Copy
objXls.Application.Visible = True
objXls.Run ("WDEX") ' WDEX название макроса excel
Next i
End Sub
Sub WDEX()
irow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(irow + 1, 1).Select
With Selection
ActiveSheet.Paste
End With
Exit Sub 'Обязательно иначе застревает на end sub и требует нажатия f5
End Sub
Целиком таблицу еще не перекинул (может еще что всплывет), но 5 строк подряд скопировал
Если выделить несколько строк и скопировать дело будет двигаться быстрее
На другом форуме посоветовали это
'выделить в документе промежуток .
ActiveDocument.Range( _
Start:=ActiveDocument.Lists(1).Range.Start, _
End:=ActiveDocument.Lists(1).Range.Start).Select
Но у меня не работает.
Кстати по поводу VBE -EXCEL - безопасность - есть пункт доверять VBA
Файл слишком большой 376 Мегабайт. потому и не выкладываю
Как выделить в таблице несколько строк не знаю, но решение своего вопроса нашел:
работает медленно, но работает
office 2016
Важно- перед запуском макроса таблицу надо выбрать - навести курсор и кликнуть мышкой
Sub for_i()
Dim objXls As Object
Set objXls = CreateObject("Excel.Application")
objXls.Workbooks.Open "D:\Macros2017\MWE.xlsm" ' Открытие файла Excel с нужным макросом -открывать 1 раз
a = Selection.Tables(1).Rows.Count
'а=35292 строк в таблице
For i = 1 To a
Selection.Tables(1).Rows(i).Select
Selection.Copy
objXls.Application.Visible = True
objXls.Run ("WDEX") ' WDEX название макроса excel
Next i
End Sub
Sub WDEX()
irow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(irow + 1, 1).Select
With Selection
ActiveSheet.Paste
End With
Exit Sub 'Обязательно иначе застревает на end sub и требует нажатия f5
End Sub
Целиком таблицу еще не перекинул (может еще что всплывет), но 5 строк подряд скопировал
Если выделить несколько строк и скопировать дело будет двигаться быстрее
На другом форуме посоветовали это
'выделить в документе промежуток .
ActiveDocument.Range( _
Start:=ActiveDocument.Lists(1).Range.Start, _
End:=ActiveDocument.Lists(1).Range.Start).Select
Но у меня не работает.
Кстати по поводу VBE -EXCEL - безопасность - есть пункт доверять VBA clever77
Sub for_i()
Dim objXls As Object
Set objXls = CreateObject("Excel.Application")
objXls.Workbooks.Open "D:\Macros2017\MWE.xlsm" ' Открытие файла Excel с нужным макросом -открывать 1 раз
a = Selection.Tables(1).Rows.Count
'а=35292 строк в таблице
For i = 1 To a
Selection.Tables(1).Rows(i).Select
Selection.Copy
objXls.Application.Visible = True
objXls.Run ("WDEX") ' WDEX название макроса excel
Next i
End Sub
Sub WDEX()
irow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(irow + 1, 1).Select
With Selection
ActiveSheet.Paste
End With
Exit Sub 'Обязательно иначе застревает на end sub и требует нажатия f5
End Sub
Целиком таблицу еще не перекинул (может еще что всплывет), но 5 строк подряд скопировал
Если выделить несколько строк и скопировать дело будет двигаться быстрее
На другом форуме посоветовали это
'выделить в документе промежуток .
ActiveDocument.Range( _
Start:=ActiveDocument.Lists(1).Range.Start, _
End:=ActiveDocument.Lists(1).Range.Start).Select
Но у меня не работает.
Кстати по поводу VBE -EXCEL - безопасность - есть пункт доверять VBA Автор - clever77
Дата добавления - 14.05.2017 в 21:02
Читайте также: