excel报表为什么不能另存为日期结尾的文件

Sub X6309X94AE5X0000P_X6309X94AE3X0000X8BDD_X6309X94AE3X0000X653E_X6309X94AE3X0000P_X6309X94AE1X0000X60C5_X6309X94AE1X0000X8BDD_X6309X94AE1X0000Y_OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)                      
Dim objExcelApp
Dim bb,cc
bb=Now
'MsgBox CStr(bb)
Set objExcelApp = CreateObject("Excel.Application")
 objExcelApp.Visible = 1
 objExcelApp.Workbooks.Open "E:\temp\ee\test.xls"
 objExcelApp.Cells(1,1).Value = HMIRuntime.Tags("aa1").read
 HMIRuntime.Screens("excel").ScreenItems("输入输出域1").OutpUTVALUe=objExcelApp.Cells(1,1).Value
 cc = "E:\temp\ee\test-" + Mid(CStr(bb), 1, 3)+ Mid(CStr(bb), 4, 2)+ Mid(CStr(bb), 6, 2)+ Mid(CStr(bb), 8, 4)+ Mid(CStr(bb), 12, 4)+ Mid(CStr(bb), 16, 4) + Mid(CStr(bb), 18, 4)+ ".xls"
'MsgBox cc
 objExcelApp.activeworkbook.save
 objExcelApp.activeworkbook.Saveas cc
 objExcelApp.Workbooks.Close 
 objExcelApp.Quit
End Sub
请问objExcelApp.activeworkbook.Saveas cc为什么不能另存为日期结尾的文件 ?谢谢!

最佳答案

Dim objExcelAPP,xlbook,xlsname
 xlsname="D:\生产记录\报表.xls"                      ''''Excel文档路径
   Set objExcelAPP=GetObject(,"Excel.Application") ''''获取当前运行的Excel应用程序对象
   objExcelAPP.Visible=True
xlsname.SaveAs "D:\生产记录\" & Date & "_" & Hour(Now) & "_" & Minute(Now) & "_" & Second(Now) & ".xls"

提问者对于答案的评价:
用&,不用+;谢谢

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

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

相关推荐

  • wincc6.0图形编辑器

    每次打开wincc6.0图形编辑器时会提示unknown vba error:error code =0x800A0030;请问这是啥问题?…

    SIMATIC WinCC 2019年6月11日
  • 如何逐步打开三个以上的窗口?

    WinCC组态:如何逐步打开三个以上的窗口?并且每个窗口的“启动”和“停止”按钮都能进行启动和停止电机的操作。 问题补充:请尽量详细。 最佳答案 步骤如下:1:打开WINCCExp…

    2017年11月19日
  • wincc多用户项目,实现不同客户端各自报警

    wincc多用户项目,实现不同客户端各自报警 问题补充:我这边是一个服务器,服务器创建多用户系统,下端多个客户端,客户端不组态,直接访问服务器生成的文件包。下端的多个客户端有不同的…

    SIMATIC WinCC 2020年11月1日
  • wincc不能加声报警

    WINCC加声音报警的第一步是点击Horn,但是在弹出的对话框的Alarm栏下没有下拉式菜单出现,只有删除行和新增行,向下就没法进行了。请问原因何在? 最佳答案 LZ可以实现的,具…

    SIMATIC WinCC 2019年6月11日
  • 自控配置

    1.一套自控系统,采用IPC810研华工控机,上面能不能安装WINCC 7.0 SP3软件?2.该软件是不是只能安装在WINDOWS 64位系统呢?如…

    2017年11月4日
  • wincc图形编辑器里有很多带@的是什么东东?

    如图 图片说明:    最佳答案 PCS7系统自动生成的东西,不要删除。你需要学习PCS7系统才能更好的编辑@的系统画面。 提问者对于答案的评价:

    2017年6月11日
  • wincc vbs里面没有FORMAT函数啊?

    wincc vbs里面没有FORMAT函数啊?只有一个FORMATDATETIME(日期,格式),如果格式是“2011-01-01 00:00:00”应该选择哪…

    2019年6月11日
  • 兼容KB319740

    大家好,我的电脑装的是专业版SP3系统,通过改注册表已经降为SP2系统,在装KB319740补丁时提示我的软件(KB319740)和系统不兼容,该如何解决,我实在不想换系统。我要装…

    SIMATIC WinCC 2019年6月10日
  • WINCC版本SP3疑问

    其中的  SP3 是不是 对应只能安装在 操作系统  service  pack&nbsp…

    SIMATIC WinCC 2019年6月11日
  • 触摸屏通讯影响问题

    触摸屏KTP700旁边有一块强力磁铁,请问会对触摸屏的通讯有影响吗 钻石用户推荐最佳答案 所有的强磁都会对电子设备造成影响,但是也不能说完全损坏,你这个磁铁应该是设备上必备品,你可…

    SIMATIC WinCC 2021年7月5日