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

在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获取指定路径的文件名。

相关说明： 当输入法处于中文输入法状态时，将不能打开指定的路径。

------分隔线----------------------------

标签(Tag):excelexcel2007excel2010excel2013excel2003excel技巧excel教程excel实例教程

------分隔线----------------------------