VBS讀取Excel

Function FastReadExcel(byval myXlsFile,byval mySheet,byref arrData( ), byref Rscount,byval blnHeader )          Erase arrData         Dim  i, j          Dim objExcel, objRS          Dim strHeader, str

>>阅读原文<<