excel_com_分段导出文本

 
F12::
;~ Excel - constants 
;~ The parameter 4 used in the End property is used to specify where to move the cursor. The Excel defined constants are xlUp, xlDown, xlToRight, and xlToLeft. From the Object Browser in Excel the corresponding values are -4162, -4121, -4161, and -4159. I do not know where the value of 4 comes from, but it does work.



xlUp= -4162
xlDown=-4121	
xlToRight= -4161
xlToLeft= -4159


excel := ComObjActive("Excel.Application") ; 创建Excel 对象
workBook  := excel.ActiveWorkbook  ; 当前工作簿
currentSheet := excel.ActiveSheet ; 当前工作表
Sheet1:=excel.Worksheets[1]
;~ cell := excel.ActiveCell ; 当前单元格

zonghangshu := Sheet1.Range("A65536").End(xlUp).Row
meigewenjianhangshu:= 500
Wenjianshu := Ceil(zonghangshu / meigewenjianhangshu)
MsgBox %Wenjianshu%
excel.Quit


return
/*

    
    RowFrom = 2
    For iFile = 1 To Wenjianshu
            If iFile