将选择的文件名及路径显示在工作表中的代码

lrlxxqxa

Alt+F11进入VBE界面，插入模块后，写入代码：

1. 
   
2. '显示所选的文件名
   
3. Sub getFilename()
   
4. Dim MyFile
   
5. MyFile = Application.GetOpenFilename("Text Files (*.*), *.*")
   
6. If MyFile <> False Then
   
7.     [A1] = MyFile
   
8. End If
   
9. End Sub

复制代码