VBA Excel recuperar ruta de acceso Resuelto

Question

Hola,

¿cómo recuperar la ruta de acceso de un directorio y almacenar esta ruta "c:\dossier\...." en una celda de una hoja?
De lo contrario, pensé en abrir el libro, guardarlo como y así recuperar la ruta de acceso y luego borrar el archivo, es una solución más laboriosa, así que si hay una sintaxis que recupere el nombre del archivo y que pueda insertarlo en una celda, mejor. No encuentro nada sobre el tema en el foro.

Gracias a todos por su ayuda.
aurelie.

Configuración: Windows XP Internet Explorer 7.0

lermite222 · Accepted Answer

buenas noches, Conocer la ruta del archivo  dim Ruta as string Ruta = Application.Path 'o.. Range("A1").value = Application.Path ¡Hasta luego!

aurelie76 · Answer

Hola Lermitte222,

de hecho, me he apresurado un poco, aquí está mi fragmento de código, y no consigo insertar la ruta del archivo abierto en una celda de otro libro:

Private Sub CommandButton1_Click() Sheets("feuil1").Visible = True Dim chemin As String Sheets("feuil1").Select chemin = Workbooks(ActiveWorkbook.Name).FullName Sheets("feuil2").Select Range("C1").Value = chemin ' o Range("C1").Value = Workbooks(ActiveWorkbook.Name).FullName

y no se coloca nada en C1?

Gracias por tu ayuda,

aurelie

amigo · Answer

Hola,

La propiedad .FullName devuelve la ruta completa del archivo ActiveWorkbook.Name
La propiedad .Path devuelve únicamente la ruta de la carpeta

Sub macro3() Dim chemin As String 'Sheets("feuil1").Select chemin = Workbooks(ActiveWorkbook.Name).FullName MsgBox "Ruta completa " & chemin chemin = Workbooks(ActiveWorkbook.Name).Path MsgBox "Nombre de la Carpeta " & chemin Sheets("feuil2").Select Range("C1").Value = chemin End Sub

Elige cuál de las dos rutas quieres conservar.

A+.

lermite222 · Answer

Hola,
He entendido mejor..

Sub ChChPath() Dim chemin As String chemin = ThisWorkbook.FullName Sheets("feuil2").Select Range("C1").Value = chemin 'o.. Range("C1").Value = ThisWorkbook.FullName End Sub

¡Hasta luego!

aurelie76 · Answer

Hola de nuevo,

normalmente con este código debería poder escribir la ruta de acceso en la celda C1 de la hoja 2 y no tengo nada, francamente, he retorcido el código de todas las maneras y no entiendo ¿? no sé si a usted le funciona? estoy en Excel 97, ¿eso podría ser?

Gracias de todos modos por el tiempo que me dedicas.

aurélie

aurelie76 · Answer

Lermitte222,

con el modo paso a paso, se muestra bien la ruta de acceso en el globo pero no aparece nada, creo que hay un problema de error 1004, incluso al hacer una copia de archivo para extraer luego la ruta de acceso, no funciona, parece más complicado de lo que pensaba. ¡Lo siento por el esfuerzo que estás haciendo!

aurelie.

aurelie76 · Answer

Gracias Lermitte, lo he dejado, realmente, no avanzo en nada, me he dirigido hacia otra solución, pero igual, me enfrento a un problema que parece molestar a más de uno. El famoso copiar de una hoja de un libro X y pegar la hoja en un libro Y codificando en VBA... parece aún algo loco... muchas gracias por el tiempo que pasaste, pero no quiero abusar.
besos y gracias, Aurelie.

maestro38 · Answer

Sub PathExpole() Dim MonItem As String Dim MonPath As String Dim MonFichier As String Dim i As Integer MonItem = "C:	emp	emp2\fichier.xls" i = InStr(1, StrReverse(MonItem), "\", vbTextCompare) If i <> 0 Then MonPath = Left(MonItem, Len(MonItem) - i) MonFichier = Right(MonItem, Len(MonItem) - i - 2) End If MsgBox MonPath & " - " & MonFichier End Sub

sirefalas · Answer

Hola,
estoy buscando hacer algo parecido a lo que se indica aquí.
Quisiera obtener una ruta de acceso, pero no del archivo en el que estoy trabajando, sino de cualquier archivo, seleccionándolo a través de una ventana de exploración.

Soy relativamente preciso porque ya lo había encontrado, pero me es imposible volver a dar con ello.

Bidouilleu_R · Answer

Aquí hay un ejemplo,

el uso de Application.GetOpenFilename es la función principal
el resto es una manipulación de cadena.

Aquí todo está descompuesto, puede ser útil.
pero podemos simplificar.

Sub test2() Dim chemin As String Dim nomFichier As String Dim cheminComplet As String Dim dummy As String cheminComplet = Application.GetOpenFilename If cheminComplet <> "faux" Then ' 1 la extensión dummy = cheminComplet While Right(dummy, 1) <> "." ext = Right(dummy, 1) & ext dummy = Left(dummy, Len(dummy) - 1) Wend dummy = Left(dummy, Len(dummy) - 1) ' aquí eliminamos el . ' el nombre del archivo While Right(dummy, 1) <> "\" nomFichier = Right(dummy, 1) & nomFichier dummy = Left(dummy, Len(dummy) - 1) Wend ' el camino chemin = dummy End If End Sub

Nounours · Answer

Para obtener el resultado en una celda sin recurrir a macros, es un poco complicado pero funciona.

CELLULE("nomfichier") da la ruta + el nombre del archivo + la extensión y + o - el nombre de la hoja

Resultado: C:\Excel\[test.xls]Testsheet o C:\Excel\test.xls
Esto depende de las versiones, creo.

El objetivo después es hacer un tratamiento para recuperar la ruta.

En uno como en otro ejemplo NECESITAS CONOCER EL NOMBRE DEL ARCHIVO

Para el ejemplo 1:
IZQUIERDA(CELLULE("nomfichier");BUSCAR("[";CELLULE("nomfichier"))-1)
Lo que da C:\Excel\

Para el ejemplo 2:
IZQUIERDA(CELLULE("nomfichier");BUSCAR("test.xls";CELLULE("nomfichier"))-1)
Lo que da C:\Excel\

Y si queremos que funcione para ambos ejemplos:

SI(ESERROR(BUSCAR("";CELLULE("nomfichier")));IZQUIERDA(CELLULE("nomfichier");BUSCAR("test.xls";CELLULE("nomfichier"))-1);IZQUIERDA(CELLULE("nomfichier");BUSCAR("[";CELLULE("nomfichier"))-1)

Ahí tienes.

pijaku · Answer

Hola,

10 años después...

Function Choix_Repertoire() As String Dim Fd As FileDialog Set Fd = Application.FileDialog(msoFileDialogFolderPicker) Fd.Show On Error Resume Next Choix_Repertoire = Fd.SelectedItems(1) End Function

Código de llamada:

Dim rep As String rep = Choix_Repertoire If rep <> vbNullString Then MsgBox rep Else MsgBox "Cancelación del usuario" End If

--
Cordialmente,
Franck

VBA Excel recuperar ruta de acceso

12 respuestas

Cómo corregir el gráfico de mi pc

Hydracker.com

Sony dcr trv 345e error sin mensaje.

Víctima de un robo bancario

Bluetooth y conexión ya no funcionan.

Líneas horizontales en tv samsung q90r

Actualización de bios de la placa ms-b9241

Asus gamer se congela en genshin y roblox

Memoria virtual en el honor 200 smart...

Virus sospechoso