vba - protected Excel 工作表复制到电子邮件错误

Question

我有一个 protected 工作表，我想使用宏将其复制到电子邮件中。我目前正在使用以下代码:

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

Sheets("Ordering").Select
Range("A1:H63").Select
Selection.Copy

With OutMail
    .To = ""
    .Cc = ""
    .BCC = ""
    .Subject = ""
    .Display
End With

SendKeys "^({v})", True

Set OutMail = Nothing
Set OutApp = Nothing

这在大多数情况下都有效。但是，似乎有一个错误，即创建了新电子邮件但未粘贴工作表。相反，Excel 告诉我它无法执行此操作，因为工作表受到保护。

我尝试更改宏，以便它在选择之前取消保护并在粘贴后保护，但这只会导致一封没有粘贴工作表的新电子邮件。

我尝试在保护命令之前添加等待命令，但这只会导致一封没有粘贴工作表的新电子邮件，并且宏需要更长的时间才能结束。

有什么想法吗？

Answer 1

使用它代替SendKeys:

OutMail.GetInspector().WordEditor.Range(1,1).Paste

将它们放在一起，确保保护/取消保护工作表:

With Sheets("Ordering")
    .Unprotect
    .Range("A1:E12").Copy

    With OutMail
        .To = ""
        .Cc = ""
        .BCC = ""
        .Subject = ""
        .Display
        .GetInspector().WordEditor.Range(1,1).Paste
    End With

    .Protect
End With