SaberExcel - Aprenda Excel VBA, Site sobre macros, funções, fórmulas e planilhas do Excel VBA planilhas prontas e apostilas para download

Saberexcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA, exporta o conteúdo para uma determinada planilha csv

Sub Exporta_conteudo_p_planilha_csv()
Dim i, j, vUltimaLinha, vUltimaColuna, f As Worksheet

Set f = ActiveSheet

vUltimaLinha = f.Range("A1").SpecialCells(xlCellTypeLastCell).Row
vUltimaColuna = f.Range("A1").SpecialCells(xlCellTypeLastCell).Column

Open "c:\Excel VBA Estudos.csv" For Output As #1

For i = 1 To vUltimaLinha
For j = 1 To vUltimaColuna - 1

Print #1, f.Cells(i, j).Formula + "; ";

'para serparar r ";" será separado por vírgula

Next j

Print #1, f.Cells(i, j + 1).Formula

Next i

Close #1

End Sub




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos Saberexcel