none
VB6 如何判斷 c:\aa.xls 的excel文件是否已打開? RRS feed

  • 問題

  • 請問:
    VB6 如何判斷 c:\aa.xls 的excel文件是否已打開?

    Private Sub Command1_Click()
    Dim a
    a = Shell("C:\Program Files\Microsoft Office\excel.exe c:\aa.xls", vbNormalFocus)
    End Sub
    Private Sub Form_Load()
    Command1.Value = True '開啟後先自動按一下
    End Sub

    上述目前是設定是,執行VB檔就自動先觸發 Command1 按鍵打開excel文件 關閉時excel文件不會關,
    需求:
    1.執行VB檔時,先判斷 c:\aa.xls 是否已打開?
    2.VB檔執行時每30秒監控一次 c:\aa.xls是否有被關閉?若 c:\aa.xls被關閉,自動觸發一下 Command2 鍵
    3. CmdSend如何改成Command? 
    Private Sub CmdSend_Click()
    MSComm1.Output = Trim(txtSend.Text) & vbCrLf
    End Sub

    不好意思問題有點多 麻煩大家了!
    2014年3月14日 上午 12:45

解答

所有回覆