求助 excel表格读写

baby杰杰

超自然 发表于 2014-8-19 20:05
写那么详细的帮助文档都看不懂??!!!!!
无语中..........

看帮助了 真心看不懂

ltpccj

给我也发一份。谢谢。

sszzsy

给你一个我写的  

空间 damo
//默认空间
变量 姓名2,身份证号3,n,s1
db=com("DBSoft.DBSoft_office")
wj=com("DBSoft.DBSoft_File")


//开始按钮_点击操作

功能 开始_点击()
    是否成功=辅助.是否注册("DBSoft.DBSoft_office")  
   
    如果(!是否成功)    //如果没有注册
        是否成功=辅助.注册插件("rc:DBSoft.dll",真)
        如果(是否成功)           //判断是否成功
            辅助.消息框("插件注册成功，重启程序")//不成功 就开始注册大漠
            辅助.退出()
        否则
            辅助.消息框("插件注册失败")
        如果结束
    如果结束
    //线程句柄=线程.开启("damo.取值计算","")
   
   
    n=编辑框.获得文本("编辑框33")  //获取起时行数值
    文件路径=wj.GetSystemFolder(3)&"123.xls"  //获取系统桌面123.xls的路径
   
    打开表格=db.OpenExcel(文件路径,"Sheet1")
    如果(打开表格!=1)   //判断文件存在
        辅助.消息框("打开表格失败","信息")
        辅助.退出()
    如果结束
   
    读取内容=db.ReadOpenExcel(文件路径,"sheet1",n,2) // 判断是否有空行
   
    //辅助.消息框(读取内容)                            //测试语句
    控件.有效("开始",假)
    控件.有效("退出",真)
   
    辅助.等待(5000)
   
    循环(读取内容!="")           
        
        姓名2=db.ReadOpenExcel(文件路径,"sheet1",n,2)//获取主场队名
        身份证号3=db.ReadOpenExcel(文件路径,"sheet1",n,3)//获取比赛比分
        标签.设置文本("标签10",姓名2)
        标签.设置文本("标签11",身份证号3)  
       s1=s1+1  //累计读取行数
       n=n+1
       循环结束
       编辑框.设置文本("编辑框2",s1&"行") //输出S1结果
     控件.有效("开始",真)
    db.CloseExcel(文件路径,0) //关闭excel (按照所给函数写的 但是不怎么好使)
功能结束
功能 退出_点击()
   
    db.CloseExcel("123.xls",0)
    辅助.等待(200)
    辅助.退出()
   
功能结束
空间结束

sszzsy

需要提前注册 大兵的 插件  然后把 大兵的两个文件 放在 资源文件夹下

baby杰杰

我看了。有很多没有的功能！有表格配置读写？

tst

q273814 发表于 2014-8-19 18:56
管理员何在 图片上这段代码 发出来被TC防火墙拦截说我 可能非法攻击

系统需要安装excel才可以用吗

qiufeng1163

用了13大神的代码，可以读取了，但是还有个问题，为什么我只能读取 第一行，第一列的数据，读取其他数据为 “”，郁闷！
检查过了，路径和文件没问题，前十行十列都是有数据的，晕