VBA Excel Arriver Chemin d'accès du Fichier (qui se termine avec un dossier)

À partir d'une question précédente, je ne sais comment aller à ce sujet permettant à l'utilisateur de cliquer sur un "navigateur" et naviguez jusqu'à un fichier spécifique qu'ils pourraient vouloir l'ouvrir.

Code:

Private Sub CommandButton2_Click()
    Dim vaFiles As Variant

    vaFiles = Application.GetOpenFilename()

    ActiveSheet.Range("B9") = vaFiles
End Sub

Je veux créer un deuxième bouton du navigateur pour permettre à l'utilisateur de naviguer dans un dossier. Ce dossier va être où ils sauvent le .pdf fichier que mon programme crée. Voici le problème: Le GetOpenFilename oblige l'utilisateur à cliquer sur un fichier. Si il n'y a aucun fichier dans le dossier, puis il n'y a rien que l'utilisateur peut faire.

J'espère que c'était assez clair...

Merci

OriginalL'auteur Jesse Smothermon | 2011-05-11

  1. 21

    L'utilisation de l'Application.Objet FileDialog

    Sub SelectFolder()
    Dim diaFolder As FileDialog

    ' Open the file dialog
    Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
    diaFolder.AllowMultiSelect = False
    diaFolder.Show

    MsgBox diaFolder.SelectedItems(1)

    Set diaFolder = Nothing
End Sub

    OriginalL'auteur chris neilsen

  2. 5

    Avons ajouté ErrorHandler à cela dans le cas où l'utilisateur appuie sur le bouton annuler au lieu de sélectionner un dossier. Donc, au lieu d'obtenir un horrible message d'erreur vous obtenez un message indiquant qu'un dossier doit être sélectionnés et la routine se termine. Ci-dessous, le code stocke le chemin d'accès au dossier d'un nom de plage (Qui est liée à la cellule A1 d'une feuille).

    Sub SelectFolder()

Dim diaFolder As FileDialog

'Open the file dialog
On Error GoTo ErrorHandler
Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
diaFolder.AllowMultiSelect = False
diaFolder.Title = "Select a folder then hit OK"
diaFolder.Show
Range("IC_Files_Path").Value = diaFolder.SelectedItems(1)
Set diaFolder = Nothing
Exit Sub

ErrorHandler:
Msg = "No folder selected, you must select a folder for program to run"
Style = vbError
Title = "Need to Select Folder"
Response = MsgBox(Msg, Style, Title)

End Sub

    OriginalL'auteur Derek

  3. 2

    Dans l'Éditeur VBA du menu Outils, cliquez sur Références... faites défiler jusqu'à "Microsoft Shell de Commandes Et automatismes" et choisissez la.

    Sub FolderSelection()
    Dim MyPath As String
    MyPath = SelectFolder("Select Folder", "")
    If Len(MyPath) Then
        MsgBox MyPath
    Else
        MsgBox "Cancel was pressed"
    End If
End Sub

'Both arguements are optional. The first is the dialog caption and
'the second is is to specify the top-most visible folder in the
'hierarchy. The default is "My Computer."

Function SelectFolder(Optional Title As String, Optional TopFolder _
                         As String) As String
    Dim objShell As New Shell32.Shell
    Dim objFolder As Shell32.Folder

'If you use 16384 instead of 1 on the next line,
'files are also displayed
    Set objFolder = objShell.BrowseForFolder _
                            (0, Title, 1, TopFolder)
    If Not objFolder Is Nothing Then
        SelectFolder = objFolder.Items.Item.Path
    End If
End Function

    Lien Source.

    OriginalL'auteur ray

  4. 1

    Utilisation Application.GetSaveAsFilename() de la même manière que vous avez utilisé Application.GetOpenFilename()

    Si le dossier est vide et que je clique sur le bouton "Enregistrer" rien ne se passe. J'espérais que lorsque vous cliquez sur "Enregistrer" ou le bouton "Ouvrir", il serait de quitter le navigateur et puis, dans ce cas, enregistrez le fichier chemin d'accès à la cellule spécifiée. Merci pour la réponse
    J'espère que mon explication de ce qui se passe est clair. Si je choisis un dossier vide comme la cible enregistrer le chemin d'accès, puis appuyez sur "annuler" le texte dans ma cellule spécifiée devient "FAUX". Lorsque je lance le programme, il fonctionne, mais il n'a pas d'indiquer à l'utilisateur quel dossier le fichier pdf est enregistrée (même si ils l'ont choisi) et quand il est sauvé de la parole "FALSE" s'affiche au début, de sorte que "FALSEOutput_report.pdf" au lieu de "Output_report.pdf". Quelqu'un peut m'expliquer pourquoi ça marche comme ça? Merci
    La fonction retourne false si vous cliquez sur annuler et le nom de fichier autrement. Je ne sais pas pourquoi c'est la concaténation de FAUX au début du nom de fichier dans certains cas. Une partie de la confusion pourrait être que cette fonction est juste l'obtention d'un nom de fichier pour vous, il n'est pas de faire une économie pour vous. Cette partie est à votre programme.

    OriginalL'auteur jonsca

  5. 0

    Cela peut vous aider:

    Sub SelectFolder()
    Dim diaFolder As FileDialog
    Dim Fname As String

    Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
    diaFolder.AllowMultiSelect = False
    diaFolder.Show

    Fname = diaFolder.SelectedItems(1)

    ActiveSheet.Range("B9") = Fname

End Sub
    Veuillez tiret de répondre correctement.

    OriginalL'auteur Bhagwat Singh

  6. 0

    Si vous souhaitez rechercher un dossier par défaut:
    Par exemple "D:\Default_Folder"
    juste initialiser le "InitialFileName" attribut

    Dim diaFolder As FileDialog

' Open the file dialog
Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
diaFolder.AllowMultiSelect = False
diaFolder.InitialFileName = "D:\Default_Folder"
diaFolder.Show

    OriginalL'auteur Lah Ezcen