Диапазон VBA (xldown и xltoright) и вставка в слово - PullRequest
Новая
       3

Диапазон VBA (xldown и xltoright) и вставка в слово

0 голосов
/ 13 февраля 2020

Я пытаюсь скопировать сводную таблицу в слово, используя код VBA. Все работает отлично, за исключением того, что он вставляет только заголовок и первую строку таблицы. Сначала я подумал, что это может быть связано с тем, что это сводная таблица, поэтому я даже попытался скопировать / вставить в другое место на том же листе и использовать этот диапазон в коде. Когда я делаю это, пустые столбцы впереди (6 из них) также вставляются в слово.

Диапазон поворота равен AA1:AE1 Таблица с увеличением / уменьшением в зависимости от введенных данных, поэтому xldown & xltoright необходимо

Код 

Sub createbasicwordreport()

Dim wdapp As Word.Application

Set wdapp = New Word.Application

With wdapp
    .Visible = True
    .Activate
    .Documents.Add

End with

   Range("AA1", Range("AA1").End(xlDown).End(xlToRight)).Copy

    wdapp.Selection.PasteExcelTable False, True, False
...