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

Guardar las hojas de un WorkBook como Archivos CSV, independientes

Ver el tema anterior Ver el tema siguiente 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:

[Tienes que estar registrado y conectado para ver este vínculo]


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

Ver el tema anterior Ver el tema siguiente Volver arriba


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