关于EXCEL数据拆分问题[已解决]

dhlhmgc

我也来一个，用ADO方式读取 与 Excel Open方式 读取比较，哈哈，献丑了。相比之下，ADO虽有缺点，但速度要稍快一些

#include <Excel.au3>
#include <Array.au3>

$begin = TimerInit()
Dim $Cn1 = ObjCreate("Adodb.Connection")
Dim $Rs1 = ObjCreate("Adodb.Recordset")
With $Cn1
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Extended Properties") = "Excel 8.0;HDR=No;IMEX=1"
    .Properties("Data Source") = @ScriptDir & "\1.xls"
    .CursorLocation = 3                ;//adUseClient = 3
    .Open
EndWith
dim $arr
$Rs1 = $Cn1.ExeCute("SELECT * FROM [888$] WHERE LEN(F1)>0")
if not ($rs1.EOF AND $rs1.BOF) Then
        $arr = $rs1.GetRows()
Endif
$rs1.close
$cn1.close
$dif = StringFormat("ado读取耗费时间[%.4f]秒,读取记录[%u]条",TimerDiff($begin)/1000, ubound($arr) )
_ArrayDisplay($arr, $dif )

#include <Excel.au3>
#include <Array.au3>
DIM  $eExcelArray
$begin =TimerInit()
$eExcel = _ExcelBookOpen(@ScriptDir&"\1.XLS",0,True) ;打開EXCEL表
With $eExcel.ActiveSheet ;Worksheets("")  如果要用工作表名稱 就改成這邊
     $eExcelArray= .range("a1").currentregion.value        ;第一行讀取
   $eExcelArray= .application.transpose($eExcelArray) ;行列互換
   ;.parent.close(false) ;讀取完畢後 把頁面關掉的
EndWith
_ExcelBookClose($eExcel, 0, 0)
$eExcel=0
$dif = StringFormat("ExcelOpen耗费时间[%.4f]秒,读取记录[%u]条",TimerDiff($begin)/1000, ubound($eExcelArray) )
_ArrayDisplay($eExcelArray, $dif )

zhaoyun