###前提・実現したいこと
VBAで新規作成したブックをデスクトップ上にTEST & i &.xlsx(iには1から始まる番号が入ります)として名前を付けて保存するシステムを作っています。テキストボックスに入力された番号の数だけ新しいブックを生成し、自動的にデスクトップ上に保存する仕組みを作りたいです。
名前を付けて保存の機能を実装中に以下のエラーメッセージが発生しました。
###発生している問題・エラーメッセージ
インデックスが有効範囲にありません
##デバックしてエラーになった箇所
Set book1 = Workbooks("Book" & i & ".xlsx")
###該当のソースコード
Private Sub CommandButton1_Click() Dim book1 As Workbook n = TextBox1.Value For i = 1 To n Workbooks.Add Set book1 = Workbooks("Book" & i & ".xlsx") book1.SaveAs Filename:="TEST" & i & ".xlsx" Next End Sub
###試したこと
「Set book1 = Workbooks("Book" & i & ".xlsx")」として
iには1から始まる番号を付けました。
分かる方、ご教示願います。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。