Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, exporta o o conteúdo para uma determinada planilha csv
Sub Arquivo_CSV()
Sheets("Plan1").Activate
Dim x, y, vLinhaAnterior, vColunaAnterior
Application.ScreenUpdating = False
ActiveSheet.Range("A1").Select
Selection.CurrentRegion.Select
Set tbl = ActiveCell.CurrentRegion
vLinhaAnterior = tbl.Rows.Count
vColunaAnterior = tbl.Columns.Count
Cells(1, 1).Select
Open "Pagamento0" + s5 + ".csv" For Output As #1
For x = 1 To vLinhaAnterior
For y = 1 To vColunaAnterior - 1
Print #1, Cells(x, y) & "; ";
Next y
Print #1, Cells(x, y + 1)
Next x
Close #1
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos Saberexcel
