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

エクセルマクロ・VBA基礎編フォローアップ アドバンスド
データ記入用ファイルを配布する-その2

ゲストさんの投稿

(投稿ID: 4146)

こんにちは。いつもお世話になっております。
ファイルを保存するところで、エラーになり進めないでおります。

実行時エラー　1004

ファイル'D:\renshu\配布先フォルダa\'にアクセスできません。次のいずれかの理由が考えられます。
・ファイル名またはパスが存在しません
・ファイルが他のプログラムによって使用されています
・保存しようとしているブックと同じ名前のブックが現在開かれています

Dドライブには間違いなく「renshu」フォルダが存在します。
どのようにしたら解決しますでしょうか。


---------------------------------------------------------------------
Sub renshumacro()
Dim foldername
Dim filename
Dim gyo

    foldername = Workbooks("全部1つ.xls").Sheets("部署情報").Range("D2").Value
    filename = Workbooks("全部1つ.xls").Sheets("部署情報").Range("E2").Value

    Workbooks("全部1つ.xls").Sheets(Array("歳入", "歳出")).Select
    Workbooks("全部1つ.xls").Sheets("歳出").Activate
    
    Workbooks("全部1つ.xls").Sheets(Array("歳入", "歳出")).Copy '←この段階で新しいファイルができた
    ActiveWorkbook.SaveAs filename:="D:\renshu\" & foldername & "\" & filename, FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
        
    Workbooks(filename).Sheets("歳出").Select
    Workbooks(filename).Sheets("歳出").Range("A23:D23").Select
    Selection.Delete Shift:=xlUp
    
    Workbooks(filename).Sheets("歳入").Select
    Workbooks(filename).Sheets("歳入").Range("A23:D23").Select
    Selection.Delete Shift:=xlUp
    
    Workbooks(filename).Save
    Workbooks(filename).Close
    
End Sub

2018/08/26 03:25