Ayuda - Path

01/08/2006 - 18:45 por Lyna | Informe spam
Hola a todos,

Estoy intentando generar una macro para unos reportes consolidados, cada
reporte (13) son llenados en lugares geográficos diferentes, por lo que
despues de los últimos días del meses se reciben, todos son iguales lo que
cambian son los datos.

Lo que pretendo es que en un reporte consolidado (con las mismas
caracteristicas de los individuales) se acumulen (sumen en el renglon
correspondiente) los datos de cada reporte. Para ello necesito que el archivo
que consolida este siempre en un directorio y en ese directorio estén los 13
archivos individuales, y que siempre se llamen de igual manera.

Mi problema es como fijar el Path para que siempre se encuentre en el mismo
directorio, sin importar que usuario lo consolide, ejemplo:

\Mis documentos\Formatos Indicadores\FISA ACA (Para acapulco)
\Mis documentos\Formatos Indicadores\FISA CUL (Para culiacan)
...
etc hasta llegar a las 13 entidades...

y no que tome C:\Documentos and Settings\tamllopez\Mis documentos

porque de ser asi, si el archivo se va a otra maquina me generará error.

¿Como hago para referenciar siempre estás rutas?

Gracias por su ayuda.
Lyna
 

Leer las respuestas

#1 Juan M
02/08/2006 - 09:07 | Informe spam
Hola

Estoy intentando generar una macro para unos reportes consolidados, cada
Mi problema es como fijar el Path para que siempre se encuentre en el
mismo
directorio, sin importar que usuario lo consolide, ejemplo:
¿Como hago para referenciar siempre estás rutas?



Puedes intentarlo de dos formas
Opcion 1:
una que cada usuario seleccione los archivos mediante un dialogbox.
puede que te de error si la version de excel es anterior a la 2002 (no estoy
seguro???)
ver codigo 1

Opcion 2:
puedes hacerlo fijando que siempre esten los archivos a consolidar en la
misma carpeta que el archivo que lleva la macro, esto lo puedes combinar con
la definicion del mes y año que estes tratando o añadirlo a una ruta de red
de donde siempre tengas los archivos nuevos.

fichero = thisworkbook.path & "ombre de tu fichero"
Workbooks.Open fichero, ReadOnly:=True

si quieres detalles mas especificos, o algun comentario...

un saludo
juan


==Codigo 1
sub Prueba()
fichero=Importarfichero
If fichero = "" Then
MsgBox "Tienes que seleccionar un archivo", vbExclamation,
"¡¡ATENCION!!"
Exit Sub
End If
Workbooks.Open fichero, ReadOnly:=True
end sub

Public Function ImportarFichero() As String
Dim Filt As String
Dim FilterIndex As Integer
Dim Title As String
Dim FileName As String

Filt = "Archivos Excel (*.xls),*.xls"
FilterIndex = 1
Title = "Selecciona un fichero para importar"
FileName = Application.GetOpenFilename _
(filefilter:=Filt, _
FilterIndex:=FilterIndex, _
Title:=Title)
If FileName = "Falso" Then
'MsgBox "No has seleccionado ningún fichero"
Exit Function
End If
ImportarFichero = FileName
End Function
==Fin Codigo 1

Preguntas similares