Windows LiveWindows Live™
 
 
Wang's profile我的幸福生活PhotosBlogLists Tools Help

Blog
    March 23

    VB

    dim objwork as object
    dim objwork as object
    dim arrname() as array
     
    Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\Inventory.xls";)
    For Each objWorksheet in objWorkbook.Sheets
    ReDim Preserve arrNames(intSize) arrNames (intSize) = objWorksheet.Name
     intSize = intSize + 1
    Next

    判断某一个数据集为空
    IsDBNull( table.dataset)= True
    2:04 PM | Add a comment | Permalink | Blog it | Food and drink