FileDialog 可以根據(jù)后面的參數(shù)，打開通用對話框

Dim strPath As String
Dim MyFileDialog As FileDialog
Set MyFileDialog = Application.FileDialog(msoFileDialogFolderPicker)

    If MyFileDialog.Show = -1 Then
            '使用循環(huán)顯示選取文件的路徑和名稱
        For Each vrtSelectedItem In MyFileDialog.SelectedItems
            strPath = vrtSelectedItem
        Next
    End If

MsgBox strPath

這段代碼，可以打開一個對話框，選擇文件夾，獲得選擇的文件夾的路徑

(責(zé)任編輯：admin)

• ·Excel VBA編輯語句集300條
• ·【技巧】excel文件破解密碼
• ·【Excel VBA】FileDialog 用法之 打開
• ·VBA修改ACCESS及EXCEL安全設(shè)置(源碼)
• ·實(shí)用的GET函數(shù)
• ·日期改為顯示星期幾的自定義涵數(shù)
• ·VBA在Excel 2000中的應(yīng)用一例
• ·ActiveX在Excel中的運(yùn)用
• ·檢查重復(fù)字段值的方法
• ·Excel中 BASIC 程序的運(yùn)行
• ·Excel XP中圖片的智能刷新
• ·Excel成績分析處理程序
• ·創(chuàng)建自己的EXCEL函數(shù)
• ·用Excel制作公交向?qū)?/a>
• ·使用ADO獲取外部數(shù)據(jù)
• ·Excel中如何編程判斷字符顏色