nTdQ231201
00martedì 19 marzo 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
L2018
20martedì 19 marzo 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
nTdQ231201
02martedì 19 marzo 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
nTdQ231201
00sabato 30 marzo 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.
dodo47
00sabato 30 marzo 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
nTdQ231201
00sabato 30 marzo 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.
dodo47
00sabato 30 marzo 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
nTdQ231201
00sabato 30 marzo 2024 16:36
Grazie.
Risolto
rex88
EDIT
Si può mettere Risolta.
Grazie.
rex88
nTdQ231201
00domenica 31 marzo 2024 09:52
Aspetto che venga messo [RISOLTA] per aprire una nuova discussione.
L2018
00domenica 31 marzo 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.