利用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

最后修改: 2020-10-13 08:24

人已赞赏
AHKV1学习

跟屁虫

2020-9-10 21:53:16

AHKV1办公

度盘标准提取码生成器

2020-9-17 9:39:39

3 条回复 A文章作者 M管理员
  1. 南柯一梦

    不错,真是不错啊!

  2. 星星雨

    感谢分享

  3. qinweizhao

    好,刚好用到

个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索