vba中的相对路径

Sub test()
    Dim path As String
    '先获取该工作簿的路径
    this_workbook_path = ThisWorkbook.path
    '再获取目标路径的路径
    target_workbook_path = this_workbook_path & "\全年核销.xlsx"
    Workbooks.Open (target_workbook_path)
End Sub

参考
https://www.jianshu.com/p/e8fa8048fd63