利用AHK读取和写入Excel表格

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