¿Como usar correctamente el "FilePath"?

3 envíos / 0 nuevos
Último envío
JORDI MES
Imagen de JORDI MES
Offline
última acción: Hace 3 semanas 2 días
alta: 06/02/2019 - 11:32
Puntos: 175
¿Como usar correctamente el "FilePath"?

Hola y buenas.

Tengo la instrucción que se muestra más abajo, y preciso en registrar en la Sheet1- "C2", la ruta del archivo exportado ( y si puede ser, con la fecha de su creación).

He probado con:

Range ("C2").value = FilePath

...la verdad, a esta función no la cojo por ningún lado.

--------Llamada de exportación---------

Sub Botón1_Haga_clic_en()

 

   Dim directory As String, fileName As String, sheet As Worksheet, total As String

 Dim fd As Office.FileDialog

   Dim intChoice As Integer

  

  Set fd = Application.FileDialog(msoFileDialogFilePicker)

 

  With fd

    .AllowMultiSelect = False

    .Title = "Please select the file."

    .Filters.Clear

    .Filters.Add "Excel html", "*.htm?"

 

    If .Show = -1 Then

      fileName = Dir(.SelectedItems(1))

 

  Application.ScreenUpdating = False

  Application.DisplayAlerts = False

 

  Workbooks.Open (fileName)

 

  For Each sheet In Workbooks(fileName).Worksheets

  Workbooks(fileName).Worksheets(1).Copy After:=Workbooks("LIBRO").Sheets(1)

 Workbooks(fileName).Activate

 

 Workbooks(fileName).Close

     Application.ScreenUpdating = True


Agradeceros por vuestra atención.

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 4 horas 11 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10005
FullName

Si es un archivo que estás creando tú, puedes guardar el nombre antes de cerrarlo

si el libro lo tienes abierto, puedes utilizar la propiedad .FullName del libro, por ejemplo

ActiveWorkbook.FullName

 

 

Data Tools Suite
datos y tablas con Excel

JORDI MES
Imagen de JORDI MES
Offline
última acción: Hace 3 semanas 2 días
alta: 06/02/2019 - 11:32
Puntos: 175
SOS

Hola y buenos días.

He de solicitarte si puedes socorrerme.

Tras una incidencia con el S.O., recuperé el proceso (a medias y con error -el cual funcionaba con anterioridad-).

No detecto, no aprecio, no se ver, que me causa el error...supongo que debe ser una instrucción carente que me quedó fuera de la recuperación.

¿Podrías indicarme que me falta y causa que no complete la orden?

Gracias.

AdjuntoTamaño
Plain text icon sript_recuperado.txt4.41 KB