Excel - 如何向单元格添加文件选择按钮?

时间:2013-05-20 10:21:33

标签: excel

我正在创建一个模型,要求用户在某些单元格中输入模型使用的所需电子表格,文件夹等的地址。

我没有让用户剪切和粘贴地址,而是希望在单元格本身中包含某种表单控件,提示用户浏览文件,然后一旦用户返回文件路径选择了'ok'。

是否有标准的Windows窗体控件可以实现此目的?感觉应该有,但我能找到的只是切换按钮,下拉菜单等?

我知道我可以编写一个自定义脚本来捕获double_click事件,任何更“原生”的指针都会非常感激!

谢谢,

亚当

1 个答案:

答案 0 :(得分:4)

您可以将表单按钮连接到文件打开对话框。

这允许用户选择文件,但您不必打开它。

Sub GetFile()

Dim varFile As Variant

varFile = Application.GetOpenFilename("Excel files (*.xls), *.xls", , "Select a file", , False)
If varFile = False Then
    Exit Sub
Else
    ActiveCell.Value2 = varFile
End If

End Sub