Excel vba arquivos exporta conteudo para um a planilha csv

Sáb, 01 de Janeiro de 2011 09:40 Expedito Marcondes
Imprimir

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

Tags:
Última atualização em Sáb, 13 de Agosto de 2011 17:25