请问大家WINCC用户归档导出来的数据怎么修改成EXECL格式的文件?

请问大家WINCC用户归档导出来的数据怎么修改成EXECL格式的文件?能把分号替换吗?然后和EXECL一样用单元格显示出来,谢谢!

最佳答案

Dim UA,col,row,rows
Dim xlapp,objsheet
Dim i,j,k,m,n,filename
Set UA=ScreenItems("UA")
Set rows=UA.GetRowCollection
m=rows.Count
n=UA.ColumnCount
If m>1 Then ''如果用户归档控件有记录
   Set xlapp=CreateObject("Excel.Application")
   xlapp.visible=False
   xlapp.workbooks.add
   Set objsheet=xlapp.worksheets(1)
   For k=1 To n
     ua.ColumnIndex=k-1
     objsheet.cells(3,k)=ua.ColumnCaption ''字段名称
   Next
   objsheet.cells(1,1)="生产报表"
   For i=1 To m
       For j= 1 To n
           objsheet.cells(i+3,j)=ua.GetRow(i).celltext(j)
       Next
   Next
''以下代码处理日期时间数据格式以及表格边框线、标题合并单元格等排版
   objsheet.range("a1:p1").mergecells=True
   objsheet.range("b2:p2").mergecells=True
   objsheet.range("a1").ColumnWidth =11 ''列宽
   objsheet.range("b1").ColumnWidth =8
   objsheet.range("c1").ColumnWidth =8
   objsheet.range("d1").ColumnWidth =8 
   objsheet.range("e1").ColumnWidth =8 
   objsheet.range("f1").ColumnWidth =11 
   objsheet.range("g1").ColumnWidth =8 
   objsheet.range("h1").ColumnWidth =8 
   objsheet.range("i1").ColumnWidth =11 
   objsheet.range("j1").ColumnWidth =8
   objsheet.range("k1").ColumnWidth =8
   objsheet.range("l1").ColumnWidth =8
   objsheet.range("m1").ColumnWidth =11 
   objsheet.range("n1").ColumnWidth =11
   objsheet.range("o1").ColumnWidth =11 
   objsheet.range("p1").ColumnWidth =11
   
  Dim myDy
  Dim Seldate
   Seldate=HMIRuntime.Tags("myDate").Read
   myDy=CStr(Year(Seldate)) +"-" +CStr(Month(Seldate))+"-"+CStr(Day(Seldate))
  
   objsheet.cells(2,1)="报表日期:"
   ''objsheet.cells(2,2)=Year(Now) & "年" & Month(Now) & "月" & Day(Now) & "日"
   objsheet.cells(2,2)=myDy
   objsheet.cells(1,1).HorizontalAlignment = 3''居中
   objsheet.cells(2,2).HorizontalAlignment = 2
   
   objsheet.range("a1:p" & CStr(3+m)).borders(1).linestyle=9
   objsheet.range("a1:p" & CStr(3+m)).borders(1).weight=2
   objsheet.range("a1:p" & CStr(3+m)).borders(2).linestyle=9
   objsheet.range("a1:p" & CStr(3+m)).borders(2).weight=2
   objsheet.range("a1:p" & CStr(3+m)).borders(3).linestyle=9
   objsheet.range("a1:p" & CStr(3+m)).borders(3).weight=2
   objsheet.range("a1:p" & CStr(3+m)).borders(4).linestyle=9
   objsheet.range("a1:p" & CStr(3+m)).borders(4).weight=2
   
 

   
 ''保存文件
   filename= "c:\" & mydy & " 报表 " & Year(Now) & "-" & Month(Now) & "-" & Day(Now) & " " & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) & " 生成.xlsx"
   xlapp.Activeworkbook.saveas (filename)
   xlapp.workbooks.close
   xlapp.quit
   Msgbox "成功导出到C:\"
Else
   Msgbox "用户归档没有记录"
End If

提问者对于答案的评价:
谢谢!

原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc315088.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2020年11月1日 下午4:04
下一篇 2020年11月1日 下午4:04

相关推荐

  • 请教大家WINCC和WINCCFLEXIBLE做上位机监控的区别?

    请问大家如果用WINCC和WINCCFLEXIBLE做上位机监控有哪些区别?如果是PC RUNTIME呢?还有用PC/PG和PC STATION做上位机有什么区…

    SIMATIC WinCC 2017年6月24日
  • wincc界面不能显示中文汉字

    我的wincc界面不能显示中文汉字是怎么回事,我的语言选择是中文啊? 最佳答案 组态开发状态下: 打开画面,在图形编辑器的菜单中: 视图-语言,选择Chines…

    SIMATIC WinCC 2019年6月11日
  • 初学SIMATIC WinCC应该看什么资料?

    请问,我初次接触SIMATIC WinCC ,应该看些什么资料来学习它,请推荐,谢谢! 最佳答案 《深入浅出西门子WinCC V6》(第一版+第二版)…

    SIMATIC WinCC 2019年6月11日
  • WinCC6.0运行在2003系统下可以么?

    WinCC6.0运行在Windows 2003 Server 版本下可以么?运行在什么系统下最稳定? 问题补充:我的服务器需要带20台客户机,服务器上…

    SIMATIC WinCC 2019年6月11日
  • 画面无法切换

    PCS7V7.0,过段时间,画面就切换不了,数据有变化,电脑也没死机,项目重启后正常,这是什么原因?有两个站,都一样的现象 问题补充:谢谢 剑忠 的回答。不过,…

    SIMATIC WinCC 2019年6月11日
  • M277屏画面跳转延时一段时间在跳到另一个画面

    画面延时自动跳转另一个画面,怎样实现呢? 问题补充:是MP277触摸屏,型号之前打错了 最佳答案 参考:http://www.ad.siemens.com.cn/service/a…

    SIMATIC WinCC 2019年6月11日
  • STEP7 消息组态中的消息类别如何理解?

    STEP7的FB块中组态了向WINCC传送消息文本的消息组态,但是本人对消息类别理解不深,网上也找不到资料,请教各位大神,望赐教!如何理解报警-高、报警-低?我的理解是:这应该是对…

    2018年12月5日
  • 报表变量的小数点

    报表变量的小数点如何控制呀,我在报表里写了一个变量,他的值是0.073,可是打印结果却是7.3,我估计是成了科学计数法了。如何让他显示正确值呢 最佳答案 报表里的变量默认是字符串格…

    SIMATIC WinCC 2019年6月11日
  • WinCC模拟量报警

    我需要监控192个模拟量的上下限报警。请问有什么批量的方法把报警弄好?一个一个输入变量太麻烦了 最佳答案 先做一个模拟量的报警,导出后在Excel中完成所有的报警后再导入。 提问者…

    SIMATIC WinCC 2017年5月29日
  • wincc 输入域的数据存入excel

    两个输入域  一个输入时间  一个输入数值   怎么写脚本把这两个变量存入excel  &…

    SIMATIC WinCC 2019年6月11日