Grabar un archivo en una carpeta nueva adjuntandola en el path

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Grabar un archivo en una carpeta nueva adjuntandola en el path

Notapor JAMS1 » 29 Mar 2006 21:46

Alguien sabe si tengo el nombre de un archivo nuevo que se acaba de crear, tengo la ruta (PATH) y quiero crear una carpeta nueva para ahy grabar mi nuevo archivo como lo hago??
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
JAMS1
Miembro Frecuente
Miembro Frecuente
 
Registrado: 29 Mar 2006 21:41

Re: Grabar un archivo en una carpeta nueva adjuntandola en el path

Notapor ST » 30 Mar 2006 20:02

JAMS1:Bienvenido al foro

Creas la carpeta con "mkdir",checa el ejemplo:

http://www.exceluciones.com/portal/viewtopic.php?p=13326#13326

luego guardas el archivo y listo(supongo que en esto no tienes problemas)

salu2
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
ST
Miembro Frecuente
Miembro Frecuente
 
Registrado: 06 Jun 2005 17:56
Ubicación: Acapulco

Re: Grabar un archivo en una carpeta nueva adjuntandola en el path

Notapor KL » 30 Mar 2006 20:31

Hola JAMS1,

Por si necesitas crear directorios de mas de un nivel, hace algun tiempo escribi el siguiente codigo (funcionara en Excel a partir de la version 2000):

Código: Seleccionar todo
Sub test()
    Dim Ruta As String, Directorios, Temp As String
    Dim i As Long, Respuesta As VbMsgBoxResult
    Ruta = "D:\temp\prueba\carpeta\test"
    If Dir(Ruta) = "" Then
        Respuesta = MsgBox( _
            "La carpeta no existe. Desea crearla?", _
                vbExclamation + vbOKCancel)
        If Respuesta = vbCancel Then Exit Sub
        Directorios = Split(Ruta, "\")
        On Error Resume Next
        For i = LBound(Directorios) To UBound(Directorios)
            Temp = Temp & Directorios(i)
            If Temp <> "" Then Temp = Temp & "\"
            On Error Resume Next
            ChDir Temp
            If Err.Number <> 0 Then
                MkDir Temp
            End If
        Next i
        On Error GoTo 0
    End If
    'tu codigo principal
End Sub
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
KL
Miembro Frecuente
Miembro Frecuente
 
Registrado: 18 Mar 2006 13:57
Ubicación: Madrid

Re: Grabar un archivo en una carpeta nueva adjuntandola en el path

Notapor JAMS1 » 04 Abr 2006 12:28

:twisted:
Gracias ST y KL...... pude despejar la duda.....saludos desde Guadalajara, Mexico
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
JAMS1
Miembro Frecuente
Miembro Frecuente
 
Registrado: 29 Mar 2006 21:41


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 6 invitados