2011年計(jì)算機(jī)等級二級VB輔導(dǎo)知識技巧總結(jié)（26）(8)

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ù)只不過是一部分，其于的因?yàn)閷Ｓ媚康?，寫不?biāo)準(zhǔn)，以后也許會整理出來一份標(biāo)準(zhǔn)的函數(shù)庫的！