【求助】EXCEL表格操作,求助,来个大牛.
如图：英文差呀，对象要一个个去翻译，然后再研究如何使用。
有没有哪个大牛，有相关的源码，求一份简单的，给个写法。
主要操作:
1,获取A表格的指定单元格内容,显示到指定编辑框 // 用以确认数据
2.将编辑框的内容写入B表格,指定单元格 //最终效果
例子:
.版本 2
.子程序 Excel表格读写数据, 文本型
单元格对象.读对象型属性 (“Range”, “A1”).读文本属性 (“Value”, )
单元格对象.读对象型属性 (“Range”, “A1”).写属性 (“Value”, 文本)
Excel对象操作[单元格合并、冻结行、保存为指定格式…等等]|http://bbs.eyuyan.com/read.php?tid=344971&displayMode=1&u=
希望对你有用 冯古屋 发表于 2017-1-2 21:30
Excel对象操作[单元格合并、冻结行、保存为指定格式…等等]|http://bbs.eyuyan.com/read.php?tid=344971&di ...
{:4_99:}虽然，用不到，谢谢了。
RE: 【求助】EXCEL表格操作,【已解决】
.版本 2.支持库 iext
.支持库 spec
.支持库 edroptarget
.程序集 窗口程序集_操作_窗口
.程序集变量 a, EXCEL类
.子程序 读取_EXCEL表
.参数 文件地址, 文本型
a.创建 ()
.如果真 (a.打开EXCEL (文件地址, ) ＝ 假)
信息框 (“文件错误,请重新拖放文件!”, #错误图标, , )
返回 ()
.如果真结束
编辑框_姓名.内容 ＝ a.读单元格文本 (“B3”)
编辑框_性别.内容 ＝ a.读单元格文本 (“E3”)
编辑框_学历.内容 ＝ a.读单元格文本 (“C4”)
编辑框_电话.内容 ＝ a.读单元格文本 (“H6”)
编辑框_工作简历.内容 ＝ a.读单元格文本 (“B15”)
编辑框_单位地址.内容 ＝ a.读单元格文本 (“C7”)
编辑框_考试地点.内容 ＝ a.读单元格文本 (“I13”)
编辑框_邮政编码.内容 ＝ a.读单元格文本 (“I7”)
编辑框_身份证号码.内容 ＝ a.读单元格文本 (“C5”)
a.关闭工作薄 ()
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 参加工作时间, 文本型
标签_文件路径.标题 ＝ 接收到的文件路径
延迟 (200)
读取_EXCEL表 (标签_文件路径.标题)
.如果真 (取文本左边 (编辑框_电话.内容, 1) ≠ “1”)
编辑框_电话.内容 ＝ “手机号码NG！！”
.如果真结束
编辑框_站点.内容 ＝ 文本_取出中间文本 (标签_文件路径.标题, “2017年考证资料\”, “\”, , 假)
.如果真 (信息框 (“是否进行记录下一个？”, 4 ＋ 32, , ) ＝ #是钮)
_按钮_写入文件_被单击 ()
.如果真结束
.子程序 _操作_窗口_创建完毕
Skin.加载2 (51)
.如果真 (拖放对象1.注册拖放控件 (操作_窗口.取窗口句柄 ()) ＝ 假)
信息框 (“启动失败,请重新启动!”, #错误图标, , )
结束 ()
.如果真结束
.子程序 写入_EXCEL表
.局部变量 写入位置, 文本型
.局部变量 参加工作时间, 文本型
.局部变量 鉴定工种, 文本型
.局部变量 C, 文本型
.局部变量 D, 整数型
C ＝ 取运行目录 () ＋ “\模板1.xls”
a.打开EXCEL (C, )
' ======================================================================
参加工作时间 ＝ 取文本左边 (编辑框_工作简历.内容, 10)
参加工作时间 ＝ 参加工作时间 ＋ 文本_取随机范围数字 (1, 25, ) ＋ “日”
到时间 (参加工作时间)
参加工作时间 ＝ 时间_格式化 (到时间 (参加工作时间), “yyyyMMdd”)
调试输出 (参加工作时间)
' ======================================================================
.如果真 (编辑框_性别.内容 ＝ “男”)
鉴定工种 ＝ “快递业务员（收派）”
.如果真结束
.如果真 (编辑框_性别.内容 ＝ “女”)
鉴定工种 ＝ “快递业务员（处理）”
.如果真结束
D ＝ 到整数 (删首尾空 (编辑框_计数.内容))
' =====================================================================
写入位置 ＝ 到文本 (D ＋ 1)' 写入列数
' =====================================================================
a.置单元格文本 (“A” ＋ 写入位置, 编辑框_姓名.内容)
a.置单元格文本 (“B” ＋ 写入位置, 编辑框_性别.内容)
a.置单元格文本 (“C” ＋ 写入位置, 编辑框_身份证号码.内容)
a.置单元格文本 (“D” ＋ 写入位置, 编辑框_电话.内容)
a.置单元格文本 (“F” ＋ 写入位置, 参加工作时间)
a.置单元格文本 (“E” ＋ 写入位置, 编辑框_学历.内容)
a.置单元格文本 (“L” ＋ 写入位置, 编辑框_工作简历.内容)
a.置单元格文本 (“N” ＋ 写入位置, 编辑框_站点.内容)
a.置单元格文本 (“I” ＋ 写入位置, 鉴定工种)
a.保存 ()
a.关闭工作薄 ()
' ======================================================================
编辑框_计数.内容 ＝ 到文本 (到整数 (编辑框_计数.内容) ＋ 1)' 写入行数
.子程序 _按钮_写入文件_被单击
写入_EXCEL表 ()
页:
[1]