excel2013 マクロで自動に保存をしたい。

忙しいところすいませんが、マクロの記録でしてもなかなかうまくできません。
excel を　マクロで　disktop と　onedrive に同時に保存を　したい。　
マクロ有効ブックにしてもうまくできません。　どうしたらよいのでしょうか？。
よろしくお願いいたします。

質問者からの補足コメント

• 

  間違いました。　自分が60歳以上です。　詳しい方よろしくお願いいたします。

    補足日時：2021/04/15 08:59

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2021/04/15 11:05

こんにちは、

disktop と　デフォルトonedriveフォルダのパスは下記のようなコードで取得できると思います。
取敢えず、メッセージボックスでパスを表示します。

Sub SavePath()
Dim Desktop_path As String
Dim OneDrive_Path As String

Desktop_path = CreateObject("WScript.Shell").SpecialFolders("desktop")
OneDrive_Path = Environ("UserProfile") & "\OneDrive"

MsgBox "デスクトップパス" & Desktop_path & vbCrLf & _
"OneDriveフォルダ" & OneDrive_Path

' Application.DisplayAlerts = False
' ActiveWorkbook.SaveAs Filename:=OneDrive_Path & "\" & ActiveWorkbook.Name
' ActiveWorkbook.SaveAs Filename:=Desktop_path & "\" & ActiveWorkbook.Name
' Application.DisplayAlerts = True
End Sub

保存（上書き）部分はコメントにしています。
階層や環境により手を加える必要があります。

OneDriveの同期などについては考慮していません。

この回答へのお礼

早速の回答ありがとうございました。これでスッキリしました。

お礼日時：2021/04/17 08:29