............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Guardar las hojas de un WorkBook como Archivos CSV, independientes

Ir abajo

Guardar las hojas de un WorkBook como Archivos CSV, independientes

Mensaje por GalileoGali el Jue Mar 13, 2008 8:12 am

Incluyo una Excelente solucion con VBA aportada ("se la robé") por Ioyama, para guardar Hojas conteniendo datos a Formato .CSV

Pueden descargar el archivo aqui:

DESCARGAR ARCHIVO


Código:
Sub GuardarCsv()
Application.ScreenUpdating = False
ruta = ActiveWorkbook.Path & "\"
For i = 1 To Sheets.Count
    If Left(Sheets(i).Name, 3) <> "MES" Then GoTo Salto
    aviso = MsgBox("" & vbCrLf & "" & vbCrLf & "¿Desea guardar la hoja " _
        & Sheets(i).Name & " como archivo .csv?              " & vbCrLf & "" _
        & vbCrLf & "", 33, "Guardar como .csv")
    Select Case aviso
        Case 1  'Aceptar / Ok
            nomfic = InputBox("" & vbCrLf & "" & vbCrLf & "Indique el nombre con el que quiere guardar la hoja")
            If nomfic = "" Then GoTo Salto
            Sheets(i).Select
            Sheets(i).Copy
            ActiveWorkbook.SaveAs Filename:=ruta & nomfic & ".csv", _
                FileFormat:=xlCSV, CreateBackup:=False
            ActiveWindow.Close (1)
        Case 2  'Cancelar / Cancel
    End Select
Application.ScreenUpdating = True
Salto:
Next i
Sheets(1).Select
End Sub


Gracias Ioyama por este "Aporte Voluntario"

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.