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

Макрос 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