È soltanto un Pokémon con le armi o è un qualcosa di più? Vieni a parlarne su Award & Oscar!

Excel Forum Per condividere esperienze su Microsoft Excel

[RISOLTO] Cerca file in cartelle e sottocartelle

  • Messaggi
  • nTdQ231201
    00 19/03/2024 15:01
    Sul Foglio2 del file allegato ho inserito due pulsanti:

    "Elenco File su Foglio2" e "Elenco File su UserForm1".

    I file sono inseriti nell sottocartelle "2022", "2023" e "2024" che si trovano nella cartella "Archivio" in C:\.

    Mentre la sub che sta sul pulsante "Elenco File su Foglio2" quella che sta sul pulsante "Elenco File su UserForm1" mi dà queso risultato:

    Errore di run-time “5” - Chiamata di routine o argomenti non validi

    In entrambi i casi davanti il nome del file dovrebbe essere preceduto da C:\.

    Un aiuto.

    Grazie

    rex88
  • ONLINE
    L2018
    Post: 1.267
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Veteran
    EXCEL 2016 - SPREAD32
    20 19/03/2024 15:19
    Festeggia la Festa del Papà e il Compleanno in modo serio:

    https://www.acca.it/dichiarazione-conformita-impianti

    PRATICUS 37/08 - DiCo

    costa 99 €uro, mentre tu in 4 mesi hai sprecato più di 6000 € di tempo-lavoro e sei ancora in altomare

    LEO
    https://t.me/LordBrum
  • nTdQ231201
    02 19/03/2024 15:24
    Me l'aspettavo il Suo intervento, come al solito fuori luogo e sempre lo stesso senza mai un piccolo aiuto!

    Purtroppo non ho i soldi per comprarlo.

    E poi faccio sapere a tutto il forum che il file di cui Lei ne fa cenno l'ho compeltato e dal quel dì ed è pienamente funzionante.

    Aggiungo: ne ho fatto una copia anche adoperando il foglio che mi ha dato afrimpa e anche quello funziona perfettamente.

    Quindi adesso posso proseguire in altre cose.

    Il mio tempo lo gestisco come mi pare e gratuitamente.

    Un ultima cosa: nella mia vita personale Lei non ha alcun diritto di entrarci e Si attenga solo ed esclusivamente ai Suoi compiti di Moderatore.

    Spero di essere stato chiaro.

    rex88
    [Modificato da rex88 19/03/2024 16:00]
  • nTdQ231201
    00 30/03/2024 11:56
    Eccomi qua a giustificare cosa ho combinato come mi è stato richiesto da alfrimpa.

    Dopo tutto questo tempo dove in questo ed in altri forum ho letto diversi interventi anche quelli di alfrimpa ho trovato più pertinente a questa discussione quanto trovato sul sito di ennius http://ennius.altervista.org/vba/vba8.php.

    Ringrazio quanti mi hanno spronato a fare da solo.

    rex88

    EDIT

    Per me risolta.
    [Modificato da rex88 30/03/2024 11:59]
  • ONLINE
    dodo47
    Post: 3.773
    Registrato il: 06/04/2013
    Utente Master
    2010
    00 30/03/2024 12:27
    ciao Rex
    mi era sfuggito questo post, comunque bene se hai risolto con le indicazioni del buon Ennius (un caro saluto).

    Comunque il tuo errore consiste nella dichiarazione:Private FSO As New Scripting.FileSystemObject

    Avresti dovuto dichiarare FSO as object e poi nel corpo della sub CercaPdf(Path As String), aggiungere:
    Set FSO = CreateObject("Scripting.FileSystemObject")

    pertanto : 
    ption Explicit

Private FSO As Object

Sub CercaPdf(Path As String)

Dim Folder As Object
Dim SubFolder As Scripting.Folder
Dim File As Scripting.File
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Path)

For Each File In Folder.Files
ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = File.Name
Next File

For Each SubFolder In Folder.SubFolders
CercaPdf SubFolder.Path
Next SubFolder

End Sub


    Non entro nel merito del resto.

    SALUTI




    Domenico
    Win 10 - Excel 2016
  • nTdQ231201
    00 30/03/2024 13:38
    Ciao Domenico,

    intano grazie per avermi risposto.

    Fermo restando quanto ho detto nel precedente post ho corretto il mio codice e mi dà l'errore.

  • ONLINE
    dodo47
    Post: 3.774
    Registrato il: 06/04/2013
    Utente Master
    2010
    00 30/03/2024 16:15
    la Sub CercaPdf(Path As String) vuole la Path, ovvero il percorso da aprire per scegliere il file.

    Tu non gliela passi, quindi ti da errore.

    Ti mostro come dovrebbe essere usata:

    .....
    Path = "c:\CartellaDoveCercare"
    Call CercaPdf Path
    .....

    Fossi in te cambierei il nome della variabile, perchè "Path" è una parola riservata al vba.
    saluti




    [Modificato da dodo47 30/03/2024 16:36]
    Domenico
    Win 10 - Excel 2016
  • nTdQ231201
    00 30/03/2024 16:36
    Grazie.
    Risolto
    rex88

    EDIT

    Si può mettere Risolta.
    Grazie.
    rex88
    [Modificato da rex88 30/03/2024 16:48]
  • nTdQ231201
    00 31/03/2024 09:52
    Aspetto che venga messo [RISOLTA] per aprire una nuova discussione.
  • ONLINE
    L2018
    Post: 1.306
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Veteran
    EXCEL 2016 - SPREAD32
    00 31/03/2024 09:56
    Re:
    rex88 (nTdQ231201), 31/03/2024 09:52:
    Aspetto che venga messo [RISOLTA] per aprire una nuova discussione.

    si puo' sempre aprire una nuova discussione, anche se non c'è ancora il marchio RISOLTO sulla precedente, è sufficiente non continuare ad aggiornare quella precedente.

    LEO
    https://t.me/LordBrum
Soluzioni Excel Domande e Risposte
Passa alla versione desktop

  • Anteprima