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