レッスン-投稿一覧パソコン仕事５倍塾ポータル

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

条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で複数の別ファイルとして連続的に作成する。

わかやまさんの投稿

(投稿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

小川慶一さんのコメント

(コメントID: 5473)

わかやまさん:

ActiveWorkbook.SaveAs Filename:="C:\Users\morita\Desktop\ "

のファイルパスを指定している部分、すなわち、

"C:\Users\morita\Desktop\ "

というところで、最後によけいな半角スペースが入っていますね。

なので

"C:\Users\morita\Desktop\"

というフォルダに

" n.xls" '←「半角スペース、エヌ」という、長さ二文字のファイル名のファイルを生成しています。

たぶんこれが問題ではないかと。
いかがでしょう。

2018/05/23 18:39