Excel获取指定路径的文件名vba代码

Question

如题所述

Answer 1

在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获取指定路径的文件名。
相关说明： 当输入法处于中文输入法状态时，将不能打开指定的路径。