Saberexcel - o site das macros
Esta macro do aplicativo Microsoft Excel VBA, abre um arquivo CSV
'CSV ( Microsoft Excel Comma Separated Values Files )
Sub Abre_arquivo_Csv_xls()
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 "Pagamento" + b5 + ".csv" For Output As #1
For x = 1 To vLinhaAnterior
For y = 1 To vColunaAnterior - 1
If TypeName(Cells(x, y + 1).Value) = "Date" Then
Print #1, Format(Cells(x, y + 1).Formula, "dd/mm/yyyy hh:mm:ss") & ";";
Else
Print #1, Cells(x, y + 1).Formula & ";";
End If
Print #1, Cells(x, y).Formula + ";";
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
