Guardar hoja de libro como *.CSV

08/01/2006 - 23:52 por Javichu | Informe spam
Hola amigos, de nuevo recurre o vuestra conocimiento para salir de u
atasco.
Como puedo hacer, mediante código al cuál lo aplicaré a un boton, qu
una Hoja de un libro (ej. HojaX) se guarde en una ubicación determinad
del pc (o en la misma carpeta que contiene el libro en la que s
encuentra) pero con formato de separación por comas, (*.csv).
Ej.
1. Un libro tiene 3 hojas y una se llama HojaX.
2. Ésa hoja (HojaX) hay que guardarla con un nombre determinado en un
celda de ésa misma hoja (o de otra cualquiera) con formato *.CSV
Como si esa hoja fuera un libro nuevo.
3. Se puede guardar en la misma carpeta dónde está el libro que l
contiene, o en cualquier otra ubicación.

Ése código haré que se ejecute al hacer click en un botón a volunta
del usuario.

Gracias por vuestra atención y por vuestro tiempo. Un saludo

Javich
Javichu's Profile: http://www.msusenet.com/member.php?useridB9
View this thread: http://www.msusenet.com/t-187366539
 

Leer las respuestas

#1 Héctor Miguel
10/01/2006 - 04:06 | Informe spam
hola, Javichu !

... que una Hoja de un libro (ej. HojaX) se guarde en una ubicación determinada del pc
(o en la misma carpeta que contiene el libro en la que se encuentra) pero con formato de separación por comas, (*.csv).
1. Un libro tiene 3 hojas y una se llama HojaX.
2. ... hay que guardarla con un nombre determinado en una celda de esa misma hoja (o de otra cualquiera) con formato *.CSV
Como si esa hoja fuera un libro nuevo.
3. Se puede guardar en la misma carpeta dónde está el libro que la contiene, o en cualquier otra ubicacion.
Ese codigo hare que se ejecute al hacer click en un boton a voluntad del usuario...



suponiendo que ya te 'decidiste' por el nombre y ubicacion del archivo
y no hay 'errores' en la cadena de construccion de 'NombreArchivo' [p.e. en alguna 'variable' con ese nombre]
[y que -este- 'NO existe' en el directorio donde se va a guardar]
prueba con algo +/- como lo siguiente...
Worksheets("HojaX").Copy
ActiveWorkbook.SaveAs _
FileName:=NombreArchivo, _
FileFormat:=xlCSV
ActiveWorkbook.Close, False

-> 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