Macro para guardar hoja de excel como CSV
¿Cómo estan?
Necesito me den una mano, ya que recién entro en el tema de las macros.
Tengo un archivo en el cual requiero que la Hoja2 se guarde como un archivo nuevo .csv, pero que me de a elegir a mi la carpeta donde quiero guardarlo.
Respuesta de Dante Amor
[Ho la y bienvenida a TodoExpertos.
Visita:
Cursos de Excel y Macros
Por Dante Amor
----- --
Prueba la siguiente macro:
Sub GuardarCSV()
Dim carpeta As Variant
'
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Selecciona la Carpeta"
If .Show <> -1 Then Exit Sub
carpeta = .SelectedItems(1) & "\"
End With
'
Sheets("Hoja2").Copy
ActiveWorkbook.SaveAs Filename:=carpeta & "hoja2.csv", _
FileFormat:=xlCSV, CreateBackup:=False, Local:=True
ActiveWorkbook.Close False
End Sub----- --
RECOMENDACIONES:
curso de macros. Consejos para empezar a programar. - YouTube
Sal u dos. Dante Amor
