在Excel VBA中,如果需要Excel獲取指定路徑的文件名以方便用戶的操作體驗,可通過VBAExcel獲取指定路徑的文件名。Excel2003可通過VBA宏Excel獲取指定路徑的文件名。
Excel獲取指定路徑的文件名的方法:
首先按“Alt+F11”組合鍵,Excel2003打開代碼編輯器,單擊“插入”菜單-“模塊”,雙擊插入的模塊,在右側的代碼窗口中輸入:
Sub Excel_Partner()
Dim myFilename As String, myPath As String
ChDir Application.DefaultFilePath ‘改變默認路徑
myPath = "C:\" ‘指定的任意路徑
SendKeys myPath & "{TAB}" ‘將指定的任意路徑發送到“打開”對話框
myFilename = Application.GetOpenFilename
Range("A1") = myFilename
End Sub
按F5運行鍵運行程序,Excel調用“打開”對話框,自動打開指定的路徑。雙擊指定的文件,Excel獲取指定路徑的文件名。
相關說明: 當輸入法處于中文輸入法狀態時,將不能打開指定的路徑。