各位大神好，在选中的mail里面，打开excel附件，然后把worksheet(1)的内容复制到桌面的一个excel里面，为什么用vba不能实现？但是如果先把附件保存在桌面再打开复制就可以，请问是打开目录文件名的文件名错误吗？求教，谢谢。
代码：
Sub test()
On Error Resume Next
Dim objItem As Outlook.MailItem, wb As Workbook, sht As Worksheet, wt As Workbook, shr As Worksheet
Dim Attachment As Outlook.Attachment
For Each objItem In Application.ActiveExplorer.Selection
For Each Attachment In objItem.Attachments
Debug.Print Attachment.filename
Set wb = Workbooks.Open("Attachment.filename")
Set sht = wb.Worksheets(1)
Set wt = Workbooks.Open("C:\Users\Administrator\Desktop\abc.xlsx")
Set shr = wt.Worksheets(1)
sht.UsedRange.Copy shr.Range("A1")
wb.Close
wt.Close True
Next
Next
end sub