[办公]excel值获取

execl
SetFormat, FloatFast, 0.2 ;设置小数点位

adOpenStatic := 3
adLockOptimistic := 3
adCmdText := 0x0001

objConnection := ComObjCreate("ADODB.Connection")
objRecordSet := ComObjCreate("ADODB.Recordset")

objConnection.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Users\清墨\Documents\111.xls; Extended Properties=""Excel 8.0;HDR=Yes;"";")

objRecordset.Open("Select * FROM [Sheet1$]", objConnection, adOpenStatic, adLockOptimistic, adCmdText)

if ( objRecordset.BOF == -1 ) ;查找结果为空
{
GuiControl, Show, 表
Return
}


Gui, Add, ListView,  v表 w700 h500, 1|2|3|4
while !objRecordset.EOF
{
	get0:=objRecordset.Fields[0].Value 
	get1:=objRecordset.Fields[1].Value
	get2:=objRecordset.Fields[2].Value
	get3:=objRecordset.Fields[3].Value
	LV_Add("" ,get0,get1,get2,get3)
	objRecordset.MoveNext
}
Gui, Show, w700 h500
Return

 

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

[编程]HtmlClickByKeyString

2017-6-16 15:11:11

其他教程

[教程][文件]AutoHotKey系列教程中级教程第四节第一课文件操作简介

2017-8-3 20:41:06

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
有新私信 私信列表
搜索