004. Aprire FileDialog per selezionare file

Download PDF

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. in modo di avere una visione generale della struttura del progetto, con possibilità di apertura dei singoli file. Spero di essermi spiegato bene. Saluti

Risposta:

di seguito il codice che lancia il file dialog di Windows
e permette di aprire i file che ti interessano:

Public Sub SelezionaFileDaAprire()

Dim fDialog As Office.FileDialog

Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
Dim selezione As Variant
Dim PercorsoStandard As String

  PercorsoStandard = "C:\"    'inserisci il percorso che desideri aprire di default

With fDialog
    .AllowMultiSelect = False
    .Title = "Seleziona il file da aprire"
    .InitialFileName = PercorsoStandard

    If .Show = -1 Then
        For Each selezione In .SelectedItems
            FileDaAprire = selezione
            ActiveWorkbook.FollowHyperlink Address:=FileDaAprire
        Next
    Else
        MsgBox "Caricamento annullato!", vbInformation  'quanto premi ‘cancella’ la macro si stoppa
        Exit Sub
    End If
End With
Set selezione = Nothing
Set fDialog = Nothing
End Sub

A voi il file:
APRI

Riccardo Vincenti

The following two tabs change content below.