Excel vba excel exportar para csv

[Kelvim]

Boa tarde

 

Gostaria de saber como exportar uma planilha do Excel para CSV porém quando faço isso ele exporta tudo concatenado na mesma célula da coluna A separado por "," virgula.

Gostaria de saber como exportar pelo VBA para CSV e de forma que cada valor seja separado por ";" ponto e virgula.

 

Att

 

[Kelvim]

Em 17/07/2019 às 15:44, Kelvim disse:

Boa tarde

 

Gostaria de saber como exportar uma planilha do Excel para CSV porém quando faço isso ele exporta tudo concatenado na mesma célula da coluna A separado por "," virgula.

Gostaria de saber como exportar pelo VBA para CSV e de forma que cada valor seja separado por ";" ponto e virgula.

 

Att

 

 

Consegui utilizando o código abaixo,

 

 

Sub CSV()

Dim MyFileName As String
Dim CurrentWB As Workbook, TempWB As Workbook
    
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
ENDERECO = ActiveWorkbook.Path

Windows("PASTA X").Activate
Sheets("TESTE").Select

Range("AG1:AK1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
arquivo02 = ActiveWorkbook.Name
ActiveSheet.Paste
plan = ActiveSheet.Name

Rows("1:1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Application.DisplayAlerts = False

    Set CurrentWB = ActiveWorkbook
    ActiveWorkbook.ActiveSheet.UsedRange.Copy

    Set TempWB = Application.Workbooks.Add(1)
    With TempWB.Sheets(1).Range("A1")
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteFormats
    End With

    'Dim Change below to "- 4"  to become compatible with .xls files
    'MyFileName = CurrentWB.Path & "\" & Left(CurrentWB.Name, Len(CurrentWB.Name) - 5) & ".csv"
    MyFileName = "C:\TESTE.csv"
    
    
        'Range("f5").Value = CurrentWB.Path & "\" & Left(CurrentWB.Name, Len(CurrentWB.Name) - 5) & ".csv"
    Application.DisplayAlerts = False
    TempWB.SaveAs Filename:=MyFileName, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
    TempWB.Close SaveChanges:=False
    Application.DisplayAlerts = True

Windows(arquivo02).Close False
Windows("PASTA X").Activate

    
Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True
End Sub