Public Sub ColseTemp() '關閉Temp.doc檔
Dim rtn As Long
rtn = FindWindow(vbNullString, "Temp - Microsoft Word")
If rtn > 0 Then
SendMessage rtn, WM_CLOSE, 0&, 0&
End If
End Sub
Private Sub Command1_Click()
ColseTemp
doevents
......

End Sub
我先定義了一個函數.用來關閉Temp.doc檔,我用doevents來讓系統完全關閉Temp.doc檔後再執行以下的程式.可是事與願違,Temp.doc還沒關閉,就已經執行了以下的程式.
奇怪的是,這種錯誤是有時發生,並不是每次執行都是錯誤的.
我頭大了,這是什麼意思?
請各位大哥指點!!
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(3) 人氣()