Question

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

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代码。小女子不胜感激！！！
If wba.name = "F:\Database\柜体.xlsb" Then Exit For

Set wba = Workbooks.Open("F:\Database\柜体.xlsb", False)

Set wbb = Workbooks.Open("F:\Database\柜体2.xlsb", , False)

就这三个地方的路径改为相对路径

Answer 1

　　相对路径是指相对你原程序位置的路径位置，比如我的文件在D:\1.exe那么我找到2.txt的相对位置就是.\2.txt,这里的相对位置，你可以根据你的程序位置修改下。

• .\（点斜杠）表示同级目录

• \（单斜杠）表示下级目录

• ..（点点）表示上级目录

Answer 2

绝对路径 = App.Path & "\相对exe的路径"

追问

照你这改了后出现这种情况，是怎么回事呀？

追答

不能把字符串直接赋值给excel的对象啊。

追问

这要怎么修改一下？

追答

仔细对比以前的代码。

追问

不会呀，老师，这代码也是我抄来的，请帮忙改一下吧^_^

追答

Set wbb = 后面你给吃了？