| |
「Win7・OfficeXPです」
エクセルBook中のSheetを、マクロ操作一発でメールの送信・メールの宛先（校閲用）としてメール画面の出現までやりたいのです。
Sheetの保存先は“Dドライブのディスクトップの送信記録”、ファイル名はSheetの“A1セルの文字列”としています。
マクロ初心者ゆえ、マクロの記録で出来上がったものに、見よう見真似で修正を加えたのですが、
途中どうしても名前を付けて保存Dialog Boxが出てきて“保存”釦を2回押さなければメール画面に行きません。
現状マクロは次ですが、何処を修正すればDialog Boxが出ること無く、一発で出来るでしょうか。
上記でメールの宛先（校閲用）はメールの宛先（添付ファイル）でもかまいません。
Sub Macro1()
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "D:\ディスクトップ\送信記録"
Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("A1")
ActiveWorkbook.SendForReview ShowMessage:=True
End Sub
ご教授のほどよろしくお願いいたします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
