易语言编辑框内容写到已有excel表格的指定单元格内
ps本人是个菜鸟中的菜鸟,请各位高手说的细一点,我在这先谢过了!!我做了一个excel表格,想用易语言写个excel填表打印软件。但编辑框的内容如何才能填进我事先打好的e...
ps本人是个菜鸟中的菜鸟,请各位高手说的细一点,我在这先谢过了!!
我做了一个excel表格,想用易语言写个excel填表打印软件。但编辑框的内容如何才能填进我事先打好的excel表格的指定单元格里呀!还请各位大神及编程帝们指点呀!有劳各位大神写细点我在这里先谢过了!!! 展开
我做了一个excel表格,想用易语言写个excel填表打印软件。但编辑框的内容如何才能填进我事先打好的excel表格的指定单元格里呀!还请各位大神及编程帝们指点呀!有劳各位大神写细点我在这里先谢过了!!! 展开
1个回答
展开全部
.版本 2
.支持库 eExcel2000
.支持库 eGrid
.子程序 _按钮2_被单击, , , 导出表格
.局部变量 i, 整数型
.局部变量 y, 整数型
.局部变量 文本, 文本型
.局部变量 文本1, 字节集
.局部变量 ii, 整数型
.局部变量 文本3, 文本型
.局部变量 整数, 字节型
.如果真 (Excel程序1.创建 () = 假)
信息框 (“Excel 程序创建失败!可能没有安装Excel2000”, 0, )
返回 ()
.如果真结束
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.表格序号 = 1
Excel程序1.标题 = “”
Excel程序1.显示 = 真
y = 高级表格1.行数
.计次循环首 (y, i)
.计次循环首 (高级表格1.列数, ii)
文本1 = 取空白字节集 (1)
.如果 (ii > 26)
整数 = 96 + ii - 26
文本1 = 到字节集 (整数)
文本3 = “a” + 到文本 (文本1)
.否则
整数 = 96 + ii
文本1 = 到字节集 (整数)
文本3 = 到文本 (文本1) + 到文本 (i)
.如果结束
文本 = 高级表格1.取数据 (i - 1, ii - 1)
设置表格内容 (Excel工作簿1, 文本3, “”, 文本)
.计次循环尾 ()
.计次循环尾 ()
Excel工作簿1.释放 ()
Excel程序1.释放 ()
.子程序 设置表格内容
.参数 工作表, Excel工作簿
.参数 首单元, 文本型
.参数 尾单元, 文本型
.参数 内容, 文本型
.如果 (尾单元 = “”)
尾单元 = 首单元
.否则
.如果结束
工作表.首单元格 = 首单元
工作表.尾单元格 = 尾单元
工作表.内容 = 内容
.支持库 eExcel2000
.支持库 eGrid
.子程序 _按钮2_被单击, , , 导出表格
.局部变量 i, 整数型
.局部变量 y, 整数型
.局部变量 文本, 文本型
.局部变量 文本1, 字节集
.局部变量 ii, 整数型
.局部变量 文本3, 文本型
.局部变量 整数, 字节型
.如果真 (Excel程序1.创建 () = 假)
信息框 (“Excel 程序创建失败!可能没有安装Excel2000”, 0, )
返回 ()
.如果真结束
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.表格序号 = 1
Excel程序1.标题 = “”
Excel程序1.显示 = 真
y = 高级表格1.行数
.计次循环首 (y, i)
.计次循环首 (高级表格1.列数, ii)
文本1 = 取空白字节集 (1)
.如果 (ii > 26)
整数 = 96 + ii - 26
文本1 = 到字节集 (整数)
文本3 = “a” + 到文本 (文本1)
.否则
整数 = 96 + ii
文本1 = 到字节集 (整数)
文本3 = 到文本 (文本1) + 到文本 (i)
.如果结束
文本 = 高级表格1.取数据 (i - 1, ii - 1)
设置表格内容 (Excel工作簿1, 文本3, “”, 文本)
.计次循环尾 ()
.计次循环尾 ()
Excel工作簿1.释放 ()
Excel程序1.释放 ()
.子程序 设置表格内容
.参数 工作表, Excel工作簿
.参数 首单元, 文本型
.参数 尾单元, 文本型
.参数 内容, 文本型
.如果 (尾单元 = “”)
尾单元 = 首单元
.否则
.如果结束
工作表.首单元格 = 首单元
工作表.尾单元格 = 尾单元
工作表.内容 = 内容
追问
大侠,有些看不懂呀,还有简单点的吗
追答
这就是最简单的了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |