2017-08-14 7 views
2

ファイルをフォーマットして毎週金曜日に作成されたフォーマットされた日付にスラッシュを追加します。LastFridayDateは'08と、それはファイルパスで表示方法をフォーマットされVBAが誤っ

Dim iWeekday As Integer, LastFridayDate As Date 
iWeekday = Weekday(Now(), vbFriday) 

LastFridayDate = Format(Now - (iWeekday - 1), "mm dd yyyy") 

「08 11 2017.xlsxを報告」 11 2017 '。私は経由でブックを開くしようとしたときただし、:

Dim lw_report As Workbook 

Set lw_report= Workbooks.Open("Report " & LastFridayDate & ".xlsx") 

私はエラーを取得する:「08 \ 22 \ 2017.xlsxを報告」私はなるように作成されたファイルのパスを取得できますか

を見つけることができませんスペースは保存されていますか?

答えて

3

LastFridayDateは、日付として定義されているので、ブックを開こうとすると、日付は標準日付書式で連結されます。文字列

Dim iWeekday As Integer, LastFridayDate As String 
iWeekday = Weekday(Now(), vbFriday) 

LastFridayDate = Format(Now - (iWeekday - 1), "mm dd yyyy") 
Dim lw_report As Workbook 

Set lw_report = Workbooks.Open("Report " & LastFridayDate & ".xlsx") 
+0

として、この単純dim LastFridayDateを修正するには

が、これは私のprobblemを固定し、あなたに感謝します。 –