Guardar una hoja de un libro excel en formato excel

Hola. Tengo un libro con unas 25 hojas aprox.
El caso es que tengo una hoja en este libro que la utilizo como plantilla y voy guardando según voy introduciéndole los datos.
Hasta ahora utilizo esta macro esta para guardar:
              ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\Users\Añ\Desktop\Año 2010\Viajes\" _
            & Range("I8") & "\" & Range("D4") & ".pdf" _
            , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, OpenAfterPublish:=False
Que como podéis ver me pasa a formato PDF y me la guarda con el nombre de una celda (D4) y en una subcarpeta del escritorio también especificada en otra celda (I8).
Todo anda bien...
Lo que me gustaría que hiciera esta macro es lo mismo que hace, pero que me guardara dicha hoja en formato excel.
Todo esto es porque necesito mandar por e-mail dicha hoja y que el destinatario la pueda editar desde excel para después devolvérmela.
Gracias de antemano

1 respuesta

Respuesta
1
Dim Subcarpeta As String
Dim Archivo As String
Subcarpeta = Range("I8").Value
Archivo = Range("D4").Value
            "C:\Users\Añ\Desktop\Año 2010\Viajes\" _
           & Subcarpeta & "\" & Archivo & ".xls" _
            ,FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
Proba con eso a ver si te funciona
Hola, muchas gracias por responder..
No funciona,
Sub
Dim Subcarpeta As String
Dim Archivo As String
Subcarpeta = Range("I8").Value
Archivo = Range("D4").Value
            "C:\Users\Añ\Desktop\Año 2010\Viajes\" _
           & Subcarpeta & "\" & Archivo & ".xls" _
            ,FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

End sub

En cuanto ejecuto la macro se marca en rojo esto que te he puesto en negrita y me sale un "error de sintaxis"
El problema es que no se por donde coger tema... porque con ActiveSheet.SaveAs debería de funcionar, pero no.
Gracias de antemano
¿Qué office estas usando?
Office 2007
Dim Subcarpeta As String
Dim Archivo As String
Set Carp = CreateObject("Scripting.FileSystemObject")
Subcarpeta = Range("I8")
Archivo = Range("D4")
Carp.Createfolder ("C:\Users\Añ\Desktop\Año 2010\Viajes\" & Subcarpeta & "\")
ChDir "C:\Users\Añ\Desktop\Año 2010\Viajes\" & Subcarpeta & "\"
ActiveWorkbook.SaveCopyAs Filename:="C:\Users\Añ\Desktop\Año 2010\Viajes\" _
           & Subcarpeta & "\" & Archivo & ".xlsm"
Proba con esto a mi me funciona, finate que este creada bien la ruta anes de subcarpeta.
En set carp declaro primero para crear la carpeta, del rango I8 luego le digo que vaya a esa ubicación una vez creado y cree el archivo, pero no te lo guarda como, si no más bien te guarda una copia "savecopyas"
Pruébalo y contame
Me funciona perfectamente...
El único problem es que me guarda todo el libro, y claro, es un libro con más de 25 hojas. A mi me gustaría que me guardase solo la hoja ( que la llamo con el nombre de REGISTROS).
Siento muchísimo causarte tantas molestias, pero es que, no consigo dar con la solución,
Gracias de antemano. Un saludo
A la noche te lo paso
ActiveWorkbook. Sabe
Dim Subcarpeta As String
Dim Archivo As String
REGISTROS. Copy ' Este es el nombre de la hoja, acá le decís que haga una copia en otro archivo
Set Carp = CreateObject("Scripting.FileSystemObject")
Subcarpeta = Range("I8")
Archivo = Range("D4")
Carp.Createfolder ("C:\Users\Añ\Desktop\Año 2010\Viajes\" & Subcarpeta & "\")
ChDir "C:\Users\Añ\Desktop\Año 2010\Viajes\" & Subcarpeta & "\"
ActiveWorkbook.SaveAs Filename:="C:\Users\Añ\Desktop\Año 2010\Viajes\" & Subcarpeta & "\"  & Archivo & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook. Close ' aca despues de "guardar como" cerras el archivo
fijate si esto te sirve
Bueno.. lo consegistes..
Eres una maquina.
Sin tu ayuda, puede, que me hubiese vuelto loco
Lo único que tuve que cambiar es donde REGISTROS.. Le tuve que poner antes Sheets("REGISTROS").Copy
Muchísimas gracias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas