Excel所有工作表合并输出到txt Autohotkey

本文来自于Thinkai’s Blog,thinkai也是我在ahk上面的引路人,对thinkai感兴趣的朋友请关注他的博客。
thinkai的博客简洁、有趣,即便是转载过来我也尽量保持作者原有的风格,主要是方便大家查阅。
;适合所有工作表字段(列头)一致的情况
#maxmem 1024
file := "d:desktoplist.xls"
xls := new exceldb()
xls.open(file)
content := ""
for k,v in xls.GetTableInfo()
{
 
    for a,b in xls.GetTable("select * from [" k "$]")
 
    {
 
        tmp_str := ""
 
        for x,y in b
 
        {
 
            tmp_str .= tmp_str ? "`t""" y """" : """" y """"
 
        }
 
        content .= tmp_str "`t" k "`n"
 
    }
}
FileAppend % content, d:desktopout1.txt

 

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

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

判断文件是否带UTF-8 BOM示例 Autohotkey 

2020-2-19 10:35:46

其他案例

浮岛拼图|liuyukuan|股票类-1.获取通达信软件上的股票代码

2020-2-19 17:21:08

2 条回复 A文章作者 M管理员
  1. 活了个该

  2. 7870fun

    不错

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