VBA

VBA（Visual Basic for Applications），參照：『維基百科～Visual_Basic_for_Applications』

參考資料

• Office VBA 參考
  • 函數

FAQ

取得資料夾路徑

• 原始出處: Folder Picker for MS Word

Function GetFolder(strPath As String) As String
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        .InitialFileName = strPath
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With
NextCode:
    GetFolder = sItem
    Set fldr = Nothing
End Function