filename=CStr(Year(Now))&CStr(Month(Now))&CStr(Day(Now))&CStr(Hour(Now))+CStr(Minute(Now))&CStr(Second(Now))
patch= "d:\"&filename&"demo.xls"
objExcelApp.ActiveWorkbook.SaveAs patch
objExcelApp.Workbooks.close
objExcelApp.Quit
Set objExcelApp= Nothing
MsgBox "成功生成数据文件!"
1.运行时点击按钮，实现了将历史数据导入excel，不过怎么实现保存的excel自动打开？
2.怎么实现自动打开，并且处于打印预览状态。
最佳答案
Dim fso,myfile
Set fso=CreateObject("scripting.filesystemobject")
Set myfile=fso.GetFile("d:\\data_compare.xlsx")
Dim objexcelapp
Set objexcelapp=CreateObject("excel.application")
''objexcelapp.visible=true
objexcelapp.workbooks.open myfile
''以上是写在按钮中为了打开D盘excel文件
你要打印或者打印预览直接就在windows中用excel打开就行了，不需要在wincc打开了。
提问者对于答案的评价：
谢谢了
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc255282.html
微信扫一扫 
支付宝扫一扫 