マクロ内でExcel内の複数の場所に保存

Question

これは初めての投稿です。

ファイルをMicrosoft Excelの複数の場所に保存するためのマクロを記録し、パーソナルリボンにボタンを作成してすぐにアクティブにしました。

マクロをアクティブにすると、上書きを確認するプロンプトが表示され、その必要はありません。

私はこれらのフォーラムで他のソリューションを読んだことがありますが、コードを挿入する場所は正確ではありません。私は多くのコーダーではありません。誰かが助けてくれますか？

Sub SaveToNetworkDrive() 
' 
' SaveToNetworkDrive Macro 
' 

' 
ChDir "V:\#E902MS" 
ActiveWorkbook.SaveAs Filename:="V:\#E902MS\Greyson's Excel Log.xls", _ 
    FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ 
    ReadOnlyRecommended:=False, CreateBackup:=False 
ChDir "C:\Users\E902MS\Desktop" 
ActiveWorkbook.SaveAs Filename:= _ 
    "C:\Users\E902MS\Desktop\Greyson's Excel Log.xls", FileFormat:=xlExcel8, _ 
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ 
    CreateBackup:=False 
End Sub 

Answer 1

名前を付けて保存する代わりにFileCopyを使用できます。 FileCopyは自動的にコピー先ファイルを上書きします。 On Error Resumeは、コピー先のワークシートが現在使用中の場合、プログラムがクラッシュするのを止めますが、上書きされないようにします。

EDIT：コピーする前に保存を追加しました。しようとする

Thisworkbook.Save 
On Error Resume Next 
    FileCopy Application.ThisWorkbook.fullname, "C:\folder\" & Application.ThisWorkbook.Name 
On Error GoTo 0