|
悩み中 さん
追伸、やはりファイルが読み取り専用にするとエラー1004がでました。
保存ファイルのプロパティーで確認ください。
>
>こんにちは。
>テストしましたがOKでした。ということは、
>>?指定したフォルダがあることを確認します。
>>?ファイルを含むフォルダが読み取り専用になっていないことを確認します。
>この二点が怪しいですね、
>
>>どうして止まってしまうのか教えてください。
>>何度実行しても、同じ部分で止まります。
>>どの部分がおかしいのでしょうか?
>>
>>
>>【マクロの内容】
>>"集計"というブックのシートをコピーし、
>>名前を付けて保存というマクロを作成途中です。
>>マクロは"集計"ブックに記述しました。
>>また"集計ブックの"規定値シートには
>>以下の情報が入力してあります。
>>
>>セルC8→D:\デマンド\
>>セルI7→RE_CALCU
>>セルJ7→合計
>>
>>【エラーの内容】↓
>>実行じエラー'1004':
>>ファイルにアクセスできませんでした。次のいずれかを行ってみてください。
>>?指定したフォルダがあることを確認します。
>>?ファイルを含むフォルダが読み取り専用になっていないことを確認します。
>>?指定したファイルの名前に次のいずれかの文字も含まれて居ないことを確認します。
>>?ファイル名及びパス名が半角で218文字より長くないことを確認します。
>>
>>【実際の記述】(★止まる部分)
>>Sub 6.保存2.()
>> Sheets("規定値").Select
>> HD = Range("C8")
>> HS = Range("I7")
>> HF = Range("J7")
>> 保管 = HD & HF
>> Sheets(HS).Copy
>> Range("A1").Select
>> Application.DisplayAlerts = False
>> ActiveWorkbook.SaveAs Filename:=保管, _ ★ここで止まります。
>> FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
>> ReadOnlyRecommended:=False, CreateBackup:=False
>>
>> ActiveWindow.Close
>>
>>End Sub
|
|