我需要一个Excelmacros，它会自动select“Yes”作为popup式窗口，并且已经存在

我已经构build了一个macros，将复制一个工作簿中的所有工作表并将其粘贴到另一个工作簿中。 到目前为止，它工作得很好，但是当macros正在复制和粘贴每张表时，excel会popup一个popup窗口，显示“The name”（在此处插入任何名称），单击Yes以使用该版本或者单击“否”重命名要移动或复制的“（在此处插入任何名称）”的版本。

它为多个具有相同名称的工作簿复制并粘贴到新工作簿的命名项目执行此操作，因此此窗口popup很多（大约30次！）。 是否有一个macros将自动select“是”，所以我不必一直select是一遍又一遍？ 我列出了将所有工作表复制并粘贴到下面的另一个工作簿以供参考的macros。

Sub Copy_Sheets() Dim b1 As Workbook, b2 As Workbook Dim sh As Worksheet Workbooks.Open Filename:="C:\Users\Documents\Test.xlsx" Set b1 = ActiveWorkbook Workbooks.Open Filename:="C:\Users\Experiment.xlsx" Set b2 = ActiveWorkbook For Each sh In b2.Sheets sh.Copy After:=b1.Sheets(b1.Sheets.Count) Next sh End Sub 

Answer 1

你可以插入：

 Application.DisplayAlerts = False 

在复制之前，

 Application.DisplayAlerts = True 

后。

这样，您将在复制之前closures警报，并在之后将其打开。