こんにちは、コードを使用して Excel の範囲を電子メールで送信しています。 範囲をキャンセルすると、実行時エラーが発生します。 これを防ぐためにコードまたはメッセージボックスを追加し、添付ファイルの列を自動調整することは可能ですか。 コードの一部は以下の通りです
感謝
/media/kunena/emoticons/smile.png
文字列としての薄暗いxFile
薄暗いxFormatと同じくらい
ワークブックとしての薄暗いWb
ワークブックとしての薄暗いWb2
ワークシートとして薄暗い
文字列としての薄暗いFilePath
文字列としての薄暗いファイル名
OutlookAppをオブジェクトとして薄暗くする
OutlookMailをオブジェクトとして薄暗くする
範囲として薄暗いWorkRng
xTitleId="例"
S
et WorkRng = アプリケーション.選択
WorkRng = Application.InputBox( "Range"、xTitleId、WorkRng.Address、Type:= 8)を設定します
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Wb=Application.ActiveWorkbookに設定します
Wb.ワークシート.追加
Ws=Application.ActiveSheetに設定します
WorkRng.Copy Ws.Cells(1、1)
Ws.コピー
Wb2=Application.ActiveWorkbookに設定します
CaseWb.FileFormatを選択します
ケースxlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
ケースxlOpenXMLWorkbookMacroEnabled:
Wb2.HasVBProjectの場合
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
他
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
終了する場合
ケースExcel8:
xFile = ".xls"
xFormat = Excel8
ケースxlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
選択して終了