本帖最后由 吕?布 于 2011-2-8 08:50 编辑
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
不知为什么,我现在贴上的代码里的汉字变成乱码了
|