求助，各位大神，运行出现异常

平常人欢欢

Sub HuiZong()
Dim myfile, mypath, wb              '声明变量
Application.ScreenUpdating = False  '关闭屏幕更新
Sheet1.UsedRange.Offset(0, 0).Clear '清除除表头之外的所有内容
mypath = ThisWorkbook.Path          '找到当前工作簿的路径
myfile = Dir(mypath & "\*.xls*")     '遍历当前文件夹下的Excel文件
Do While myfile <> ""                '当找到的文件不为空时
   If myfile <> ThisWorkbook.Name Then  '当找到的文件不是当前Excel工作簿时
      Set wb = GetObject(mypath & "" & myfile)   '得到dir找到的工作簿的内容，设为wb
      With wb.Sheets(1)              '对找到的工作簿的sheet1进行操作
        '复制wb的sheet1除第一行的所有内容
        .UsedRange.Offset(0, 0).Copy
        Sheet1.Range("A" & Sheet1.UsedRange.Rows.Count + 1).PasteSpecial Paste:=xlPasteValues
       End With
         wb.Close False      '关闭wb工作簿且不保存
   End If
   myfile = Dir          '寻找下一个Excel工作簿
Loop
Application.ScreenUpdating = True   '恢复屏幕更新
End Sub

程序走到这会报错，运行错误432；操作时文件类型及文件名未找到怎么回事？

刀羊

      Set wb = GetObject(mypath & "\" & myfile)   '得到dir找到的工作簿的内容，设为wb

平常人欢欢

怎么加了\后出现的是空值？