すみません、質問させてください。

Visual Basic | Excel114閲覧

ベストアンサー

0

ThanksImg質問者からのお礼コメント

ご連絡ありがとうございます。 試した結果いけました。 本当にありがとうございました。

お礼日時:9/26 12:51

その他の回答(4件)

0

可変と書いている日付はどこから設定(取得)するのですか? ワークシート内のどこかのセルに入っている日付を使うのか、都度年月日を設定するのか、それを補足した方がいいと思います。 Dim SetFile As String Dim 可変 As Date Dim 日付 As String '日付をワークシートのセルに入っている日付から取得するなら 可変 = Worksheets("Sheet1").Range("A1").Value '日付を年月日で都度設定するなら 可変 = DateSerial(2021, 9, 21) 日付 = Format(可変, "yymmdd") SetFile = "C:\TEST\テストデータ\" & 日付 & ".xlsx" 蛇足ですが、変数名にはなるべく全角文字を使わない方がいいと思います。

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で篩分けすれば良いのでは。

0

可変 = "2021/9/23"

または、 可変 = "2021-9-23" または、 可変 = "2021-09-23" または、 可変 = "21-9-23" または、 可変 = "21/09/23" または、 可変 = "21-09-23" または、 可変 = "21/9/23" または、 可変 = "Sept 23, 2021" または、 可変 = "令和3年9月23日"

0

どのようにしたいのかが、いまひとつ分かりません。 単純に「テストデータ210921.xlsx」を開きたいなら、 Dim 可変 As Date 可変 = DateSerial(2021, 9, 21) こんな感じでしょうか。

ご連絡ありがとうございます。 「テストデータ210921.xlsx」を開くんですが、「テストデータの後ろの”210921”の6桁が変わります。 例えば下記の様なエクセルを開きます 「テストデータ210925.xlsx」 「テストデータ211001.xlsx」 「テストデータ220221.xlsx」など 1つのフォルダ内に、上記のエクセルが、1つあり、6桁の日付だけが変わります。 これを、6桁の日付が変わっても開けるVBAをご教授お願いできないでしょうか? 宜しくお願い致します。