0

現在のファイルを営業担当者宛ての電子メールに添付するコードのセグメントがあります。 y は営業担当者の電子メールと同じです。と弊社の注文メールへ。

ドキュメント全体をこの電子メールに添付する代わりに、ドキュメントからタブをコピーして新しいドキュメントに貼り付けたいと考えています。次に、新しいドキュメントのみを送信します (これにより、ファイル サイズが縮小され、できれば .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 に答える