用 大兵
空间 damo
//默认空间
db=com("DBSoft.DBSoft_office")
wj=com("DBSoft.DBSoft_File")
功能 开始_点击()
是否成功=辅助.是否注册("DBSoft.DBSoft_office")
如果(!是否成功) //如果没有注册
是否成功=辅助.注册插件("rc:DBSoft.dll",真)
如果(是否成功) //判断是否成功
辅助.消息框("插件注册成功,重启程序")//不成功 就开始注册大漠
辅助.退出()
否则
辅助.消息框("插件注册失败")
如果结束
如果结束
打开表格=db.OpenExcel(文件路径,"Sheet1")
如果(打开表格!=1) //判断文件存在
辅助.消息框("打开表格失败","信息")
辅助.退出()
如果结束
db.WriteExcel(文件路径,"sheet2",行,列,"内容")
功能结束
空间结束 |