邮件内的excel内容为何无法复制

可以，只不过不能直接复制。以Foxmail72和excel2016为例，方法如下：
1、打开邮件->右键->导出邮件->txt->删除除表格以外的内容
2、打开excel->数据->自文本->打开txt文件，d出向导->“最适合的文本类型”选择“分隔符号”->下一步->分隔符号选择“空格”->“完成”

将HTMLBody写入剪贴板就行了
Sub EmailToExcel()
Set outlookapp = CreateObject("outlookapplication")
Set myitem = outlookappApplicationGetNamespace("mapi")
Set Myfolder = myitemGetDefaultFolder(olFolderInbox)Folders("a")
mailcounts = MyfolderItemsCount
Dim MyDataObj As New DataObject
MyDataObjSetText ""
If (MsgBox(mailcounts & " pieces of letter in a!", vbYesNo) = vbNo) Then Exit Sub
If mailcounts > 0 Then
For i = 1 To mailcounts
If WorksheetsCount < mailcounts Then
SheetsAdd After:=Sheets(SheetsCount)
End If
Set TheMail = MyfolderItems(i)
MyDataObjSetText (TheMailHTMLBody)
MyDataObjPutInClipboard
Sheets(i)Select
Sheets(i)Range("A1")Select
ActiveSheetPaste
MyDataObjSetText ""
Next i
End If
End Sub

---