vba - Excel VBA 中的相对路径而不是绝对路径

Question

这个问题已经有答案了:

Workbooks.Open Method in VBA (2 个回答)

已关闭 6 年前。

以下代码工作正常，但现在如果我希望它给我的同事，我需要使用相对路径在代码中获取工作簿:

Sub HELLO()

Dim x As Workbook


Sheets("Sheet1").Cells.Clear

'## Open both workbooks first:
Set x = Workbooks.Open("C:\Users\500722\Desktop\dashboard\Task.xls")


'Now, transfer values from x to y:
Sheet1.Cells(1, 1) = x.Sheets("Page 1").Range("A1")
With x.Sheets("Page 1").UsedRange
    'Now, paste to y worksheet:
    Sheet1.Range("A1").Resize( _
        .Rows.Count, .Columns.Count) = .Value

End With

x.Close

End Sub

如果我使用给 Set x = Workbooks.Open("\Task.xls")我收到一条错误消息，指出找不到路径。

Answer 1

改用这个:

Set x = Workbooks.Open(ThisWorkbook.Path & "\Task.xls")