{"id":197,"date":"2013-02-17T23:21:55","date_gmt":"2013-02-17T22:21:55","guid":{"rendered":"http:\/\/www.office-guru.com\/wordpress\/?p=197"},"modified":"2014-04-12T16:16:13","modified_gmt":"2014-04-12T14:16:13","slug":"aprire-filedialog-per-selezionare-file","status":"publish","type":"post","link":"https:\/\/www.office-guru.com\/wordpress\/2013\/02\/aprire-filedialog-per-selezionare-file\/","title":{"rendered":"004. Aprire FileDialog per selezionare file"},"content":{"rendered":"
\"Download<\/a><\/div>

Domanda:<\/p>\n

Complimenti per il sito…molto interessante
\nAvrei bisogno di visualizzare un diagramma ad albero (tipo quello che si visualizza con esplora risorse di windows) all\\’apertura di excel oppure word, per poterci collegare dei file sia di excel, word, pdf, ecc. in modo di avere una visione generale della struttura del progetto, con possibilit\u00e0 di apertura dei singoli file. Spero di essermi spiegato bene. Saluti<\/p>\n

\n

Risposta:<\/p>\n

di seguito il codice che lancia il file dialog di Windows
\ne permette di aprire i file che ti interessano:<\/p>\n

Public Sub SelezionaFileDaAprire()\r\n\r\nDim fDialog As Office.FileDialog\r\n\r\nSet fDialog = Application.FileDialog(msoFileDialogFilePicker)\r\nDim selezione As Variant\r\nDim PercorsoStandard As String\r\n\r\n\u00a0 PercorsoStandard = \"C:\\\"\u00a0\u00a0\u00a0 'inserisci il percorso che desideri aprire di default\r\n\r\nWith fDialog\r\n\u00a0\u00a0\u00a0 .AllowMultiSelect = False\r\n\u00a0\u00a0\u00a0 .Title = \"Seleziona il file da aprire\"\r\n\u00a0\u00a0\u00a0 .InitialFileName = PercorsoStandard\r\n\r\n\u00a0\u00a0\u00a0 If .Show = -1 Then\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 For Each selezione In .SelectedItems\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 FileDaAprire = selezione\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ActiveWorkbook.FollowHyperlink Address:=FileDaAprire\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Next\r\n\u00a0\u00a0\u00a0 Else\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 MsgBox \"Caricamento annullato!\", vbInformation\u00a0 'quanto premi \u2018cancella\u2019 la macro si stoppa\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Exit Sub\r\n\u00a0\u00a0\u00a0 End If\r\nEnd With\r\nSet selezione = Nothing\r\nSet fDialog = Nothing\r\nEnd Sub<\/pre>\n
A voi il file:
\nAPRI<\/a><\/p>\n
Riccardo Vincenti<\/p>\n<\/div>\n","protected":false},"excerpt":{"rendered":"
Domanda: Complimenti per il sito…molto interessante Avrei bisogno di visualizzare un diagramma ad albero (tipo quello che si visualizza con esplora risorse di windows) all\\’apertura di excel oppure word, per poterci collegare dei file sia di excel, word, pdf, ecc. … Continua a leggere→<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":"","jetpack_publicize_message":"","jetpack_is_tweetstorm":false,"jetpack_publicize_feature_enabled":true,"_links_to":"","_links_to_target":""},"categories":[13,6],"tags":[],"jetpack_featured_media_url":"","jetpack_publicize_connections":[],"jetpack_shortlink":"https:\/\/wp.me\/p39IU1-3b","jetpack_sharing_enabled":true,"jetpack_likes_enabled":true,"jetpack-related-posts":[{"id":829,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/01\/selezione-file-tramite-finestra-di-dialogo\/","url_meta":{"origin":197,"position":0},"title":"029. Selezione File tramite finestra di dialogo","date":"16 Gennaio 2014","format":false,"excerpt":"Domanda: Ho una macro che per eseguire le varie operazioni previste necessita dell\u2019apertura di pi\u00f9 file ogni volta di nome diverso. Avrei pertanto bisogno di creare una MsgBox all\u2019interno della macro per selezionare i file che devono essere uitilizzati.\u00a0 Ringrazio in anticipo per la Vostra attenzione. Risposta: Per selezionare un\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":520,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/04\/creare-file-con-vba-ed-inviarli-via-mail-avanzato\/","url_meta":{"origin":197,"position":1},"title":"017. Creare file con VBA ed inviarli via mail (avanzato)","date":"20 Aprile 2013","format":false,"excerpt":"Ciao a tutti, in questo giorni ho modificato il Tool che invia allegati tramite email seguendo alcune necessit\u00e0 di Alessandra. Le modifiche sono le seguenti: 1) verifica della presenza dei nomi inseriti nella base dati con quelli presenti in elenco e segnalazione di eventuali assenze 2) selezione attraverso di un\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":262,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/02\/proteggere-i-files-excel-da-lettura-e-da-scrittura\/","url_meta":{"origin":197,"position":2},"title":"Proteggere i files Excel da lettura e da scrittura","date":"20 Febbraio 2013","format":false,"excerpt":"Pu\u00f2 capitare di avere dei file Excel che si vogliono proteggere da mani inesperte. Di solito chiunque apre un file Excel ha il diritto di modificarlo e di salvarlo. A volte non si vuole che certi file possano essere aperti da tutti coloro che accedono al computer oppure che chi\u2026","rel":"","context":"In "Excel"","img":{"alt_text":"","src":"https:\/\/i0.wp.com\/www.office-guru.com\/wordpress\/wp-content\/uploads\/2013\/02\/protezione3-291x300.gif?resize=350%2C200","width":350,"height":200},"classes":[]},{"id":606,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/05\/estrarre-dati-da-file-diversi-senza-aprirli-ad-uno-ad-uno\/","url_meta":{"origin":197,"position":3},"title":"020. Estrarre dati da file diversi senza aprirli ad uno ad uno","date":"3 Maggio 2013","format":false,"excerpt":"Domanda: Ho una cartella contenente diversi file excel che per comodit\u00e0 chiamer\u00f2 a.xls, b.xls, c.xls, ecc.. Ognuno di questi file ha nel foglio 1 una tabella (identica per tutti i file) con due colonne di dati (a e b) La mia esigenza \u00e8 quella di trovare una formula\/macro che sommi\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1129,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/04\/copia-file-con-condizione\/","url_meta":{"origin":197,"position":4},"title":"047. Copia File con condizione","date":"9 Aprile 2014","format":false,"excerpt":"Domanda: Avrei bisogno di una macro che mi permetta di copiare i soli file di testo di una specifica directory che contengono una specifica stringa alfanumerica dalla directory sorgente ad un'altra da specificare. Risposta: E\u2019 possibile risolvere il problema con una solo macro che verifica presenza della stringa nel nome\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":752,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/10\/estrarre-dati-da-cartelle-e-files-chiusi\/","url_meta":{"origin":197,"position":5},"title":"026. Estrarre dati da cartelle e files chiusi","date":"19 Ottobre 2013","format":false,"excerpt":"Domanda: Sono alla ricerca di una macro vba che mi permetta di andare a leggere dei dati su foglio 1 di excel di varie cartelle di una cartella denominata Magazzino Magazzino \/abete\/1098.xls\/foglio1 \/abete\/1099.xls\/foglio1 \/acero\/2097.xls\/foglio1 \/acero\/2120.xls\/foglio1 ecc. Dovrei sommare in un nuovo foglio i valori contenuti nei vari foglio1 dell'elenco ad\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]}],"_links":{"self":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/197"}],"collection":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/comments?post=197"}],"version-history":[{"count":6,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/197\/revisions"}],"predecessor-version":[{"id":1163,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/197\/revisions\/1163"}],"wp:attachment":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/media?parent=197"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/categories?post=197"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/tags?post=197"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}