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

声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。

给TA捐赠
共{{data.count}}人
人已捐赠
其他案例

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

2020-9-14 16:34:37

案例

度盘标准提取码生成器

2020-9-17 9:39:39

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

    不错,真是不错啊!

  2. 星星雨

    感谢分享

  3. qinweizhao

    好,刚好用到

  4. suyihang

    好像很复杂的样子,可能结合vba会更加方便

  5. 假如梦想欺骗了你

    那个lol喊话call我没有成功用起,请问您成功了吗

  6. flyboy

    有的复杂,还是python方便

  7. wzzxx

    读取写入方式

  8. LionAHK1

    用了没有读取出来 .不知道怎么用?

  9. LionAHK1

    难道是不支持wps?

  10. 布君

    读取左边的数据,成功了

  11. 略略略丷

    感谢分享

  12. 码农

    感谢分享

  13. Packy

    非常感谢

  14. aahk

    急需一个用AHK制作的窗口:

    1、窗口类似Everything的界面,有一个Edit编辑框和一个ListView。
    2、当用户在编辑框中输入搜索关键字或者关键字的拼音首字母
    (多个关键字或者拼音首字母用空格键分隔)之后无需按回车键
    立即根据关键字筛选过滤ListView并刷新ListView的显示。
    3、ListView的显示内容来自于Excel表格。
    4、ListView的显示项可以用于操作对应的资源对象
    (图片、音频、视频、压缩包、网址等等)
    5、ListView的显示项的右键菜单
    可以用户自定义项目和命令内容。
    6、用户可以通过选项启用或者禁用实时异地备份Excel表格
    (类似与Delphi中触发onclick事件和onchange事件时
    自动远程连接群晖的WebDAV文件服务并实时备份Excel表格)。

    不知那位大侠可以创作和分享一下

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