加拿大华人论坛 德国留学移民签证Excel高手来帮个小忙
在加拿大
Google无果，所以来此求解答。我想在Excel里点击某个地方（比如图0，单元格，控件，等等）打开浏览文件对话框（比如图1，要是能筛选文件类型更好），找到我要的文件后把此文件的完整路径值附给某个单元格（比如如2），请问如何实现？谢谢！
PS：我目前用单击右键，超链接选择文件可以实现，但多一步，而且能显示的字符数有限制（大约49个字符）
图0
图1
图2
评论
vba
评论
Sub SelectFile()
Dim FileName As Variant
'打开文件对话框返回的文件名，是一个全路径文件名，其值也可能是False，因此类型为Variant
Dim sFileName As String '从FileName中提取的文件名
Dim sPathName As String '从FileName中提取的路径名
Dim aFile As Variant '数组，提取文件名sFileName时使用
Dim ws As Worksheet '存储文件路径名和文件名的工作表
Set ws = Worksheets("Sheet1") '设置工作表
FileName = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls")
'调用Windows打开文件对话框
If FileName <> False Then '如果未按“取消”键
ActiveCell.Value = FileName '保存文件名
End If
End Sub复制代码
评论
谢谢大侠，完全可用。
评论
大侠不敢当，也是初学者。
程序根据你的要求修改了下，不过多余的变量忘记删除了。
·加拿大新闻 发现了吗？房贷才是检验牛马的唯一标准
·加拿大新闻 全新奥迪A6L3.0T：2026年上市，外观变化太大？
·加拿大新闻 幕后牵线曝光！万锦自由党议员出手，促成马荣铮跳槽
·加拿大新闻 加拿大大部分地区将迎“白色圣诞”安省魁省概率最高
·加拿大新闻 [评论] 保守党频出状况博励治领导地位岌岌可危
·中文新闻 邦迪大规模枪击事件：我们对悉尼犹太光明节庆祝活动袭击事件
·中文新闻 邦迪大规模枪击事件：ASIO 可能将澳大利亚定为恐怖级别；警惕