none
采用Me.close无法终止程序 RRS feed

  • 问题

  • 我用Function编写函数调用,当出现问题时,采用me.close关闭子窗体,返回父窗体,但是,执行该条语句后,调用该函数的进程继续执行!造成错误发生。

    这个是为什么?关闭窗体后,程序还运行?

    Dim MyOneData(,) As String '存储数据

    MyOneData = MyReadExcel(FileNm)

    调用上述MyReadExcel函数后出问题后,仍然执行后面的这条语句:

    MyOneRow = UBound(MyOneData, 1)

    Function MyReadExcel(ByVal MyFileName As String) As String(,)

    …………………………

            '五、把数据赋值给本函数
            Return ExcelData
            Exit Function

    MyExcelDel:

            MsgBox("读取" & MyFileName & "文件出错,请检查文件格式!" & Chr(13) & Chr(13) & "程序即将终止,并返回主界面!", vbOKOnly + vbInformation, "提醒")
            Me.Close()

        End Function

    2013年5月16日 16:26

答案

全部回复