質問: いつもありがとうございます。 マクロを業務上使うことがあり、そのたびにコピペしたりなんとかしたりして突貫工事で作ってきたのですが、 如何せん、恥ずかしながら、基礎というか、土台がなっておりません... 今回質問させていただくのは本当に基本的なことで申し訳ないのですが、 エクセルで任意のセル(例F1)に数字を入れ、その入力した数字の名前でファイルを保存したいというものです。 例としては、F1に1を入れて名前をつけて保存で『1.xlsx』と任意の場所に保存する で、 これを「1~60」までやりたく思っています。 (全部で60ファイル出来上がる) 「1.xlsx」 . . . 「60.xlsx」 簡単なところをまだ理解できていないのでお恥ずかしい限りですが、ご教示いただけると嬉しいです。 よろしくお願いいたします。
回答: とりあえず最低限のコードです。 出力先のパスは適宜修正してください。 ``` Sub test() If IsNumeric(Cells(1, 6).Value) Then st = Cells(1, 6).Value ed = st + 59 For i = st To ed ThisWorkbook.SaveAs "c:\temp\" & i & ".xlsx" Next End If End Sub ```