.支持庫 eDB
.支持庫 eGrid
.子程序 _按鈕1_被單擊
.局部變量 連接文本, 文本型
.局部變量 文件地址, 文本型
.局部變量 SQL語句, 文本型
.局部變量 循環次數, 整數型
.局部變量 循環計次, 整數型
.局部變量 文本變量, 文本型, , "26"
.局部變量 表項索引, 整數型
.局部變量 i, 整數型
.局部變量 k, 整數型
文件地址 ＝ 取運行目錄 () ＋ “\1.xls”
.如果 (數據庫連接.連接 (“Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=” ＋ 文件地址 ＋ “;DefaultDir=” ＋ 文件地址 ＋ “;”) ＝ 真)
輸出調試文本 (“鏈接成功！”)
.如果真 (記錄集.置連接 (數據庫連接) ＝ 假)
返回 ()
.如果真結束
SQL語句 ＝ “select * from [Sheet1$]”
記錄集.打開 (SQL語句, #SQL語句)
循環次數 ＝ 記錄集.記錄數量
.計次循環首 (循環次數, 循環計次)
.計次循環首 (26, i)
記錄集.讀文本 (i － 1, 文本變量 [i])
.計次循環尾 ()
.計次循環首 (26, k)
高級表格1.置數據 (循環計次, k, 1, 文本變量 [k])
.計次循環尾 ()
循環計次 ＝ 循環計次 ＋ 1
記錄集.到下壹條 ()
.計次循環尾 ()
輸出調試文本 (“讀入並顯示成功！”)
.否則
輸出調試文本 (數據庫連接.最後錯誤)
.如果結束
.子程序 __啟動窗口_創建完畢
.局部變量 i, 整數型
.計次循環首 (26, i)
高級表格1.插入列 (字符 (i ＋ 64), i)
.計次循環尾 ()
.計次循環首 (1000, i)
高級表格1.插入行 (到文本 (i), i)
.計次循環尾 ()
其他的窗口大小 和行高 列高自行修改吧
目前只寫了文本型數據。其他數據追問