保存宏会添加另一个工作簿。

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 

这一切都结束了。但是，老实说，整件事似乎有点奇怪。