Excel Macro para gerar arquivo CSV separado por virgula

[Ricardo001]

Prezados, boa noite!

Trabalho com uma planilha na qual exporto dados dela para o formato CSV (ponto e vírgula) (gerando uma planilha separada) e depois abro o arquivo CSV no bloco de notas e troco os pontos e virgulas para somente virgula, assim consigo utilizar os dados em outro programa que uso. Atualmente faço tudo isso manualmente, gostaria de uma macro para que eu apertasse o botão e ela exportasse os dados e criasse esse arquivo em CSV separado da planilha principal e já separado em vírgula. Alguém já tentou algo do tipo?

tentei usar o seguinte código mas não obtive exito.

Private Sub cmdXlsCsv_Click()

Dim xls As Excel.Application
    Dim tmp As String
    Dim oWB As Excel.Workbook
Set xls = New Excel.Application
tmp = "C:\Users\cjack\Desktop\Copy of Book5.xlsx"
 Set oWB = xls.Workbooks.Open(tmp)
    oWB.SaveAs Filename:=Replace(tmp, ".xls", ".csv", , , vbTextCompare), FileFormat:=xlCSVMSDOS, CreateBackup:=False
    oWB.SaveAs Filename:=Replace(tmp, ".xls", ".csv", , , vbTextCompare), FileFormat:=xlCSVMSDOS, CreateBackup:=False
    oWB.Close
    xls.Quit
End Sub

Se alguém puder me ajudar, ficarei imensamente grato,

 

Atte.,

EXEMPLO.zip

[ricardo_br]

Não tenho excel instalado aqui para testar mais da uma olhada nisso:

 

https://stackoverflow.com/questions/39921893/writing-excel-table-to-csv-via-vba

[Midori]

@Ricardo001 Aqui a sua macro salvou só com vírgula. Na sub SaveAs tem o parâmetro Local que pode modificar isso. Tente atribuir False e se continuar com ponto e vírgula tente com True.