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

哓哓

不吸烟的青蛙 发表于 2012-2-9 21:31
各种坑爹.....一行代码怎么变两行的
例程重发

这个我会的，我的意思可能没说明白
~~~我要导入的文档内容是日文韩文之类的，粘贴到超级列表框显示乱码，导入到超级列表框和超级编辑框也都是现实“？？？”，唯一的是粘贴到超级编辑框内可以显示。
我知道最佳应该给你了，但我还要开新帖，希望理解

不吸烟的青蛙

哓哓 发表于 2012-2-10 09:10
这个我会的，我的意思可能没说明白
~~~我要导入的文档内容是日文韩文之类的，粘贴到超级列表框显示乱码， ...

赶上班...晚上祥谈，自己看代码先
[e]

.版本 2
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 excel对象, 对象, , , Excel Application 对象代表 Excel
应用程序本身
.程序集变量 excel工作簿集对象, 对象
.程序集变量 excel单元格对象, 对象

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

.如果真 (excel对象.创建 (“Excel.Application”, ) ＝ 假)
    信息框
(“您的计算机上没有安装 Microsoft Office Excel 程序”, #信息图标, )
    结束
()
.如果真结束
excel对象.写属性 (“Visible”, 真)
excel工作簿集对象 ＝ excel对象.读对象型属性
(“Workbooks”, )  ' 即支持库的取工作簿集对象,获取Excel提供的Workbooks对象
.如果
(excel工作簿集对象.是否为空 () ＝ 假)
    输出调试文本
(“工作簿集对象被取出。”)
.否则
    输出调试文本 (“工作簿集对象没有取出！”)
.如果结束

excel工作簿集对象.方法 (“open”, 取当前目录 () ＋ “\新建 Microsoft Excel 工作表.xls”)

excel单元格对象 ＝ excel对象.读对象型属性 (“Cells”, )  '
Excel支持库的取单元格对象,获取Excel提供的Range对象
.如果 (excel单元格对象.是否为空 () ＝
假)
    输出调试文本 (“单元格对象被取出。”)
.否则
   
输出调试文本 (“单元格对象没有取出！”)
.如果结束


.子程序 _按钮1_被单击

excel对象.读对象型属性 (“Range”, “a1:d10”).方法 (“Select”, )  '
选择a1:d10，如果你想自己选，请删除此行代码
excel对象.读对象型属性 (“Selection”, ).通用方法 (“Copy”, )  
' 复制
' 粘贴到电子表格
excel单元格对象.读对象型属性 (“Range”, “a15”).方法 (“PasteSpecial”,
)  ' 从A15位置开始粘贴
' 粘贴到超级编辑框
超级编辑框1.获取焦点 ()
模拟按键 (#Ctrl键, #V键,
)  ' 要上班了，简单写下，自己搞API发送按键


.子程序 __启动窗口_将被销毁

excel工作簿集对象.清除 ()
excel单元格对象.清除 ()

excel对象.写属性 (“DisplayAlerts”, 假)
' excel工作簿对象.方法 (“save”, )  '
以原文件名保存文件
excel对象.方法 (“Quit”, )
excel对象.清除 ()

[/e]


补充内容 (2012-2-10 13:08):
XX...第一遍发失败，然后复制粘贴，代码就断行了，将就吧...时间紧...

亦惜风流

顶一下在学习

风寒水瘦

必须支持，学习一下

哓哓

期待指点            

哓哓

继续等待               

哓哓

继续求助              

哓哓

继续学习中