在Excel VBA中,如果需要Excel獲取指定類型的文件名以方便用戶的操作體驗(yàn),可通過(guò)VBAExcel獲取指定類型的文件名。Excel2003可通過(guò)VBA宏Excel獲取指定類型的文件名。
Excel獲取指定類型的文件名的方法:
首先按“Alt+F11”組合鍵,Excel2003打開(kāi)代碼編輯器,單擊“插入”菜單-“模塊”,雙擊插入的模塊,在右側(cè)的代碼窗口中輸入:
Sub Excel_Partner_t()
Dim myFileName As String
myFileName = Application.GetOpenFilename("文本文件(*.txt), *.txt")
Range("A1") = myFileName
End Sub
按F5運(yùn)行鍵運(yùn)行程序,Excel調(diào)用“打開(kāi)”對(duì)話框,在“文件類型”列表框中已經(jīng)限定為只能打開(kāi)擴(kuò)展名為txt的文件。雙擊指定的文件,Excel獲取指定類型的文件名。
輸入如下代碼:
Sub Excel_Partner_p()
Dim myFileName As String
myFileName = Application.GetOpenFilename("圖片文件(*.bmp;*.jpg),* bmp;*.jpg")
Range("A1") = myFileName
End Sub
按F5運(yùn)行鍵運(yùn)行程序,Excel調(diào)用“打開(kāi)”對(duì)話框,在“文件類型”列表框中已經(jīng)限定為只能打開(kāi)擴(kuò)展名為bmp或jpg的文件。雙擊指定的文件,Excel獲取指定類型的文件名。