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

xdwy81129

工作簿打开时，Application.StartupPath路径存在，可Workbook_Open语句里面有结束excel程序时，Workbook_BeforeClose里面的路径  Application.StartupPath又不存在了，太奇怪了，请教为什么，怎么解决这个问题？？

注：如果Workbook_BeforeClose不是经过Workbook_Open里面的语句触发，该Application.StartupPath又存在




Private Sub Workbook_Open()
Dim Str1$:     Str1 = Application.StartupPath
ActiveWindow.Caption = ActiveWorkbook.FullName
    MsgBox Str1 & "开1"
   
    Shell "explorer.exe " & Left(Str1, InStrRev(Str1, "\") - 1), 1
    Application.Quit '关闭e程序
    MsgBox Str1 & "【开】"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Str2$:     Str2 = Application.StartupPath
MsgBox Str2 & "【关】"
End Sub


路径赋值.rar (4.92 KB, 下载次数: 2)

2011-2-2 15:48 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

吕?布

2011-2-8 08:45

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

 

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

 

 

跳转到最佳答案楼层

nothingwmm

1.代码运行正常呀！
2.你的open事件里面 “Application.quit” 使得文件打开后就关闭了，是不是这个导致你运行不出来呀？

xdwy81129

回复 nothingwmm 的帖子

第2个代码不正常呀，msgbox没有把路径显示出来呀

xdwy81129

自己来顶自己的问题

xdwy81129

自己来顶自己的问题

xdwy81129

估计大虾们没有看见问题，自己来顶顶

nothingwmm

xdwy81129 发表于 2011-2-3 19:38
回复 nothingwmm 的帖子

第2个代码不正常呀，msgbox没有把路径显示出来呀

你的open事件里的application.quit 在你打开时然后立即就让excel关闭了，所以你的第二段代码没有机会运行。

xdwy81129

回复 nothingwmm 的帖子

可是运行了的，因为有msgbox弹出，只是路径为空，所以来提问

nothingwmm

使用这段代码：

1. 
   
2. Private Sub Workbook_Open()
   
3. Dim Str1$:     Str1 = Application.StartupPath
   
4. ActiveWindow.Caption = ActiveWorkbook.FullName
   
5.     MsgBox Str1 & "开1"
   
6.    
   
7.     Shell "explorer.exe " & Left(Str1, InStrRev(Str1, "") - 1), 1
   
8.     MsgBox Str1 & "【开】"
   
9. End Sub
   
10. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
11. Dim Str2$:     Str2 = Application.StartupPath
    
12. MsgBox Str2 & "【关】"
    
13. End Sub

复制代码

能运行出你想要的结果。
下载你的附件的话，直接运行就都结束了，
看不到你的附件的代码是怎样的，应该不是你贴出来这段吧。
另外的问题是，你的附件解压的文件是.XLS,如果含有宏的应该是xlsm吧，我这是2007版运行结果。如果你是2003的你看看保存为含宏的格式，就应该没问题。
测试时，你先暂时去掉 application.QUIT 这句。

xdwy81129

回复 nothingwmm 的帖子

用的2003，所以是xls

如果工作表正常打开没有关闭，而自己选择的关闭，则Workbook_BeforeClose事件里面的路径存在


application.QUIT 这句，肯定是问题的关键，只是不能去掉，我用来发现该路径存在文件删除，然后重启，关闭同意要删除，所以需要关闭也要路径