UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Guardar en ruta predeterminada el 08/08/14, 12:25 am

claudiass


Buenas noches:
Soy nueva en el foro, y me gustaría que me pudieran ayudar en esta consulta.
Lo que solicito es que al dar click en el boton "Crear carpeta", se cree por medio de macros;  una carpeta con el nombre de un textbox "Nom_pac", a la vez que se cree un libro con el valor de otro textbox "n_mad" y se guarde siempre en la Unidad "D".
Gracias de antemano por el apoyo que me puedan brindar.
Archivos
ruta.xls
No tienes los permisos para descargar los archivos.
(74 KB)

2RESUELTO Re: Guardar en ruta predeterminada el 08/08/14, 09:08 am

tyno


Hola Claudia, bien venida al foro.

Paso tu archivo con la modificación del código del botón "CREAR CARPETA" del formulario.
Ten en cuenta que este botón CREAR CARPETA lo que hace, a parte de crear un carpeta, es "guardar como" dentro de la carpeta creada, el archivo en el cual estas trabajando , por lo tanto una vez que ejecutes esta macro vas  a continuar trabajando en el archivo que acabas de "guardar como". Por ejemplo si has creado una carpeta llamada Juan Gonzalez en base al nombre del paciente y un archivo llamado Maria Gonzalez.xls en base al nombre de la madre vas a continuar trabajando en el archivo Maria Gonzalez.xls una vez que ejecutes el botón CREAR CARPETA.

Saludos
Archivos
ruta.xls
No tienes los permisos para descargar los archivos.
(59 KB)

3RESUELTO Re: Guardar en ruta predeterminada el 08/08/14, 11:12 am

claudiass


Buen día, gracias por tu pronta respuesta
Disculpa, pero el código yo lo veo igual, no me crea la carpeta en la unidad "d"
y no me crea el libro,
Gracias

4RESUELTO Re: Guardar en ruta predeterminada el 08/08/14, 12:16 pm

tyno


Si, disculpa.
Justamente es por el tema de que el archivo se "guarda como", el codigo que modifique quedo guardado en el archivo que hice de prueba.
Reemplaza el código del botón CREAR CARPETA por este:

Private Sub CommandButton1_Click()

Dim Ruta As String
Dim carpeta As String
Dim archivo As String
carpeta = "d:\" & NOM_PAC.Value
archivo = N_MAD
If N_MAD <> "" Then
If NOM_PAC <> "" Then
 MkDir (carpeta)
 ActiveWorkbook.SaveAs Filename:=carpeta & "\" & archivo & ".xls", FileFormat:=xlNormal
End If
End If
End Sub

Saludos

5RESUELTO Re: Guardar en ruta predeterminada el 08/08/14, 07:11 pm

claudiass


Gracias Tyno, muy agradecida, que Dios le bendiga.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

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