运行时错误1004-对象Worksheer的方法“名称”失败

Question

运行时eroor 1004 Massege被合并，代码正常工作。而且，该代码可能运行得太慢，以至于需要30秒才能进入“ SummaryProject.xlsm”

该代码采用所有xlsm文件，例如“ SummaryProject.xlsm”的目录。从“钻头”复制每一行 将工作表粘贴到“ SummaryProject.xlsm”的“摘要”工作表中。 另外，每次您使用当前出席文件打开此摘要xlsm时都会刷新。

Sub Import_to_Master()

Dim sFolder As String
Dim sFile As String
Dim wbD As Workbook
Dim wbS As Workbook
Dim ws As Worksheet

    Set wbS = ThisWorkbook
    sFolder = wbS.Path & "\"

    sFile = Dir(sFolder)
    Do While sFile <> " "

        If sFile <> wbS.Name Then
        Set wbD = Workbooks.Open(sFolder & sFile)
        'open the file; add condition to

        'Adapt this part
        wbD.Sheets("Drill").Range("A2:P2").Copy
        wbS.Activate

        Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Offset(1, 
        0).PasteSpecial xlPasteValues
        Application.CutCopyMode = False

        wbD.Worksheets("Log").Copy before:=ThisWorkbook.Sheets(1)

        Set ws = Sheets("Log")
        With ws
        .Name = Range("D1").Value
        End With

        wbD.Activate
        wbD.Close savechanges:=True  'close without saving
        End If
        sFile = Dir   'next file
Loop

End Sub