Excel宏用作插件时不起作用

Question

我编写了一个VBA宏，可以将多个工作簿复制/合并为一个，并且可以根据需要运行。但是当我尝试将此宏创建为插件，并使用我的快捷键 Ctrl + Shift + M 运行代码时，代码失败并且没有错误。代码如下：

Dim wbk As Workbook
Dim wbk1 As Workbook
Set wbk1 = Workbooks.Add
Set wbk1 = ThisWorkbook
Dim Filename As String
Dim Path As String
Dim Rowvar As Integer
Rowvar = 1
Titlelabcnt = 1
Path = "C:\"
Filename = Dir(Path & "*.xlsx")

Do While Len(Filename) > 0
Set wbk = Workbooks.Open(Path & Filename)
wbk.Activate
Dim Lastcol As Long
Dim LastRow As Long
Lastcol = ActiveSheet.Cells.Find(What:="*", After:="A2", SearchOrder:=xlByColumns, searchdirection:=xlPrevious).Column
LastRow = ActiveSheet.Cells.Find(What:="*", After:="A2", SearchOrder:=xlByRows, searchdirection:=xlPrevious).Row
Range("A2").Select
Range("A2").Resize(LastRow, Lastcol).Select
Selection.Copy Destination:=wbk1.Sheets("sheet1").Range("A" & Rowvar)
Rowvar = Rowvar + LastRow
wbk.Close True
Filename = Dir
Loop
End Sub

以上代码在以下行中用作插件时停止：

Set wbk = Workbooks.open(Path & Filename)

您是否可以提供有关更改内容的任何建议，以便它像插件一样工作？