[已解决]Application.StartupPath没有了？？？

吕?布

Dim sStartupPath As String

Private Sub Workbook_Open()

    sStartupPath = Application.StartupPath
    ActiveWindow.Caption = ActiveWorkbook.FullName

    MsgBox sStartupPath & "¿ª1"
    Stop

    Shell "explorer.exe " & Left(sStartupPath, InStrRev(sStartupPath, "\") - 1), 1

    Application.Quit    '¹Ø±Õe³ÌÐò
    MsgBox sStartupPath & "¡¾¿ª¡¿"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    MsgBox sStartupPath & "¡¾¹Ø¡¿"

End Sub

 

不知为什么,我现在贴上的代码里的汉字变成乱码了

 

 

xdwy81129

回复 吕?布 的帖子

谢谢答案，但再单独是关闭事件时，路径又为空了，我就再定义路径出来就可以了，谢谢