Excel Forum

	Soluzioni Excel Domande e Risposte
		Creazione foglio collegamenti automatici

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

Creazione foglio collegamenti automatici

Ultimo Aggiornamento: 02/12/2016 11:44

otit

Post: 99

Registrato il: 24/03/2013

Città: BUSSOLENGO

Età: 32

Utente Junior

Microsoft Excel Starter 2012

OFFLINE

02/12/2016 09:06

00#1

Buongiorno a tutti, come ben sapete sono un dilettante nelle macro e solitamente programmo con pezzi di registrazioni ma in questi casi non mi è possibile per favore non sbranatemi. [SM=g27825]

Vorrei creare un foglio che automaticamente restituisce un elenco dei nomi file PDF o EXCEL o PNG o ecc presenti in una cartella specifica.
Dopodichè i nomi file devono essere collegati ipertestualmente in modo da poterli recuperare velocemente.

c'è la possibilità con una macro di fare questa serie di operazioni?

io l'avrei pensata cosi ma non so come fare:

-utilizzando un nuovo foglio vuoto di Excel (excel nuovo)
-in cella A1 indicare il percorso file che cambierà di volta in volta es: C:\Elencofile
-in cella A2 specificare il tipo di file tramite un menu a tendina PDF PNG ecc... es .PNG
-dalla cella A3 in poi viene restituito un elenco di file collegati ipertestualmente alla cartella specificata in partenza

ESEMPIO SPECIFICO

nella cartella: C:\Elencofile sono presenti i seguenti file:

ciccio.PNG
pippo.PDF
fragola.PDF

nel foglio excel viene definito in cella A1 il percorso C:\Elencofile
in cella A2 il tipo di file tramite menu a tendina e seleziono .PDF

da cella A3 in poi vengono restituiti i nomi file collegati con il file di riferimento presente nella cartella indicata

in A3 pippo.PDF
in A4 fragola.PDF

è possibile programmare una cosa del genere? io penso di si ma non ne ho le capacità [SM=x423054]

otit

Post: 99

Registrato il: 24/03/2013

Città: BUSSOLENGO

Età: 32

Utente Junior

Microsoft Excel Starter 2012

OFFLINE

02/12/2016 09:30

00#2

cercando in rete ho trovato questa macro per cominciare.... che dovrebbe essere comunque stata scritta da un utente presente sul forum..

la macro restituisce un elenco dei file nella cartella indicata però non sono riuscita a farla funzionare non succede nulla [SM=g27814]

ho provato a selezionare il percorso C:\ ma l'elenco dei file non viene restituito

Sub LeggeFileInDir()
Dim strFile As String
Dim r As Integer
mFolder = "C:\" ' directory di cui ottenere in colonna A la lista file
strFile = Dir(mFolder & "*.*")
r = 1
Do While strFile <> ""
Cells(r, 1) = strFile
strFile = Dir
r = r + 1
Loop
End Sub

sto provando a fare qualche esperimento da solo ma senza esiti praticamente sono già bloccato intanto volevo almeno provare a creare l'elenco e poi.....

otit

Post: 100

Registrato il: 24/03/2013

Città: BUSSOLENGO

Età: 32

Utente Junior

Microsoft Excel Starter 2012

OFFLINE

02/12/2016 09:36

00#3

ho scoperto il mio errore specificavo i percorso file nel modo sbagliato invece di scrive per esempio C:\PROVA\ scrivevo solo C:\PROVA

però ho notato che questa macro restituisce solamente il nome di file e non delle cartelle ma poco importa ora provo ad andare avanti [SM=g27814]

patel45

Post: 3.506

Registrato il: 13/03/2012

Città: LIVORNO

Età: 78

Utente Master

2010

OFFLINE