国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > 易語言 > 正文

易語言excel表格怎樣導入到超級列表框

2024-07-21 02:54:32
字體:
來源:轉載
供稿:網友

易語言在操作excel時,常用自帶組件表格或者高級表格來進行互換操作,把excel作為一個數據庫類型,那么excel能不能用超級表框來互換操作,現在來看看怎樣將excel表格的數據導入到超級列表框吧!

易語言,excel表格,超級列表框

工具/原料

易語言軟件!

excel表格數據

方法/步驟

準備好需要的excel表格數據,這里為了演示,隨意添加一些數據!打開易語言,新建windows窗口程序,接著就可以添加必要的組件!

易語言,excel表格,超級列表框

易語言,excel表格,超級列表框

添加必要的組件,這里用到編輯框、按鈕、通用對話框、超級列表框、以及excel程序、excel工作簿!

易語言,excel表格,超級列表框

易語言,excel表格,超級列表框

易語言,excel表格,超級列表框

簡單處理一下界面,將組件的標題、超級列表框設置為報表列表框、顯示格線,對應設置一下報表列與excel表格,大致界面就完成了!

易語言,excel表格,超級列表框

易語言,excel表格,超級列表框

易語言,excel表格,超級列表框

接下來進入代碼部分,_按鈕打開_被單擊事件下,先添加通用對話框使用代碼!過濾文件、指定打開的目錄!

.版本 2

通用對話框1.類型 = 0通用對話框1.初始目錄 = 取運行目錄 ()通用對話框1.過濾器 = “excel文件(*.xlsx)|*.xlsx”.如果真 (通用對話框1.打開 ()) 編輯框1.內容 = 通用對話框1.文件名

易語言,excel表格,超級列表框

添加變量,創建excel程序,讀出excel表格的行數與列數!

.版本 2.支持庫 eExcel2000.支持庫 spec

Excel程序1.創建 () Excel程序1.顯示 = 假 Excel工作簿1.置程序 (Excel程序1)

Excel工作簿1.打開 (通用對話框1.文件名) Excel工作簿1.激活工作簿 () Excel工作簿1.激活表格 () Excel工作簿1.表格序號 = 0 工作簿對象 = Excel工作簿1.取表格對象 () 范圍 = 工作簿對象.讀對象型屬性 (“UsedRange”, ) 行對象 = 范圍.讀對象型屬性 (“Rows”, ) 行 = 行對象.讀數值屬性 (“Count”, ) 列對像 = 范圍.讀對象型屬性 (“Columns”, ) 列 = 列對像.讀數值屬性 (“Count”, ) 調試輸出 (行) 調試輸出 (列)

易語言,excel表格,超級列表框

易語言,excel表格,超級列表框

接下來就可以用計次循環首分別讀入每一行的數據了!,這里為好理解,用了個笨方法,每循環一次代表讀取每一行的數據!然后就把取得的數據置入超級列表框就行了!

.版本 2.支持庫 eExcel2000.支持庫 iext

.計次循環首 (行, n1) Excel工作簿1.首單元格 = “A” + 到文本 (n1) Excel工作簿1.尾單元格 = “A” + 到文本 (n1) 單元格對象 = Excel工作簿1.取單元格對象 () A列 = 單元格對象.讀文本屬性 (“Value”, )

Excel工作簿1.首單元格 = “B” + 到文本 (n1) Excel工作簿1.尾單元格 = “B” + 到文本 (n1) 單元格對象 = Excel工作簿1.取單元格對象 () B列 = 單元格對象.讀文本屬性 (“Value”, )

Excel工作簿1.首單元格 = “C” + 到文本 (n1) Excel工作簿1.尾單元格 = “C” + 到文本 (n1) 單元格對象 = Excel工作簿1.取單元格對象 () C列 = 單元格對象.讀文本屬性 (“Value”, )

Excel工作簿1.首單元格 = “D” + 到文本 (n1) Excel工作簿1.尾單元格 = “D” + 到文本 (n1) 單元格對象 = Excel工作簿1.取單元格對象 () D列 = 單元格對象.讀文本屬性 (“Value”, )

Excel工作簿1.首單元格 = “E” + 到文本 (n1) Excel工作簿1.尾單元格 = “E” + 到文本 (n1) 單元格對象 = Excel工作簿1.取單元格對象 () E列 = 單元格對象.讀文本屬性 (“Value”, )

Excel工作簿1.首單元格 = “F” + 到文本 (n1) Excel工作簿1.尾單元格 = “F” + 到文本 (n1) 單元格對象 = Excel工作簿1.取單元格對象 () F列 = 單元格對象.讀文本屬性 (“Value”, )

索引 = 超級列表框1.插入表項 (, , , , , ) 超級列表框1.置標題 (索引, 0, A列) 超級列表框1.置標題 (索引, 1, B列) 超級列表框1.置標題 (索引, 2, C列) 超級列表框1.置標題 (索引, 3, D列) 超級列表框1.置標題 (索引, 4, E列)

.計次循環尾 ()

易語言,excel表格,超級列表框

易語言,excel表格,超級列表框

讀入完畢后,當然要將excel關閉并釋放了!運行效果就是這樣子的!這里把變量表也上傳上來,方便觀看!

.版本 2.支持庫 eExcel2000

Excel工作簿1.關閉 () Excel工作簿1.釋放 () Excel程序1.退出 () Excel程序1.釋放 ()

易語言,excel表格,超級列表框

易語言,excel表格,超級列表框

易語言,excel表格,超級列表框

END

注意事項

其中在第6步中,讀入數據可以用行數、列數進行嵌套循環可以了,能有效簡化代碼量,可以自行思考改寫!


注:相關教程知識閱讀請移步到易語言教程頻道。
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 临朐县| 黄浦区| 深圳市| 化州市| 宜章县| 乳源| 绩溪县| 巨鹿县| 金昌市| 麦盖提县| 长兴县| 秭归县| 诏安县| 湘潭市| 扎兰屯市| 新乐市| 井陉县| 成武县| 桦甸市| 奎屯市| 甘南县| 腾冲县| 威宁| 舒兰市| 枞阳县| 西平县| 黔西县| 容城县| 吉木萨尔县| 新龙县| 南澳县| 繁昌县| 黎城县| 青铜峡市| 深圳市| 太保市| 新巴尔虎左旗| 固安县| 崇文区| 闽清县| 固安县|