[[20200919144427]]　『保存場所を変えたらエラー1004が出てしまう』（96）　ページの最後に飛ぶ

『保存場所を変えたらエラー1004が出てしまう』（96）

こちら20200910171657.htmlで教えていただいたマクロを使っていて、保存場所を変更しようとしました。
すると、Excelを保存するところで下記のように「実行時エラー'1004':」と出るようになってしまいました。

保存先が社内ネットワーク上だと正常に動きます。(元の保存先が社内ネットワーク上だったので試してみた)
保存変更先は、デスクトップ上のフォルダー内です。
保存先もマクロの記録をしたものをコピペしているので綴りが間違ってるとかは無いはずし、ちゃんと存在します。

デスクトップのフォルダーには保存できないのでしょうか？
保存先変更の時の留意点とかありましたら教えていただきたいです。
どうぞよろしくお願いいたします。

.
.

実行時エラー'1004':
ファイルにアクセスできませんでした。次のいずれかを確認してみてください。
？指定したフォルダーが存在することを確認します。
？ファイルが保存されているフォルダーが読み取り専用でないことを確認します。
？ファイル名とフォルダーのパスに次の文字が含まれていないことを確認します：<>?［］：｜*
？ファイル名とフォルダーのパスが218文字以下になっていることを確認します。

.
Excel保存実行、の下記がおかしいようなのですが、保存先変更前からいじっていません。
ActiveWorkbook.SaveAs Filename:=mysavepath _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

********

Sub PDF()

 Dim i As Long
 Dim myfol As String
 Dim mysavepath As String
 Dim saveflag As Boolean

'Excelの保存先指定

 myfol = "変更フォルダー"

'保存先名

 'mysavepath = myfol & "\" & ActiveSheet.Range("A7").Value & "様" & " " & ActiveSheet.Range("AX1").Value & ".xlsm"

'保存名が存在したら

 'If Dir(mysavepath) <> "" Then

saveflag = False 'フラグを立てFALSEを代入
i = 0 'カウンタの初期化
Do Until saveflag = True 'フラグがFALSEの間はループする
i = i + 1 'カウントアップ

'保存名の再指定
mysavepath = myfol & "\" & ActiveSheet.Range("A7").Value & "様" & " " & ActiveSheet.Range("AX1").Value & "_" & Format(i, "000") & ".xlsm"

'保存名が存在したら
If Dir(mysavepath) <> "" Then
　saveflag = False 'フラグをFALSEにする

'保存名が存在しなかったら
Else
saveflag = True 'フラグをTRUEにする/ループを抜ける

  End If
 Loop 'ループ    
'End If

'Excel保存実行

 Sheets("Sheet1").Select
 Sheets("Sheet1").Copy
   ChDir "変更フォルダー"
   ActiveWorkbook.SaveAs Filename:=mysavepath _
   , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
   ActiveWindow.Close
   Range("AQ6").Select
・
・

*******

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

＞myfol = "変更フォルダー"

これでは、間違っているかわかりません。
修正もできないないです。

（マナ） 2020/09/19(土) 15:43

コメント返信：

[ 一覧(最新更新順) ]

[[20200919144427]] 『保存場所を変えたらエラー1004が出てしまう』（96） ページの最後に飛ぶ

********

*******

[[20200919144427]]　『保存場所を変えたらエラー1004が出てしまう』（96）　ページの最後に飛ぶ