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
利用AHK读取和写入Excel表格
人已赞赏
不错，真是不错啊！
感谢分享
好，刚好用到