投稿/コメントを表示します。

エクセルマクロ・VBA基礎編フォローアップ アドバンスド
条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で複数の別ファイルとして連続的に作成する。

わかやまさんの投稿

(投稿ID: 3917)

小川様

workbooksでファイルを指定しているのですが、インデックスが有効範囲にありません というエラーが解消できません。

以下、マクロ内容です。
Sub kotae2()
    Dim fairu
    Dim sakujyo
    fairu = "n.xls"
    Sheets("本番").Select
    Sheets("本番").Copy
    ChDir "C:\Users\morita\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\morita\Desktop\ " & fairu, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
         Workbooks("n.xls").Worksheets("本番").Range("E4").Value = "ぬいぐるみ"

End Sub

Workbooks("n.xls").Worksheets("本番").Range("E4").Value = "ぬいぐるみ"
の部分で止まってしまいます。
このとき、おおもとのks207のファイルも開いております。

どうぞよろしくお願いします。
2018/05/23 06:31