パワーポイントを保存するVBAマクロファイル名が異なるファイル

Question

次の木曜日の日付に応じて別のFileNameでパワーポイントファイルを保存しようとしています。つまり、ファイル名を18.10.2016（火曜日に対応）に保存すると、ファイル名は20/10/2016（次の木曜日に対応）になります。

私が書いたものだが、それは偽のようだ：あなたの助けを

Sub SaveAll() 
    Dim prs As Presentation 
    Dim Todate As Date 
    On Error Resume Next 
    For Each prs In Presentations 
    Todate = DateValue(Now) 
    oldWeekDay = Weekday(Todate) 
    Select Case oldWeekDay 

    Case 1 
    prs.saveAs "C:\Users\Moez\Desktop\Macro_Project\Todate + 4.pptm" 
    Case 2 
    prs.saveAs "C:\Users\Moez\Desktop\Macro_Project\Todate + 3.pptm" 
    Case 3 
    prs.saveAs "C:\Users\Moez\Desktop\Macro_Project\Todate + 2.pptm" 
    Case 4 
    prs.saveAs "C:\Users\Moez\Desktop\Macro_Project\Todate + 1.pptm" 
    Case 5 
    prs.saveAs "C:\Users\Moez\Desktop\Macro_Project\Todate.pptm" 
    Case 6 
    prs.saveAs "C:\Users\Moez\Desktop\Macro_Project\Todate + 6.pptm" 
    Case 7 
    prs.saveAs "C:\Users\Moez\Desktop\Macro_Project\Todate + 5.pptm" 

    End Select 

    Next prs 

End Sub 

おかげ

Answer 1

が日付使用DateAddに日数を追加します。あなたはunsing (7 + numberOfDayYouWant - numberOfDayYouHave) Mod 7

に

Dim nextThursday As Date 
Dim strDate As String 
Dim Todate As Date 
Todate = Date 'the "Date" function returns the date portion of "Now" 

'find the next thursday 
nextThursday = DateAdd("d", (12 - Weekday(Todate)) Mod 7, Todate) 

'make a string 
strDate = Format(nextThursday, "yyyy-mm-dd") 'edit format as you wish 

'now save the presentation, e.g. 
'Set prs = someting 
prs.SaveAs "C:\Users\Moez\Desktop\Macro_Project\" & strDate & ".pptm" 

を追加する日数を計算することができますそれは偽思われるもの「偽のようだ」と同じ名前で、あなたのプレゼンテーションを保存していないことを確認するためにあなた次第