Moderatori: Anthony47, Flash30005
Sub crossindex()
FoglioRep = "Foglio5" '<<< Il foglio dove saranno elencati i risultati
Perc = "C:\Users\UTENTE\Documents\Subdir\" '<<< Il Path in cui cercare
Sheets(FoglioRep).Select
Tipo = Range("A2")
Invent = Range("B2")
NSerie = Range("C2")
Range("D:D").ClearContents
myFFile = Dir(Perc & "*" & Invent & "*" & NSerie & "*")
Do
If myFFile = "" Then Exit Do
If UCase(Left(myFFile, Len(Tipo))) = UCase(Tipo) Then
If Right(myFFile, 4) = ".pdf" Then _
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Rows.Count, "D").End(xlUp).Offset(1, 0), _
Address:=Perc & myFFile, TextToDisplay:=myFFile
End If
myFFile = Dir
Loop
End Sub
FoglioRep = "Foglio5" '<<< Il foglio dove saranno elencati i risultati
h224g ha scritto:cioè se io lascio la cartella in C:\ devo usare "C:\Users\UTENTE\Documents\Subdir\" ?
sotto C:\ non c'è nessuna cartella Users...
ok, impazzisco.
Anthony47 ha scritto:Personalmente non ho esperienza di estrazione dati da file pdf, quindi al momento non so come aiutare.
Sto' facendo esperimenti con un javascript, nel caso ottenga qualche risultato lo pubblichero'.
Ciao
Torna a Applicazioni Office Windows
Macro modifica date scelta periodo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 11 |
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
Supporto per sviluppo macro VBA Ordinare per data Autore: Carletto Ribolla |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 15 ospiti