举报
#include "Excel.au3" Func ExcelGetLastCell($oSheet) If Not IsObj($oSheet) Then Return SetError(1, 0, 0) Return $oSheet.Cells.SpecialCells($xlCellTypeLastCell) EndFunc ;==>ExcelGetLastCell Func GetResultArray() $oExcel = _ExcelBookOpen(...) $oSheet = $oExcel.activesheet $ncolumn = ... $lastcell = ExcelGetLastCell($oSheet) For $row = 1 To $lastcell.Row If $oSheet.cells($row, $ncolumn) Then $array = _ExcelReadArray($oExcel, $row, 1, $lastcell.Column) EndIf Next EndFunc
本版积分规则 发表回复 回帖后跳转到最后一页
|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度
GMT+8, 2025-2-25 01:27 , Processed in 0.184497 second(s), 23 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2024 Discuz! Team.