Excel - Crear ficheros desde excel

   
Vista:

Crear ficheros desde excel

Publicado por Pablo (2 intervenciones) el 08/01/2009 09:53:51
Tengo un libro Excel con una hoja por cada comercial, donde les informo de sus comisiones. Cada hoja lleva el nombre de cada uno de ellos.
Las hojas las creo a partir de una tabla dinámica.
¿Como podría crear un fichero nuevo por cada hoja?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Crear ficheros desde excel

Publicado por Martha (270 intervenciones) el 28/03/2009 22:42:58
Crea una macro:

Sub Crear_archivos_de_hojas()

Dim strHoja, strStartHoja, strRuta As String
Dim i As Integer

Application.ScreenUpdating = False
strStartHoja = ActiveCell.Worksheet.Name

'bucle todas hojas
For i = 1 To Sheets.Count

'copia la hoja a libro nuevo
Sheets(i).Activate
strHoja = ActiveCell.Worksheet.Name
Sheets(strHoja).Copy

'IMPORTANTE:
'donde guardar los archivos creados
strRuta = "C:excelvbaejemplos"

'guarda el libro nuevo
ActiveWorkbook.SaveAs Filename:=strRuta & "" & strHoja, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close Savechanges:=True

'repetir bucle'
Next

Sheets(strStartHoja).Activate
Application.ScreenUpdating = True

End Sub

Esta probado y funciona.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar