contar linhas na macro

[clau2003cos]

Comunidade!

Estou precisando de uma ajuda. Tenho uma macro que exporta 3 tabelas dinâmicas para planilha do Excel.

Hoje a macro esta configurada para colar as tabelas dinâmicas a partir de uma célula especifica

Como o volume de dados aumentou, e a quantidade de linhas na tabela esta dinâmica devido as seleções feitas no modelo antes de executar a macro, gostaria  que me ajudassem ajustar a exportação para que se adapte com a quantidade de dados da tabela. Alguém tem um exemplo para me ajudar

Obrigado

[joseph_morales · Accepted solution]

Estimado Claudio,

Puedes utilizar lo siguiente para calcular la cantidad de filas de una tabla:

set MyTable = ActiveDocument.GetSheetObject("CH01")

W = MyTable.GetRowCount+12     ' W contiene la cantidad de filas de la tabla CH01

Mytable.CopyTableToClipboard true

XLSheet.Paste XLSheet.Range("A12")   ' Acá pego mi primera tabla

'Para la siguiente tabla

set MyTable = ActiveDocument.GetSheetObject("CH02")

X = MyTable.GetRowCount    '  valor de filas de mi tabla CH02

Mytable.CopyTableToClipboard true

XLSheet.Paste XLSheet.Range("A"&W+5)  ' posición para la 2da tabla + un espacio

[clau2003cos]

Obrigado!