求复制工作表的vba代码

Question

各位老师晚上好!
我打开当前工作本,工作本里有2个工作表(不是"概算"工作表),求代码:复制当前文件夹下,[概算及计划完成V1]工作簿里"概算"工作表到当前工作簿第一个工作表之前,如果当前工作簿有"概算"工作表就覆盖,覆盖前提示.
谢谢!!!

Answer 1

Sub MYCOPY()
Dim MyEX As Workbook
Dim MyName As String
On Error Resume Next
MyName = "概算及计划完成V1.xlsx"
Application.DisplayAlerts = False
Set MyEX = GetObject(ThisWorkbook.Path & "\" & MyName)
If Err.Number = 432 Then
MsgBox ("未找到" & MyName)
Exit Sub
End If
For i = 1 To Workbooks(MyName).Sheets.Count
If Workbooks(MyName).Sheets(i).Name = "概算" Then
pd1 = 1
Exit For
Else
MsgBox (MyName & "中没有概算工作表")
Exit Sub
End If
Next i
For i = 1 To ThisWorkbook.Sheets.Count
If ThisWorkbook.Sheets(i).Name = "概算" Then
pd2 = MsgBox("已经有“概算”工作表，是否覆盖", vbYesNo)
Exit For
End If
Next i
If pd1 = 1 And (pd2 = vbYes Or pd2 = "") Then
ThisWorkbook.Sheets("概算").Delete
MyEX.Sheets("概算").Move Before:=ThisWorkbook.Sheets(1)
Workbooks(MyName).Close
End If
Application.DisplayAlerts = True
End Sub

执行这个宏看看