Exportar con macro a un archivo CSV
Publicado por Rick (1 intervención) el 31/07/2020 20:27:30
En las instrucciones registradas como puedo evitar el tener una ruta especifica para grabación del archivo CSV.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Public Sub ExportWorksheetAndSaveAsCSV()
Dim wbkExport As Workbook
Dim shtToExport As Worksheet
Set shtToExport = ThisWorkbook.Worksheets("CSV-SB") 'Sheet to export as CSV
Set wbkExport = Application.Workbooks.Add
shtToExport.Copy Before:=wbkExport.Worksheets(wbkExport.Worksheets.Count)
Application.DisplayAlerts = False 'Possibly overwrite without asking
wbkExport.SaveAs Filename:="C:\Users\Delgaric\Desktop\Seed Billing 2020\Archivo de Carga SB", FileFormat:=xlCSV
Application.DisplayAlerts = True
wbkExport.Close SaveChanges:=False
End Sub
Valora esta pregunta
-1
