質問: False '参照先を読み取り専用で開く Workbooks.Open FileName:=SetFile, ReadOnly:=True, UpdateLinks:=0
回答: 日付が連続しているなら、こんな感じですかね。 For DDD = "2021/9/1" To "2021/9/30" Nen = Right(Year(DDD), 2) Tuki = Format(Month(DDD), "00") Hi = Format(Day(DDD), "00") 可変 = Nen & Tuki & Hi 連続していないなら、For分の後にIfかSelectで篩分けすれば良いのでは。