ahk写入excel单元格_输出excel数据到GUI 获取excel所有Sheet及字段 Autohotkey

;Thinkai@2015-10-25

Gui, Add, Tab, x0 y0 w800 h500 vtab

Gui, Show, , 输出excel数据到GUI

FileSelectFile, file, , , 选择一个表格, Excel文件(*.xls;*.xlsx)

IfNotExist % file

ExitApp

conn := ComObjCreate("ADODB.connection") ;初始化COM

conn.Open("Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" file) ;打开连接

;conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=Yes';Data Source=" file) ;打开连接 2003方式

;通过OpenSchema方法获取表信息

rs := conn.OpenSchema(20) ;SchemaEnum 参考 http://www.w3school.com.cn/ado/app_schemaenum.asp

table_info := []

rs.MoveFirst()

while !rs.EOF ;有效Sheet

{

t_name := RegExReplace(rs.("TABLE_NAME").value,"\$$","")

q := conn.Execute("select top 1 * from [&