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

人已赞赏
AHKV1

外网远程顶级域名连接群晖的WebDAV文件服务映射盘符

2020-9-14 16:34:37

AHKV1

度盘标准提取码生成器

2020-9-17 9:39:39

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