Question

VBA求助:outlook中正文自动导入到Excel表格中,且保存格式,在网上找的代码有问题,请大神帮忙修改

希望保存Outlook中的格式,而不是将正文内容复制到一个Excel表格
代码如下:
Sub EmailToExcel()
Set outlookapp = CreateObject("outlook.application")
Set myitem = outlookapp.Application.GetNamespace("mapi")
Set Myfolder = myitem.GetDefaultFolder(olFolderInbox).Folders("Net")
mailcounts = Myfolder.Items.Count

Dim MyDataObj As New DataObject
MyDataObj.SetText ""
If (MsgBox(mailcounts & " pieces of letter in a!", vbYesNo) = vbNo) Then Exit Sub
If mailcounts > 0 Then
For i = 1 To mailcounts
If Worksheets.Count < mailcounts Then (报错行:运行时错误"424" 要求对象)
Sheets.Add After:=Sheets(Sheets.Count)
End If
Set TheMail = Myfolder.Items(i)
MyDataObj.SetText (TheMail.HTMLBody)
MyDataObj.PutInClipboard
Sheets(i).Select
Sheets(i).Range("A1").Select
ActiveSheet.Paste
MyDataObj.SetText ""

Next i
End If
End Sub

Answer 1

If Worksheets.Count < mailcounts Then

这一行里有两个对象， 把它们分别带出来看看值， 是哪个对象异常？

追问

O(∩_∩)O谢谢~ 怎么看呢~

Answer 2

我也是这个样子的，没有办法解决