質問: d1 To d2 Call funcOpen(i, szFileA) Next
回答: 希望内容とは若干違いますが、これじゃだめですか? yy = right(year(d1), 2) mm = right("0" & month(d1), 2) dd = right("0" & day(d1), 2) 配列だったら↓ですかね。 yymmdd(0) = right(year(d1), 2) yymmdd(1) = right("0" & month(d1), 2) yymmdd(2) = right("0" & day(d1), 2)