[求助]：怎么使新建的文件或打开的文件在当前目录

redlittlefox

Private Sub CommandButton1_Click()
nn = Sheet1.Range("d1")
Open "e:bd.scr" For Output As #1
Print #1, "spline"
For n = 4 To 24
mmr = Sheet1.Range("a" & n) & "," & Sheet1.Range("b" & n)
Print #1, mmr
Next n
For i = 23 To 4 Step -1
mmr = Sheet1.Range("e" & i) & "," & Sheet1.Range("f" & i)
Print #1, mmr
Next i
Print #1,
Print #1,
Print #1,
Close #1
End Sub
每次新建和打开文件都只能是绝对路径，怎样使新建或打开的文件在当前目录，如以上代码中的文件bd.scr在当前目录，怎么打开？