vba +从一个wb复制到另一个wb

Question

许多论坛都讨论了这个问题。我有代码，但它一直在说错误:不匹配。我不知道为什么..。

我有3WB。我现在正在写的宏的那个(1)。一张单张纸需要复制(2)，然后1 wb到纸张需要复制到(3)的地方。

我在(1)中的代码：

Dim sh As Worksheet

Application.ScreenUpdating = False
Sheets("Sheet1").Select

PathNameOrigineel = Range("C2").Value
filenameOrigineel = Range("B2").Value

PathNameNew = Range("C3").Value
FilenameNew = Range("B3").Value

Set wbori = Workbooks.Open(PathNameOrigineel & filenameOrigineel)
Set wbNew = Workbooks.Open(PathNameNew & FilenameNew)

wbori.Activate
    For Each sh In wbori.Worksheets
        If sh.Name <> "Database" And sh.Name <> "Template" And sh.Name <> "Help" And sh.Name <> "OVERVIEW" And sh.Name <> "Develop" And sh.Name <> "Schedule" And sh.Name <> "Information" And sh.Name <> "Announcements" And sh.Name <> "Summary"        Then
        Sheets(sh).Copy After:=Workbooks(FilenameNew).Sheets(Sheets.Count)
        End If
    Next

Answer 1

sh已经定义为工作表，所以您不需要Sheets(sh).Copy，只需要sh.Copy

For Each sh In wbori.Worksheets
    If sh.Name <> "Database" And sh.Name <> "Template" And sh.Name <> "Help" And sh.Name <> "OVERVIEW" And sh.Name <> "Develop" And sh.Name <> "Schedule" And sh.Name <> "Information" And sh.Name <> "Announcements" And sh.Name <> "Summary"        Then
    sh.Copy After:=Workbooks(FilenameNew).Sheets(wbNew.Sheets.Count)
    End If
Next