Macro para grabar cada hoja en un archivo

hola, Tony !

Me gustaria que alguien me dijese que macro deberia de utilizar para que cada una de las 4 hojas que tengo en un archivo
se grabasen como un archivo .html, cada una con su nombre (que equivaldria al nombre de cada hoja)...

en tanto comentas la version de excel que usas... prueba visitando:
-> Excel to HTML conversions
http://www.mvps.org/dmcritchie/excel/xl2html.htm

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Gracias Hector por la respuesta...

La versión de Excel que utilizo es el 2000... He visitado la página que me
indicas pero no tengo ni idea de ingles...

Te comento: lo que quiero es incorporar una macro para que cada una de las 4
hojas se guarde en un fichero para que luego con Access pueda importar esos 4
ficheros en tablas diferentes...

¿Cómo sería la macro para guardar cada hoja en un fichero distinto?...
Gracias...


"Héctor Miguel" wrote:

hola, Tony !

> Me gustaria que alguien me dijese que macro deberia de utilizar para que cada una de las 4 hojas que tengo en un archivo
> se grabasen como un archivo .html, cada una con su nombre (que equivaldria al nombre de cada hoja)...

en tanto comentas la version de excel que usas... prueba visitando:
-> Excel to HTML conversions
http://www.mvps.org/dmcritchie/excel/xl2html.htm

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

hola, Tony !

La version de Excel que utilizo es el 2000... He visitado la pagina que me indicas pero no tengo ni idea de ingles...
... lo que quiero es incorporar una macro para que cada una de las 4 hojas se guarde en un fichero
para que luego con Access pueda importar esos 4 ficheros en tablas diferentes...
Como seria la macro para guardar cada hoja en un fichero distinto?...

existe alguna situacion especial que te impida "importar" (directamente desde access) cada hoja/tabla de excel ?

saludos,
hector.

__ la consulta anterior __

> Me gustaria que alguien me dijese que macro deberia de utilizar para que cada una de las 4 hojas que tengo en un archivo
> se grabasen como un archivo .html, cada una con su nombre (que equivaldria al nombre de cada hoja)...

en tanto comentas la version de excel que usas... prueba visitando:
-> Excel to HTML conversions
http://www.mvps.org/dmcritchie/excel/xl2html.htm

No hay nada que impida importar carpeta cada hoja de excel, pero necesito que
el final de una macro se quede grabada cada hoja en un archivo distinto con
nombres distintos (los nombres de cada hoja) ¿Cómo se puede hacer?...

"Héctor Miguel" wrote:

hola, Tony !

> La version de Excel que utilizo es el 2000... He visitado la pagina que me indicas pero no tengo ni idea de ingles...
> ... lo que quiero es incorporar una macro para que cada una de las 4 hojas se guarde en un fichero
> para que luego con Access pueda importar esos 4 ficheros en tablas diferentes...
> Como seria la macro para guardar cada hoja en un fichero distinto?...

existe alguna situacion especial que te impida "importar" (directamente desde access) cada hoja/tabla de excel ?

saludos,
hector.

__ la consulta anterior __
>> > Me gustaria que alguien me dijese que macro deberia de utilizar para que cada una de las 4 hojas que tengo en un archivo
>> > se grabasen como un archivo .html, cada una con su nombre (que equivaldria al nombre de cada hoja)...
>>
>> en tanto comentas la version de excel que usas... prueba visitando:
>> -> Excel to HTML conversions
>> http://www.mvps.org/dmcritchie/excel/xl2html.htm

hola, Tony !

No hay nada que impida importar carpeta cada hoja de excel
pero necesito que el final de una macro se quede grabada cada hoja en un archivo distinto con... los nombres de cada hoja
Como se puede hacer?...

suponiendo que no habra problemas de nombres duplicados entre las hojas y/o libros ya existentes -?-
y asumiendo que cada nueva hoja-libro se puede guardar en el mismo directorio que el original -?-
prueba con una macro +/- como la siguiente (y la ejecutas desde tu libro con las 4 -o mas- hojas)...

Sub Separa_hojas()
Application.ScreenUpdating = False
Dim n As Integer
For n = 1 To Worksheets.Count
Worksheets(n).Copy
ActiveWorkbook.SaveAs ActiveSheet.Name
ActiveWorkbook.Close
Next
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.