Скачать или смотреть Макрос Excel VBA: создание документа Word и добавление таблицы (динамический диапазон)

💼 Наймите меня для автоматизации Excel VBA
Нужна помощь в автоматизации рабочих процессов Excel? Я специализируюсь на разработке индивидуальных решений для Excel VBA, которые сэкономят ваше время и избавят от повторяющихся задач.
👉 https://www.upwork.com/freelancers/~0...

Макрос Excel VBA: создание документа Word и добавление таблицы (динамический диапазон). В этом видео мы рассмотрим, как добавить таблицу в документ Word с динамическим диапазоном из Excel. Мы также кратко рассмотрим, как включить границы таблицы и изменить цвет фона таблицы с помощью нашего кода. Наконец, мы изменим размер диапазона, чтобы показать, что макрос будет включать все строки и столбцы независимо от размера диапазона, заданного в Excel.

Код:

Sub add_table_2_word_dynamic_range()

Dim objWord
Dim objDoc
Dim objSelection
Dim i As Integer
Dim j As Integer
Dim ws As Worksheet
Dim row_count As Integer
Dim col_count As Integer

Set ws = ThisWorkbook.Sheets("Sheet1")
ws.Activate
row_count = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlDown)))
col_count = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlToRight)))

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add
Set objSelection = objWord.Выделение

objWord.Видимость = Истина
objWord.Активация

Установить CountryTable = objDoc.Таблицы.Добавить(objSelection.Диапазон, количество_строк, количество_столбцов)
С CountryTable

С .Границы
.включить = Истина
.внешний цвет = RGB(0, 0, 0)
.внутренний цвет = RGB(0, 0, 0)

Завершить с

.Строки(1).затенение.цвет_фона = RGB(0, 153, 255)

Для i = 1 До количества_строк

Для j = 1 До количества_столбцов

.ячейка(i, j).Диапазон.Вставитьпосле ws.Ячейки(i, j).Текст

Следующий j

Следующий i

Завершить с

Конец подпрограммы

#ExcelVBA #ExcelMacro