Pessoal, boa tarde a todos.
Procurei algo parecido no fórum, mas não encontrei
Tenho certeza que estou cometendo um erro ridículo, mas meus neurônios já pifaram
Quero achar a última linha com conteúdo no excel:
Set XLDoc = XLApp.Workbooks.Open("C:\Users\vinitol\Documents\Relatorio.xlsx")
XLDoc.RefreshAll
Set sh = XLDoc.ActiveSheet
Set XLDocLinha = sh.Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row
Não há jeito, já tentei várias diferenciações.
ALguém pode me ajudar?
Desde já, obrigado!
Procurei algo parecido no fórum, mas não encontrei
Tenho certeza que estou cometendo um erro ridículo, mas meus neurônios já pifaram
Quero achar a última linha com conteúdo no excel:
Set XLDoc = XLApp.Workbooks.Open("C:\Users\vinitol\Documents\Relatorio.xlsx")
XLDoc.RefreshAll
Set sh = XLDoc.ActiveSheet
Set XLDocLinha = sh.Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row
Não há jeito, já tentei várias diferenciações.
ALguém pode me ajudar?
Desde já, obrigado!