信息 = Com创建Excel对象(ExcelApp)
try
工作簿 = Com创建工作簿(ExcelApp)
Com设置单元格内容(工作簿, 1, 1, 页签,'渠道名称')
Com设置单元格内容(工作簿, 1, 2, 页签,'渠道范畴')
Com设置单元格内容(工作簿, 1, 3, 页签,'渠道类型')
Com设置单元格内容(工作簿, 1, 4, 页签,'主渠道代码')
Com设置单元格内容(工作簿, 1, 5, 页签,'渠道开发人员')
Com设置单元格内容(工作簿, 1, 6, 页签,'开发人员所属部门')
Com设置单元格内容(工作簿, 1, 7, 页签,'佣金费率')
Com设置单元格内容(工作簿, 1, 8, 页签,'录入人员')
Com设置单元格内容(工作簿, 1, 9, 页签,'录入人员所属部门')
Com设置单元格内容(工作簿, 1, 10, 页签,'操作状态')
Com设置单元格内容(工作簿, 1, 11, 页签,'审批状态')
Com设置单元格内容(工作簿, 1, 12, 页签,'审批意见')
Com设置单元格内容(工作簿, 1, 13, 页签,'合作起止日期')
Com设置单元格内容(工作簿, 1, 14, 页签,'合作状态')
Com设置单元格内容(工作簿, 1, 15, 页签,'营业执照代码')
Com设置单元格内容(工作簿, 1, 16, 页签,'网址/微信或APP名称')
Com设置单元格内容(工作簿, 1, 17, 页签,'渠道建设时间')
Com设置单元格内容(工作簿, 1, 18, 页签,'备注')
错误信息 = Com保存工作簿(工作簿, 文件名)
finally
Com关闭所有工作簿(ExcelApp)
Com释放对象(ExcelApp)
end
trace('初始化表头成功')
新建EXCEL
最新推荐文章于 2023-07-23 20:25:31 发布