加拿大华人论坛 德国留学移民签证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复制代码
评论
谢谢大侠，完全可用。
评论
大侠不敢当，也是初学者。
程序根据你的要求修改了下，不过多余的变量忘记删除了。
·加拿大新闻 这航空公司加拿大飞香港服务好座位阔价钱平为何转机客却步？
·加拿大新闻 集体下跌，BBA在华销量失守，德系豪车为何风光不再？
·加拿大新闻 卑诗延长重大疾病或受伤员工无薪假 一年内最多可申请27周
·加拿大新闻 不用中考？十二年贯通式学校能否减轻升学焦虑？
·加拿大新闻 “再也不会开车去加拿大了”美家庭来加国旅游车辆第2次被破坏
·中文新闻 在主持 2025 年英国骄傲奖颁奖典礼之前，64 岁的卡罗尔·沃德曼
·中文新闻 歌手一头金色短卷发，面目全非，她透露碧昂丝送给她的礼物，