Excel標準関数でシート名を取得し、日付に変換

=DATE("20" & LEFT(MID(CELL("filename", A1), FIND("]", CELL("filename", A1)) + 1, 255), 2), MID(MID(CELL("filename", A1), FIND("]", CELL("filename", A1)) + 1, 255), 4, 2), RIGHT(MID(CELL("filename", A1), FIND("]", CELL("filename", A1)) + 1, 255), 2))