【求助】EXCEL表格操作,求助,来个大牛.

艾鱼

如图：
英文差呀，对象要一个个去翻译，然后再研究如何使用。
有没有哪个大牛，有相关的源码，求一份简单的，给个写法。

主要操作:
1,获取A表格的指定单元格内容,显示到指定编辑框     // 用以确认数据
2.将编辑框的内容写入B表格,指定单元格                  //  最终效果

例子:

  

子程序名	返回值类型	公开	备 注
Excel表格读写数据	文本型

单元格对象.读对象型属性 (“Range”, “A1”).读文本属性 (“Value”, )
单元格对象.读对象型属性 (“Range”, “A1”).写属性 (“Value”, 文本)

.版本 2<br /> <br /> .子程序 Excel表格读写数据, 文本型<br /> <br /> 单元格对象.读对象型属性 (“Range”, “A1”).读文本属性 (“Value”, )<br /> 单元格对象.读对象型属性 (“Range”, “A1”).写属性 (“Value”, 文本)<br />

冯古屋

Excel对象操作[单元格合并、冻结行、保存为指定格式…等等]|http://bbs.eyuyan.com/read.php?t ... isplayMode=1&u=
希望对你有用

艾鱼

冯古屋 发表于 2017-1-2 21:30
Excel对象操作[单元格合并、冻结行、保存为指定格式…等等]|http://bbs.eyuyan.com/read.php?tid=344971&di ...

虽然，用不到，谢谢了。

艾鱼

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_操作_窗口
变量名	类 型	数组	备 注
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表 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库
edroptarget	拖放支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> .支持库 edroptarget<br /> <br /> .程序集 窗口程序集_操作_窗口<br /> .程序集变量 a, EXCEL类<br /> <br /> .子程序 读取_EXCEL表<br /> .参数 文件地址, 文本型<br /> <br /> a.创建 ()<br /> .如果真 (a.打开EXCEL (文件地址, ) ＝ 假)<br />     信息框 (“文件错误,请重新拖放文件!”, #错误图标, , )<br />     返回 ()<br /> .如果真结束<br /> 编辑框_姓名.内容 ＝ a.读单元格文本 (“B3”)<br /> 编辑框_性别.内容 ＝ a.读单元格文本 (“E3”)<br /> 编辑框_学历.内容 ＝ a.读单元格文本 (“C4”)<br /> 编辑框_电话.内容 ＝ a.读单元格文本 (“H6”)<br /> 编辑框_工作简历.内容 ＝ a.读单元格文本 (“B15”)<br /> 编辑框_单位地址.内容 ＝ a.读单元格文本 (“C7”)<br /> 编辑框_考试地点.内容 ＝ a.读单元格文本 (“I13”)<br /> 编辑框_邮政编码.内容 ＝ a.读单元格文本 (“I7”)<br /> 编辑框_身份证号码.内容 ＝ a.读单元格文本 (“C5”)<br /> a.关闭工作薄 ()<br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 参加工作时间, 文本型<br /> <br /> 标签_文件路径.标题 ＝ 接收到的文件路径<br /> 延迟 (200)<br /> 读取_EXCEL表 (标签_文件路径.标题)<br /> <br /> .如果真 (取文本左边 (编辑框_电话.内容, 1) ≠ “1”)<br />     编辑框_电话.内容 ＝ “手机号码NG！！”<br /> .如果真结束<br /> 编辑框_站点.内容 ＝ 文本_取出中间文本 (标签_文件路径.标题, “2017年考证资料\”, “\”, , 假)<br /> .如果真 (信息框 (“是否进行记录下一个？”, 4 ＋ 32, , ) ＝ #是钮)<br />     _按钮_写入文件_被单击 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 _操作_窗口_创建完毕<br /> <br /> Skin.加载2 (51)<br /> .如果真 (拖放对象1.注册拖放控件 (操作_窗口.取窗口句柄 ()) ＝ 假)<br />     信息框 (“启动失败,请重新启动!”, #错误图标, , )<br />     结束 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 写入_EXCEL表<br /> .局部变量 写入位置, 文本型<br /> .局部变量 参加工作时间, 文本型<br /> .局部变量 鉴定工种, 文本型<br /> .局部变量 C, 文本型<br /> .局部变量 D, 整数型<br /> <br /> C ＝ 取运行目录 () ＋ “\模板1.xls”<br /> a.打开EXCEL (C, )<br /> ' ======================================================================<br /> 参加工作时间 ＝ 取文本左边 (编辑框_工作简历.内容, 10)<br /> 参加工作时间 ＝ 参加工作时间 ＋ 文本_取随机范围数字 (1, 25, ) ＋ “日”<br /> 到时间 (参加工作时间)<br /> 参加工作时间 ＝ 时间_格式化 (到时间 (参加工作时间), “yyyyMMdd”)<br /> 调试输出 (参加工作时间)<br /> ' ======================================================================<br /> <br /> .如果真 (编辑框_性别.内容 ＝ “男”)<br />     鉴定工种 ＝ “快递业务员（收派）”<br /> .如果真结束<br /> .如果真 (编辑框_性别.内容 ＝ “女”)<br />     鉴定工种 ＝ “快递业务员（处理）”<br /> .如果真结束<br /> <br /> D ＝ 到整数 (删首尾空 (编辑框_计数.内容))<br /> ' =====================================================================<br /> 写入位置 ＝ 到文本 (D ＋ 1)  ' 写入列数<br /> ' =====================================================================<br /> a.置单元格文本 (“A” ＋ 写入位置, 编辑框_姓名.内容)<br /> a.置单元格文本 (“B” ＋ 写入位置, 编辑框_性别.内容)<br /> a.置单元格文本 (“C” ＋ 写入位置, 编辑框_身份证号码.内容)<br /> a.置单元格文本 (“D” ＋ 写入位置, 编辑框_电话.内容)<br /> a.置单元格文本 (“F” ＋ 写入位置, 参加工作时间)<br /> a.置单元格文本 (“E” ＋ 写入位置, 编辑框_学历.内容)<br /> a.置单元格文本 (“L” ＋ 写入位置, 编辑框_工作简历.内容)<br /> a.置单元格文本 (“N” ＋ 写入位置, 编辑框_站点.内容)<br /> a.置单元格文本 (“I” ＋ 写入位置, 鉴定工种)<br /> a.保存 ()<br /> a.关闭工作薄 ()<br /> ' ======================================================================<br /> 编辑框_计数.内容 ＝ 到文本 (到整数 (编辑框_计数.内容) ＋ 1)  ' 写入行数<br /> <br /> .子程序 _按钮_写入文件_被单击<br /> <br /> 写入_EXCEL表 ()<br />