保存は、エクセルVBA経由でファイルを.xlsx形式の保存したファイル

Question

を開かずに、私は、メッセージ行の下

の見通しメッセージを作成し、ファイル自体（のxlsx）をエクセル添付エクセルVBAコードを作ってるんです。

ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Date & " " & "Position Report Ver.2.xlsx", FileFormat:=51 

このコードは、xlsxファイルを特定のフォルダに保存します。

コピーしたxlsxファイルを保存します。

私のコードでは、保存直後に自動的に保存ファイル（xlsxファイル）が開きます。元のファイルは閉じられています。

マクロは、xlsxファイルを生成した後であっても、vbaマクロによるOutlookメッセージに添付する必要があるため、実行する必要があります。

保存した直後にxlsxファイルが開かれているため、保存後にvbaコードを実行できません。

xlsmからxlsxを開くことなくどのように保存できますか？

stackoverflowを検索しましたが、解決策が見つかりませんでした。コードは動作しませんか（単にXLSMコピー）XLSXし保存することはできません...私は完璧な答えを見つけることができませんでした...

をチェックすることを忘れないでください...これを試してみて

Answer 1

してくださいファイル名から無効な文字を削除するために、Format関数を使用していました。

ThisWorkbook.Sheets.Copy 
Application.DisplayAlerts = False 
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Date, "mm.dd.yyyy") & " " & "Position Report Ver.2.xlsx", FileFormat:=51 
ActiveWorkbook.Close 

Answer 2

@sktneerこのワークブックでは、データを含むシートはコピーされませんでしたが、空のワークブックのみが開きました。しかし、ActiveWorkbookがその仕事をしました。

ActiveWorkbook.Sheets.Copy 
Application.DisplayAlerts = False 
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Date, "mm.dd.yyyy") & " 
" & "Position Report Ver.2.xlsx", FileFormat:=51 
ActiveWorkbook.Close