急！！急！！求解惑 請高手指點
問題：用VB撰寫的程式呼叫指定含有宏的EXCEL檔案,打開EXCEL檔案后，運行EXCEL檔案里表單中的隱藏表單的命令時會關閉該EXCEL檔案。不得其解？？？
我的電腦原來是XP系統時裝的是office2007,改程式是好用的。現在電腦升級為WIN7 32X位專業版系統且裝的office2010時，改程式就出現上面的問題。請高手指點
VB相關代碼如下：
On Local Error GoTo errhandle
If ISruningxls = False Then
Set objexl = New Excel.Application
objexl.Visible = True
objexl.Workbooks.Open App.path & "\檢查XX.xls"
objexl.Windows("檢查XX.xls").Activate
Set wb = objexl.ActiveWorkbook
End If
ISruningxls = FileExists("c:\checkdmexcel.bz")
Do While ISruningxls
ISruningxls = FileExists("c:\checkdmexcel.bz")
If Not ISWORKBOOKOPEN("sjzldm.txt", objexl) Then
Kill "C:\checkdmexcel.bz"
Exit Do
End If
DoEvents
Loop
objexl.ActiveWorkbook.Close False
errhandle:
objexl.Quit
==》》》》》》》》》》》》》》》》》
EXCEL 中執行的 me.hide 該事件時關閉該EXCEL
uj5u.com熱心網友回復：
補充：vb未經編譯為可執行檔案時，可以正常運行。編譯為EXE后再運行，EXCEL就會關閉。uj5u.com熱心網友回復：
如果objexl是個程序變數，那結果可想而知了，如果不是，在errhandle:后面先不要quit，而是輸出錯誤內容看看.......uj5u.com熱心網友回復：
objexl是全域變數。這個程式在XP系統是好用的；在errhandle:后面先不要quit后，隱藏VBA表單時還是關閉EXCEL
我感覺能不能使我的電腦里的WIN7系統有問題啊
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/109562.html
標籤：VBA
下一篇：vba編程求助