新建EXCEL

		信息 = 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('初始化表头成功')