保存宏添加另一个工作簿

Question

我有一段修改过的代码，可以将宏保存到指定的文件夹中。 效果很好，但是完成后会打开空白工作簿。 我不希望那样发生。 我知道它必须采取以下措施

workbooks.add

但是由于必须设置变量，有没有办法解决？ 我对此很陌生，我只是不想搞砸哈哈。 任何帮助，将不胜感激。 提前致谢

无论如何，这是一段代码

    Set wb = Workbooks.Add
    Application.DisplayAlerts = False
    ThisWorkbook.Activate
    wb.Activate
    If IsFileOpen("\\showdog\service\Service_job_PO\" & UserInput) Then
    Workbooks(UserInput).Close SaveChanges:=False
    wb.SaveAs "\\showdog\service\Service_job_PO\" & UserInput    
    Else
    wb.SaveAs "\\showdog\service\Service_job_PO\" & UserInput 
    Application.DisplayAlerts = True
    End If

Answer 1

您的代码正在创建一个新工作簿并为该工作簿设置一个变量：

Set wb = Workbooks.Add

然后，它激活当前工作簿，将其置于前台：

ThisWorkbook.Activate

然后，由于某种原因，立即将新的空白工作簿放在首位和居中：

wb.Activate

然后检查是否打开了某些文件。 如果是，则将其关闭（由于我们不知道UserInput是什么，因此不知道这是什么。无论如何，它将关闭该文件，然后将新的空白工作簿保存在其顶部。仅保留空白工作簿。

那是你想要的行为吗？ 如果要关闭此新保存的空白工作簿，则只需...

wb.close 

...在这一切的最后。 但是，老实说，整个事情似乎有些奇怪。