Aiuto !!! Ricerca dati in una cartella diversa

Question

In una cella excel ( ad esempio A1 ) digito COGNOME e NOME.

Avrei bisogno di una macro che possa cercare in una cartella diversa , il file con lo stesso nome della cella A1, lo copiasse e lo incollasse in un secondo SHEET del mio programma.

Non so come fare..... help !!!

grazie mille

Answer 1

Ciao Ziofabri

Sono Femi e sarò felice di aiutarti con le tue domande. In questo forum, siamo consumatori Microsoft proprio come te. Nessuno qui è un dipendente Microsoft.

Non sono un esperto, ma potresti provarlo e vedere se è esattamente quello che stai cercando.

Dichiarare le variabili

Dim wb As Workbook 'Oggetto cartella di lavoro per memorizzare il file da copiare Dim ws As Worksheet 'Oggetto foglio di lavoro per memorizzare il secondo foglio Dim folder As String 'Variabile stringa per memorizzare il percorso della cartella Dim filename As String 'Variabile stringa per memorizzare il nome del file

'Assegna valori alle variabili folder = "C:\Utenti\nomeutente\Documenti" 'Cambia questo nel percorso della cartella filename = Intervallo ("A1"). Valore & ".xlsx" 'Cambia questo con l'estensione del file Imposta ws = ThisWorkbook.Fogli di lavoro (2) 'Cambia questo con l'indice o il nome del secondo foglio

'Controlla se il file esiste nella cartella Se dir (cartella e nome file) <> "" allora 'Apri il file e assegnalo all'oggetto cartella di lavoro Imposta wb = Workbooks.Open (cartella e nome file) «Copiare l'intero contenuto del file Wb. Fogli di lavoro (1). Cells.Copy 'Incolla il contenuto nel secondo foglio Ws. Intervallo ("A1"). PasteSpecial xlPasteAll 'Chiudi il file senza salvare le modifiche Wb. Chiudi SaveChanges:= False 'Cancella gli appunti Application.CutCopyMode = False 'Visualizza un messaggio che indica che il file è stato copiato correttamente MsgBox "Il file " & nome file & " è stato copiato nel secondo foglio." Altro 'Visualizza un messaggio che indica che il file non è stato trovato MsgBox "Il file " & nome file & " non è stato trovato nella cartella " & cartella & "." Fine se

Dovrai modificare il percorso della cartella e l'estensione del file in base alla tua situazione. È inoltre possibile modificare il codice in base alle proprie esigenze.

Spero che questo aiuti. Sarei disponibile a rispondere a qualsiasi altra tua domanda se avessi una soluzione.

Migliori saluti

Femi.

Restituisci alla comunità e aiuta la prossima persona con questo problema indicando se questa risposta ha risolto il tuo problema. Fai clic su Sì o No in basso.

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.