Question

请各位老师帮忙把下面这段代码里面引用的绝对文件路径改成相对路径，谢谢啦！

Private Sub Form_Load()
Dim wba As Workbook, wbb As Workbook
Dim Erow As Long
'------------------------以下代码检测1.xlsx是否打开------------------------------
For Each wba In Workbooks
If wba.name = "F:\Database\柜体.xlsb" Then Exit For
Next
If wba Is Nothing Then
Set wba = Workbooks.Open("F:\Database\柜体.xlsb", False) '如果该文件没打开，则打开之
End If
'------------------------以下代码进行复制处理工作--------------------------------
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wbb = Workbooks.Open("F:\Database\柜体2.xlsb", , False)
Erow = Application.Max(wbb.Worksheets(2).[a1048576].End(3).row, 5)
wba.Worksheets(1).Range("A1:G5").Copy wbb.Worksheets(2).Cells(Erow + 1, "A")
wba.Worksheets(1).Range("A1:G5") = ""
wba.Save
wba.Close
wbb.Save
wbb.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
有愿意帮忙的老师请贴出修改后的代码，VB代码。小女子不胜感激！！！

Answer 1

相对路径是相对于首页根目录的子文件，绝对路径在任意文件夹中，即使首页根目录变化也不影响，相对路径则不然

追问

麻烦您帮忙修改一下路径代码，谢谢啦