回覆列表
  • 1 # 使用者7097205249891

    這是因為當單一選擇為假時,現行選中項屬性是隻讀的:可以新增一個全域性整數型變數,每次按這個變數選擇表項,並把該變數每次加1。選擇表項之前先取消之前選中的表項:

  • 2 # 使用者6437608732773

    準備好需要的excel表格資料,這裡為了演示,隨意新增一些資料!開啟易語言,新建windows視窗程式,接著就可以新增必要的元件!

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

    .版本 2

    通用對話方塊1.型別 = 0通用對話方塊1.初始目錄 = 取執行目錄 ()通用對話方塊1.過濾器 = “excel檔案(*.xlsx)|*.xlsx”.如果真 (通用對話方塊1.開啟 ()) 編輯框1.內容 = 通用對話方塊1.檔名

    新增變數,建立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”, ) 除錯輸出

    (行) 除錯輸出 (列)

    接下來就可以用計次迴圈首分別讀入每一行的資料了!,這裡為好理解,用了個笨方法,每迴圈一次代表讀取每一行的資料!然後就把取得的資料置入超級列表框就行了!

    .版本 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關閉並釋放了!執行效果就是這樣子的!這裡把變量表也上傳上來,方便觀看!

    .版本 2.支援庫 eExcel2000

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

    步驟閱讀

  • 中秋節和大豐收的關聯?
  • PinePhone開源Linux智慧機支援KDE Plasma Mobile嗎?