WINCC用VBS操作EXCEL

按钮触发EXCEL的写入和保存

添加1个按钮控件，按钮控件事件中添加VBS动作输入下面的代码就可以按照代码测试：

	Dim objExcelApp,objBook
	'创建excel应用对象
	Set objExcelApp = CreateObject("Excel.Application")
	'添加一个空表格
	Set objBook=objExcelApp.Workbooks.add
	'打开项目目录内的report文件夹内的模板日报表.xlsx,这样可以在模板内把报表格式设置好，后面只用写入数据就可以
	'Set objBook = objExcelApp.Workbooks.Open( HMIRuntime.ActiveProject.Path & "\report\模板日报表.xlsx")
	'让应用显示出来
	objExcelApp.visible=True
	'i表示行 j表示列
	Dim i,j
	'第一行输入数据名称
	For j=1 To 30
			objExcelApp.Cells(1, j)= "题目行"			
	Next
	'从第二行开始往下输输入数据
	For i=2 To 20
		For j=1 To 30
			objExcelApp.Cells(i, j)= i+j			
		Next	
	Next
	'表格保存到项目目录内的report文件夹内
	objBook.SaveAs HMIRuntime.ActiveProject.Path&"\report\"&Year(Now)&Month(Now)&Day(Now)&Hour(Now)&Minute(Now)&Second(Now)&"日报表.xlsx"	
	'excel退出	
	objExcelApp.quit