LWin::
if !objExcel
{
arr:=[], objExcel:=""
Try objExcel:=ComObjActive("Excel.Application")
}
Try
{
aa:=objExcel.ActiveCell, y:=aa.Row, x:=aa.Column
bb:=objExcel.Cells(y,1).Resize(1,x)
Loop, % bb.Columns.Count-1
arr[A_Index]:=bb.Cells(1,A_Index).Value
aa.Value:="ok", aa.OffSet(1,0).Activate
objExcel.ActiveWorkBook.Save
}
For k,v in arr
s:=k=1 ? v : s . A_Tab . v
MsgBox, 4096,, % s
return
最后修改:
2020-10-13 08:24
不错,真是不错啊!
感谢分享
好,刚好用到