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