怎样把Excel文档内容，也就是xls文件导入到超级编辑框内

哓哓

RT

哓哓

沙发都没人坐？？？？？？？？？

哓哓

这个问题我也在寻找答案，帮你顶

哓哓

求高手指点         

不吸烟的青蛙

虽然不是我写的源码....
[e].版本 2
.支持库 eExcel2000

.子程序 _创建一个新xls工作薄并输入内容_被单击

' 启动并显示excel程序
Excel程序1.创建 ()
Excel程序1.显示 ＝ 真
' 创建一个新的空文件book1.xls
Excel工作簿1.置程序 (Excel程序1)
' 向A1单元格中输入12
Excel工作簿1.首单元格 ＝ “a1”
Excel工作簿1.尾单元格 ＝ “a1”
Excel工作簿1.内容 ＝ “12”
' 向A2单元格中输入24
Excel工作簿1.首单元格 ＝ “a2”
Excel工作簿1.尾单元格 ＝ “a2”
Excel工作簿1.内容 ＝ “24”
' 向A1单元格中输入公式求A1到A2的和
Excel工作簿1.首单元格 ＝ “a3”
Excel工作簿1.尾单元格 ＝ “a3”
Excel工作簿1.内容 ＝ “=sum(a1:a2)”
' 保存book1.xls文件为c:\lx.xls后，退出excel程序
Excel工作簿1.保存 (“c:\lx.xls”)
Excel程序1.退出 ()


.子程序 _打开一个已有的xls文件并新的内容_被单击

.如果真 (通用对话框1.打开 () ＝ 真)
    ' 启动并显示excel程序
    Excel程序1.创建 ()
    Excel程序1.显示 ＝ 真
    ' 创建一个新的空文件book1.xls
    Excel工作簿1.置程序 (Excel程序1)
    ' 关闭这个空文件
    Excel工作簿1.关闭 ()
    ' 打开一个已有的xls文件，并激活第一个表格
    Excel工作簿1.打开 (通用对话框1.文件名)
    Excel工作簿1.表格序号 ＝ 1
    Excel工作簿1.激活表格 ()
[/e]

哓哓

不吸烟的青蛙 发表于 2012-2-8 21:09
虽然不是我写的源码....

谢谢你热心帮助  这个我知道的  可我要的是导入到超级编辑框啊。。。

大家好呵呵

嘿嘿  怎么 把帖子 用 丁山来了？

vhjjk

{:soso_e135:}

不吸烟的青蛙

哓哓 发表于 2012-2-9 08:26
谢谢你热心帮助  这个我知道的  可我要的是导入到超级编辑框啊。。。

知道了不？
还不清楚自己看例程..
[e]

.版本 2
.支持库 eExcel2000
.支持库 iext2

.子程序 __启动窗口_创建完毕

Excel程序1.创建 ()
Excel程序1.显示 ＝ 真
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.关闭
()
Excel工作簿1.打开 (取运行目录 () ＋ “\新建 Microsoft Excel 工作表.xls”)
Excel工作簿1.表格序号
＝ 1


.子程序 _按钮1_被单击
.局部变量 A, 整数型
.局部变量 B, 整数型

.计次循环首 (10, A)
    .计次循环首 (4,
B)
        Excel工作簿1.首单元格 ＝ 字符 (65 ＋ B －
1) ＋ 到文本 (A)
        Excel工作簿1.尾单元格 ＝ 字符
(65 ＋ B － 1) ＋ 到文本 (A)
        .如果 (B ＝
1)
            
超级编辑框1.内容 ＝ 超级编辑框1.内容 ＋
Excel工作簿1.内容
        
.否则
            
超级编辑框1.内容 ＝ 超级编辑框1.内容 ＋ 到文本 ({ 9 }) ＋
Excel工作簿1.内容
        .如果结束

    .计次循环尾 ()
    .如果真 (A ≠
10)
        超级编辑框1.内容 ＝ 超级编辑框1.内容 ＋
#换行符
    .如果真结束

.计次循环尾 ()
[/e]

不吸烟的青蛙

各种坑爹.....一行代码怎么变两行的
例程重发

[e].版本 2
.支持库 eExcel2000
.支持库 iext2

.子程序 __启动窗口_创建完毕

Excel程序1.创建 ()
Excel程序1.显示 ＝ 真
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.关闭 ()
Excel工作簿1.打开 (取运行目录 () ＋ “\新建 Microsoft Excel 工作表.xls”)
Excel工作簿1.表格序号 ＝ 1


.子程序 _按钮1_被单击
.局部变量 A, 整数型
.局部变量 B, 整数型

.计次循环首 (10, A)
    .计次循环首 (4, B)
        Excel工作簿1.首单元格 ＝ 字符 (65 ＋ B － 1) ＋ 到文本 (A)
        Excel工作簿1.尾单元格 ＝ 字符 (65 ＋ B － 1) ＋ 到文本 (A)
        .如果 (B ＝ 1)
            超级编辑框1.内容 ＝ 超级编辑框1.内容 ＋ Excel工作簿1.内容
        .否则
            超级编辑框1.内容 ＝ 超级编辑框1.内容 ＋ 到文本 ({ 9 }) ＋ Excel工作簿1.内容
        .如果结束

    .计次循环尾 ()
    .如果真 (A ≠ 10)
        超级编辑框1.内容 ＝ 超级编辑框1.内容 ＋ #换行符
    .如果真结束

.计次循环尾 ()[/e]