vbs将历史数据导入excel后如何打开excel
郑志武
发布于2012-12-10 23:03
337
0
标签：
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.saveaspatch
objexcelapp.workbooks.close
objexcelapp.quit
setobjexcelapp=nothing
msgbox"成功生成数据文件!"
1.运行时点击按钮，实现了将历史数据导入excel，不过怎么实现保存的excel自动打开？
2.怎么实现自动打开，并且处于打印预览状态。
佳答案
dimfso,myfile
setfso=createobject("scripting.filesystemobject")
setmyfile=fso.getfile("d:\data_compare.xlsx")
dimobjexcelapp
setobjexcelapp=createobject("excel.application")
'objexcelapp.visible=true
objexcelapp.workbooks.openmyfile
'以上是写在按钮中为了打开d盘excel文件
你要打印或者打印预览直接就在windows中用excel打开就行了，不需要在wincc打开了。
