使用易語言讀取Excel數(shù)據(jù)
易語言是一門功能強(qiáng)大的編程語言,可以實(shí)現(xiàn)對外部數(shù)據(jù)的讀取和處理。本文將介紹如何使用易語言讀取Excel表格數(shù)據(jù)。 創(chuàng)建易語言窗口程序 首先,在易語言編程環(huán)境中創(chuàng)建一個(gè)“Windows窗口程序”,點(diǎn)
易語言是一門功能強(qiáng)大的編程語言,可以實(shí)現(xiàn)對外部數(shù)據(jù)的讀取和處理。本文將介紹如何使用易語言讀取Excel表格數(shù)據(jù)。
創(chuàng)建易語言窗口程序
首先,在易語言編程環(huán)境中創(chuàng)建一個(gè)“Windows窗口程序”,點(diǎn)擊菜單“工具”-gt;“支持庫配置”項(xiàng),在打開的窗口中找到并勾選“通用對象支持庫 2.0版”,并點(diǎn)擊“確定”以添加“超級列表框”組件。
繪制界面和創(chuàng)建Excel文件
接下來,在“啟動窗口”中繪制界面,包括一個(gè)“外部數(shù)據(jù)庫”和一個(gè)“超級列表框”組件。然后,利用Excel創(chuàng)建一個(gè)名為“jiance.xls”的Excel文件,并將該文件與易語言程序放置在同一目錄下。
讀取Excel數(shù)據(jù)
確保選中“啟動窗口”,然后為其添加“創(chuàng)建完畢”事件。在事件中輸入以下代碼:
.版本 2
.支持庫 iext
如果真(外部數(shù)據(jù)庫1.打開("ODBC;DBQ" 取當(dāng)前目錄() "jiance.xls;Driver{Microsoft Excel Driver (*.xls)};DriverId790;FILexcel 8.0;MaxBufferSize2048;MaxScanRows8;PageTimeout5;ReadOnly0;SafeTransactions0;Threads3;UIDadmin;UserCommitSyncYes;", , ) 假)
信息框("數(shù)據(jù)庫連接失敗!", 錯誤圖標(biāo), )
返回()
如果真結(jié)束查詢語句 "select * from [Sheet1$]"
記錄集 外部數(shù)據(jù)庫1.查詢(查詢語句)
如果真(記錄集 0)
信息框("查詢失??!", 錯誤圖標(biāo), )
返回()
如果真結(jié)束外部數(shù)據(jù)庫1.到首記錄(記錄集)
局部_計(jì)次 1
超級列表框1.插入列(, "序號", 80, , , )
超級列表框1.插入列(, "姓名", 80, , , )
超級列表框1.插入列(, "性別", 80, , , )
超級列表框1.插入列(, "年齡", 80, , , )
判斷循環(huán)首(外部數(shù)據(jù)庫1.尾記錄后(記錄集) 假)
局部_臨時(shí)A 外部數(shù)據(jù)庫1.讀(記錄集, 1)
局部_臨時(shí)B 外部數(shù)據(jù)庫1.讀(記錄集, 2)
局部_臨時(shí)C 到文本(外部數(shù)據(jù)庫1.讀(記錄集, 3))
索引 超級列表框1.插入表項(xiàng)(, , , , , )
超級列表框1.置標(biāo)題(索引, 0, 到文本(局部_計(jì)次))
超級列表框1.置標(biāo)題(索引, 1, 局部_臨時(shí)A)
超級列表框1.置標(biāo)題(索引, 2, 局部_臨時(shí)B)
超級列表框1.置標(biāo)題(索引, 3, 局部_臨時(shí)C)
外部數(shù)據(jù)庫1.到后一記錄(記錄集)
局部_計(jì)次 局部_計(jì)次 1
判斷循環(huán)尾()
外部數(shù)據(jù)庫1.關(guān)閉記錄集()
最后,點(diǎn)擊“運(yùn)行”按鈕,就可以看到易語言成功引用Excel表格中的數(shù)據(jù)了。