0

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

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

If ShapesAfter > ShapesBefore Then
    MsgBox "Please Repair Invalid Equipment Selection", , "Invalid Selections _
 Have Been Made"

ElseIf ShapesAfter = ShapesBefore Then
   Sheets("inputs").Select
   Dim y As String
   y = Cells(61, 5).Value
   Sheets("config").Select
  Application.Dialogs(xlDialogSendMail).Show "" & y & "; " & "orders@domainname.com"
4

2 回答 2

3

上面的示例返回运行时“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

“这本工作簿。” 必须在那里添加。

于 2013-12-05T12:20:57.963 回答
2

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

   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
于 2013-09-19T21:09:55.010 回答