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

打开文件如下：

Workbooks.Open ("C:\对账单\对帐单.xlsx")

这里你可以把“C:\对账单\”换成你的百绝对路径，

你可以用：a = ThisWorkbook.Path

a = ThisWorkbook.Path

Workbooks.Open ("" & a & "&" \ "&对帐单.xlsx")

来获取你度当前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问题可以hai我 

如果当前文件夹下还有A文件夹可问以用代码：

Workbooks.Open ("" & a & "&" \ A\"&b.xlsx")

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

sub openfile()
Workbooks.Open Filename:="F:\test\EXCEL文件.xls"
end sub

Workbooks.Open "D:\1\1.xlsx"
D:\1\1.xlsx 可以自行更改，也可以先定义后引用的方式打开，如
x=D:\1\1.xlsx
Workbooks.Open X