Question

vba 根据路径，打开一个excel文件，代码应该怎么写

Answer 1

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

Answer 2

fl = Application.GetOpenFilename(, , "打开目标文件") 此句是打开一个选择文件的对话框，fl得到的是你选择文件的具体路径；
Workbooks.Open Filename:=fl 这句是打开你选择的文件！
当然如果想打开指定文件，你可以不写第1句，直接把第2句的fl改成具体路径的字符串即可！

Answer 3

sub dakai()
mypath="文件路径"
Workbooks.Open mypath
~
~
你需要的其他代码
~
~
end sub

Answer 4

Dim wb as workbook
set wb= getobject(路径)

就可以了