Question

怎样实现点击按钮来打开某一位置的excel文件

Answer 1

可能这个链接能帮到您：
https://zhidao.baidu.com/question/2204522605267345148.html?fr=iks&word=%BA%EA%B4%F2%BF%AA%CE%C4%BC%FE%B6%D4%BB%B0%BF%F2&ie=gbk
把其中复制的代码去了。按钮指向相应的宏。
Sub SelectFile()
fil = ThisWorkbook.Name
Filename = Application.GetOpenFilename("Excel 文件 ,*.xls;*.xlsx")
If Filename <> False Then
aFile = Split(Filename, "\")
sfilename = aFile(UBound(aFile))
End If
Workbooks.Open (Filename)
End Sub
删了几句试下还可以的。
说明：这不是本人的代码。