EXCEL如何做选择文件路径的控件?

来源:百度知道 编辑:UC知道 时间:2024/05/26 03:09:45
我需要在EXCEL单元格中输入引用文件的路径,比如输入输入QQ的路径D:\Program Files\Tencent\QQ.EXE,我想用控件实现,就像点击EXCEL的“打开”按钮一样,点击控件后弹出窗口让我一步一步从D-Program Files-Tencent直至找到QQ.EXE,最后把路径“D:\Program Files\Tencent\QQ.EXE”输入单元格。大家帮忙看看怎么做这个控件。

视图-工具栏-控件工具箱,然后拉一个按扭出来,双击进入代码编辑状态.

Private Sub CommandButton1_Click()
Dim fopen As FileDialog
Set fopen = Application.FileDialog(msoFileDialogFilePicker)
fopen.Show
Range("a1") = fopen.SelectedItems(1)
Set fopen = Nothing
End Sub

子易空间站 - 高效办公指导网站