xlCheckApp.Quit
    CheckExcel = True
    Set xlCheckApp = Nothing
    End If
    End Function
    Function CreateWorkBook（ByVal strWorkBook As String， xlApp As Excel.Application）
    Dim xlCreateWorkBook As Excel.Workbook
    Set xlCreateWorkBook = xlApp.Workbooks.Add
    xlCreateWorkBook.SaveAs （strWorkBook）
    End Function
    Function GetPath（strPath As String） As String
    GetPath = IIf（Len（strPath） = 3， strPath， strPath & “\”）
    End Function
    這上面的函數(shù)只不過是一部分，其于的因為專用目的，寫不標準，以后也許會整理出來一份標準的函數(shù)庫的！