wincc建立的excel文件怎样在文件名后加上月份

我想每个月建立一个excel文件,例如e:\系统+月份.xls,我在wincc里建立了一个内部变量wMonth用于显示月份,怎样才能在名称后面加上这个变量呢?

 Set oWorkBook =objExcelApp.WorkBooks.Add
     oWorkBook.SaveAs "E:\系统.xls"

最佳答案

Dim wMon
 wMon = Right("0"& cstr(HMIRuntime.Tags("wMonth").Read),2)
 Set oWorkBook =objExcelApp.WorkBooks.Add
 oWorkBook.SaveAs "E:\系统" & wMon & ".xls" 
 -------------------------------------------------------------------------------------
 Dim wMon
 wMon = Right("0"& cstr(Month(Now()),2)
 Set oWorkBook =objExcelApp.WorkBooks.Add
 oWorkBook.SaveAs "E:\系统" & wMon & ".xls"

提问者对于答案的评价:
非常感谢

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

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2019年6月11日
下一篇 2019年6月11日

相关推荐