如题所述
fl
=
Application.GetOpenFilename(,
,
"打开目标文件")
此句是打开一个选择文件的对话框，fl得到的是你选择文件的具体路径；
Workbooks.Open
Filename:=fl
这句是打开你选择的文件！
当然如果想打开指定文件，你可以不写第1句，直接把第2句的fl改成具体路径的字符串即可！
=
Application.GetOpenFilename(,
,
"打开目标文件")
此句是打开一个选择文件的对话框，fl得到的是你选择文件的具体路径；
Workbooks.Open
Filename:=fl
这句是打开你选择的文件！
当然如果想打开指定文件，你可以不写第1句，直接把第2句的fl改成具体路径的字符串即可！
温馨提示：答案为网友推荐，仅供参考
第1个回答 2019-10-29
Sub s()
On Error Resume Next
Dim pth$, fn$, wb As Workbook
pth = "d:\test\" '在这里输入要打开的工作簿的完整路径
fn = "a.xlsx" '在这里输入要打开的工作簿的文件名，包括扩展名
Set wb = Application.Workbooks.Open(pth & fn)
If wb Is Nothing Then MsgBox ("文件打开失败，请检查" & pth & fn & "是否存在！"): Exit Sub
'在此添加操作代码
wb.Close True '如果无需保存，本参数用false
End Sub
On Error Resume Next
Dim pth$, fn$, wb As Workbook
pth = "d:\test\" '在这里输入要打开的工作簿的完整路径
fn = "a.xlsx" '在这里输入要打开的工作簿的文件名，包括扩展名
Set wb = Application.Workbooks.Open(pth & fn)
If wb Is Nothing Then MsgBox ("文件打开失败，请检查" & pth & fn & "是否存在！"): Exit Sub
'在此添加操作代码
wb.Close True '如果无需保存，本参数用false
End Sub
第2个回答 2019-04-12
sub
dakai()
mypath="文件路径"
Workbooks.Open
mypath
~
~
你需要的其他代码
~
~
end
sub
dakai()
mypath="文件路径"
Workbooks.Open
mypath
~
~
你需要的其他代码
~
~
end
sub
第3个回答 2019-03-15
Dim
wb
as
workbook
set
wb=
getobject(路径)
就可以了
wb
as
workbook
set
wb=
getobject(路径)
就可以了
