用vbs:第一次程序执行时,先打开a.xls,再打开b.xls。第n次执行时,不关...

发布网友发布时间：2024-05-29 09:01

共1个回答

热心网友时间：2024-07-16 01:28

Dim patch,objExcelApp
Set objExcelApp = Getobject(, "Excel.Application")
patch= "D:\work\b2.xls"
’在此添加一句，将book2，也就是你打开D:\work\b.xls时，将它赋值给变量： book2=objExcelApp.open("D:\work\b.xls")
　　　　 book2.Active()'激活
objExcelApp.ActiveWorkbook.SaveAs patch
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp= Nothing
张志晨：或者
book2.SaveAs patch

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com