Excel VBA将工作表复制到新工作簿并在Outlook中通过电子邮件发送新工作簿

我有一段代码，将当前文件附加到发送给我们销售代表的电子邮件中。y等于销售代表电子邮件。以及我们公司的订单电子邮件

我不想将整个文档附加到此电子邮件中，而是想从文档中复制选项卡并将其粘贴到新文档中。然后只发送新文档（从而减小文件大小，并有望将其从.xlsm附件更改为.xls附件）

---

创建新工作簿对象并将工作表复制到其中。下面的例子

   Dim wb As Workbook
   Set wb = Workbooks.Add
   Sheets("inputs").Copy After:=wb.Sheets(1)
   Sheets("config").Copy After:=wb.Sheets(1)
   wb.Application.Dialogs(xlDialogSendMail).Show "" & y & "; " & "orders@domainname.com"


  Set wb = Nothing

---

创建新工作簿对象并将工作表复制到其中。下面的例子

   Dim wb As Workbook
   Set wb = Workbooks.Add
   Sheets("inputs").Copy After:=wb.Sheets(1)
   Sheets("config").Copy After:=wb.Sheets(1)
   wb.Application.Dialogs(xlDialogSendMail).Show "" & y & "; " & "orders@domainname.com"


  Set wb = Nothing

---

上面的示例返回运行时“9”错误。下面是更正的代码：

   Dim wb As Workbook
   Set wb = Workbooks.Add
   ThisWorkbook.Sheets("inputs").Copy After:=wb.Sheets(1)
   ThisWorkbook.Sheets("config").Copy After:=wb.Sheets(1)
   wb.Application.Dialogs(xlDialogSendMail).Show "" & y & "; " & "orders@domainname.com"


   Set wb = Nothing

---

“ThisWorkbook.”必须添加到那里。

上面的示例返回运行时“9”错误。下面是更正的代码：

   Dim wb As Workbook
   Set wb = Workbooks.Add
   ThisWorkbook.Sheets("inputs").Copy After:=wb.Sheets(1)
   ThisWorkbook.Sheets("config").Copy After:=wb.Sheets(1)
   wb.Application.Dialogs(xlDialogSendMail).Show "" & y & "; " & "orders@domainname.com"


   Set wb = Nothing

---

“ThisWorkbook.”必须添加到那里。

如何从新工作簿切换回已打开的工作簿？回答^：工作簿（“WhateverFile.xls”）。工作表（“Sheet1”）。激活此解决方案引发错误。Matus Morongs回答下面的问题。如何从新工作簿切换回已打开的工作簿？回答^：工作簿（“WhateverFile.xls”）。工作表（“Sheet1”）。激活此解决方案引发错误。马图斯·莫伦斯下面的回答起了作用。