我把一张Excel数据用字节集的方式读入到易语言里
你好,这是你以前的提问,我想问下,你是怎么用字节集的方式读入的易语言EXCEL导入数据30我把一张Excel数据用字节集的方式读入到易语言里,如何让它显示在易语言程序里?...
你好,这是你以前的提问,我想问下,你是怎么用字节集的方式读入的
易语言EXCEL导入数据 30
我把一张Excel数据用字节集的方式读入到易语言里,如何让它显示在易语言程序里?谢谢各位高手!!! 展开
易语言EXCEL导入数据 30
我把一张Excel数据用字节集的方式读入到易语言里,如何让它显示在易语言程序里?谢谢各位高手!!! 展开
1个回答
展开全部
Excel程序和Excel工作簿导入
.版本 2
.支持库 eExcel2000
.支持库 iext
.支持库 eAPI
.子程序 导入数据1, , , 导入新数据
.局部变量 局部_计次1, 整数型
.局部变量 局部_计次, 整数型
.局部变量 局部_导出头, 文本型, , "0"
.局部变量 局部_标志, 文本型
.局部变量 局部_索引, 整数型
按钮1.可视 = 假
按钮2.可视 = 假
可视 = 真
标题 = “新数据导入(” + _启动窗口.通用对话框1.文件名 + “) ” + “正在提取数据,请稍候...”
_启动窗口.Excel程序1.创建 ()
_启动窗口.Excel工作簿1.置程序 (_启动窗口.Excel程序1)
_启动窗口.Excel工作簿1.激活工作簿 ()
_启动窗口.Excel工作簿1.打开 (_启动窗口.通用对话框1.文件名)
_启动窗口.Excel工作簿1.表格序号 = 1
超级列表框1.报表列 = { }
.计次循环首 (25, 局部_计次) ' 取数组成员数 (局部_导出头)
超级列表框1.插入列 (-1, “”, 80, , , ) ' 局部_导出头 [局部_计次]
.计次循环尾 ()
局部_标志 = “1”
局部_计次 = 1
.判断循环首 (删全部空 (局部_标志) ≠ “”)
处理事件 ()
局部_标志 = “”
.计次循环首 (25, 局部_计次1) ' 取数组成员数 (局部_导出头)
_启动窗口.Excel工作簿1.首单元格 = 字符 (97 + 局部_计次1 - 1) + 到文本 (局部_计次 + 1)
_启动窗口.Excel工作簿1.尾单元格 = 字符 (97 + 局部_计次1 - 1) + 到文本 (局部_计次 + 1)
局部_标志 = 局部_标志 + _启动窗口.Excel工作簿1.内容
.如果真 (删全部空 (局部_标志) ≠ “”)
.如果真 (局部_计次1 = 1)
局部_索引 = 超级列表框1.插入表项 (, , , , , )
.如果真结束
超级列表框1.置标题 (局部_索引, 局部_计次1 - 1, _启动窗口.Excel工作簿1.内容)
.如果真结束
.计次循环尾 ()
局部_计次 = 局部_计次 + 1
.判断循环尾 ()
_启动窗口.Excel工作簿1.保存 (_启动窗口.通用对话框1.文件名)
_启动窗口.Excel工作簿1.关闭 ()
_启动窗口.Excel工作簿1.释放 ()
_启动窗口.Excel程序1.退出 ()
_启动窗口.Excel程序1.释放 ()
_启动窗口.Excel程序1.退出 ()
_启动窗口.Excel程序1.释放 ()
终止进程 (“Excel.exe”)
.版本 2
.支持库 eExcel2000
.支持库 iext
.支持库 eAPI
.子程序 导入数据1, , , 导入新数据
.局部变量 局部_计次1, 整数型
.局部变量 局部_计次, 整数型
.局部变量 局部_导出头, 文本型, , "0"
.局部变量 局部_标志, 文本型
.局部变量 局部_索引, 整数型
按钮1.可视 = 假
按钮2.可视 = 假
可视 = 真
标题 = “新数据导入(” + _启动窗口.通用对话框1.文件名 + “) ” + “正在提取数据,请稍候...”
_启动窗口.Excel程序1.创建 ()
_启动窗口.Excel工作簿1.置程序 (_启动窗口.Excel程序1)
_启动窗口.Excel工作簿1.激活工作簿 ()
_启动窗口.Excel工作簿1.打开 (_启动窗口.通用对话框1.文件名)
_启动窗口.Excel工作簿1.表格序号 = 1
超级列表框1.报表列 = { }
.计次循环首 (25, 局部_计次) ' 取数组成员数 (局部_导出头)
超级列表框1.插入列 (-1, “”, 80, , , ) ' 局部_导出头 [局部_计次]
.计次循环尾 ()
局部_标志 = “1”
局部_计次 = 1
.判断循环首 (删全部空 (局部_标志) ≠ “”)
处理事件 ()
局部_标志 = “”
.计次循环首 (25, 局部_计次1) ' 取数组成员数 (局部_导出头)
_启动窗口.Excel工作簿1.首单元格 = 字符 (97 + 局部_计次1 - 1) + 到文本 (局部_计次 + 1)
_启动窗口.Excel工作簿1.尾单元格 = 字符 (97 + 局部_计次1 - 1) + 到文本 (局部_计次 + 1)
局部_标志 = 局部_标志 + _启动窗口.Excel工作簿1.内容
.如果真 (删全部空 (局部_标志) ≠ “”)
.如果真 (局部_计次1 = 1)
局部_索引 = 超级列表框1.插入表项 (, , , , , )
.如果真结束
超级列表框1.置标题 (局部_索引, 局部_计次1 - 1, _启动窗口.Excel工作簿1.内容)
.如果真结束
.计次循环尾 ()
局部_计次 = 局部_计次 + 1
.判断循环尾 ()
_启动窗口.Excel工作簿1.保存 (_启动窗口.通用对话框1.文件名)
_启动窗口.Excel工作簿1.关闭 ()
_启动窗口.Excel工作簿1.释放 ()
_启动窗口.Excel程序1.退出 ()
_启动窗口.Excel程序1.释放 ()
_启动窗口.Excel程序1.退出 ()
_启动窗口.Excel程序1.释放 ()
终止进程 (“Excel.exe”)
追问
这个,好像是常规的读取方式,我是想读取一些特殊的符号,比如德语里面的一些特殊字母,如果是文本读入的话,易语言本身不支持就会把他变成疑问号“?”,所以想看看在这之前转成字节集,看看再转码能不能显示出来,谢谢你的回答,想继续问下能不能有读取字节集的方式读取
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询