xcel中VBA编程在卫生部单病种质量控制指标系统自动处理病例上报的应用(2)

http://www.100md.com 2014年1月29日 王欢 牟晨晨 刘丰 王铮强 李萧 刘清良

第1页

    参见附件。

     Dim myindex As Long

    For myindex = 0 To myshellwindow.Count - 1

    If VBA.TypeName(mshellwindow.Item(mindex).document) = TMLDocument" Then

    If myshellwindow.Item(myindex).document.Title = ietitle Then

    If waittime = 1 Then

    Do While myshellwindow.Item(myindex).Busy

    Application.Wait (Now + TimeValue("0：00：01"))

    DoEvents

    Loop

    End If

    Set mydocument = myshellwindow.Item(myindex).document

    Set mywindow = myshellwindow.Item(myindex)

    myshellwindow ......

    http://www.100md.com/html/paper/1006-1959B/2014/04/06-1.htm

您现在查看是摘要介绍页，详见PDF附件。