Dim wb As Workbook
Set wb = Workbooks.Open("E:\系统导入\工作底稿.xls")
wb.Sheets("底稿").Copy
wb.Close
ActiveWorkbook.Sheets("底稿").Range("A3") = "AAA"
ActiveWorkbook.SaveAs ("E:\系统导入\" & Format(Date, "mm月dd日") & "-" & Format(Time, "hhmmss").xls)
代码如上所示,我先打开工作簿:工作底稿是没问题的
然后复制一个sheet“底稿”也是没问题的
wb.close是关闭工作底稿也是没问题的
甚至在新建的“工作簿1”中,A3单元格录入AAA都是可以的
但我ActiveWorkbook.SaveAs另存为时,就弹出“要求对象”
活动窗口确实是未保存的“工作簿1”,不知道为什么有这个提示。。。。求大大们解答