Exportar arquivo .xlsm para .cvs do intervalo selecionado
Enviado: 24 Mai 2022 às 18:02
Pessoal,
Preciso de ajuda, estou utilizando a macro abaixo para converter um arquivo .xlsm em .csv, mas ocorre que ele converte todo o conteúdo da planilha, mas preciso que seja convertido apenas um intervalo de dados, conforme vou tento mais informações sendo inserida na planilha.
Tentei acrescentar na macro a função range().select, mas sem sucesso.
Código utilizado:
Public Sub ExportarCSV()
Dim Arquivo As String
Arquivo = Application.GetSaveAsFilename( _
FileFilter:="Delimitado por vírgulas (*.csv), *.csv")
ThisWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Arquivo, xlCSV
ActiveWorkbook.Close
End Sub
Preciso de ajuda, estou utilizando a macro abaixo para converter um arquivo .xlsm em .csv, mas ocorre que ele converte todo o conteúdo da planilha, mas preciso que seja convertido apenas um intervalo de dados, conforme vou tento mais informações sendo inserida na planilha.
Tentei acrescentar na macro a função range().select, mas sem sucesso.
Código utilizado:
Public Sub ExportarCSV()
Dim Arquivo As String
Arquivo = Application.GetSaveAsFilename( _
FileFilter:="Delimitado por vírgulas (*.csv), *.csv")
ThisWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Arquivo, xlCSV
ActiveWorkbook.Close
End Sub