Macro para exportar a CSV

24/02/2005 - 18:51 por Carlos Alfonso García | Informe spam
Buenas tardes:

Necesito hacer que en una hoja de excel, al hacer clic en
un botón, me pase los datos que estén en esa hoja a un
archivo CSV. NO necesito que el resto de hojas del libro
se exporten, unicamente en la hoja donde está el botón.

El código que llevo es:

Private Sub CommandButton1_Click()
'CG. 20050224. Generación del archivo plano
Dim NombreArchivo As String
Dim i As Integer
NombreArchivo = "C:\" + Left(Range("A1").Value, 16) +
Left(Range("B1").Value, 1) + "IPS01.txt"
i = MsgBox("Se dispone a generar el archivo: " +
NombreArchivo + ". Desea continuar ?", vbYesNo)
If i = 6 Then
'Aquí es donde necesito generar ese archivo
MsgBox ("El archivo generado satisfactoriamente")
End If
End Sub


Muchas gracias por su ayuda
 

Leer las respuestas

#1 Héctor Miguel
25/02/2005 - 02:01 | Informe spam
hola, Carlos Alfonso !

... me pase los datos... a un archivo CSV unicamente en la hoja donde esta el boton [...]
... 'Aquí es donde necesito generar ese archivo
MsgBox ("El archivo generado satisfactoriamente") [...]



prueba con algo +/- como lo siguiente...
ActiveSheet.Copy
ActiveWorkbook.SaveAs _
FileName:=NombreArchivo, _
FileFormat:=xlCSV
ActiveWorkbook.Close, False

suponiendo que no hay 'errores' en la cadena de construccion de 'NombreArchivo'
[y que -este- 'NO existe' en el directorio donde se va a guardar]
-> con respecto del 'formato' [FileFormat:=...]
revisa en la ayuda de vba el formato que [realmente] 'necesitas' .TXT, o .CSV, o -???-
[p.e. xlCSVMSDOS, xlTextMSDOS, xlTextPrinter, xlTextWindows, etc.]

saludos,
hector.

Preguntas similares