打开工作簿循环判断一下是否已经存在打印工作表。或者打开的时候直接删除打印表,再统一添加也行。
Sub test1()
Dim mypath$, lj$, sht As Worksheet, n
mypath = "D:\批量在若干工作簿中插入指定名称的工作表\批量在若干工作簿中插入指定名称的工作表\原工作簿\"
lj = Dir(mypath)
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Do
Workbooks.Open mypath & lj
For Each sht In Sheets
If sht.Name = "打印表" Then n = 1
Next sht
If n <> 1 Then Worksheets.Add(after:=Sheets(Sheets.Count)).Name = "打印表"
ActiveWorkbook.Close True
lj = Dir
n = 0
Loop Until lj = ""
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub