vba Updatelinkで「実行時エラー'1004'」

Question

コード”renshu2”なのですが実行するとUpdatelink～の行で
「”Updatelink”メソッドは失敗しました：’workbook’オブジェクト」
と表示され実行されません。
ただ単に開くopenコード（”renshu”のコード）は実行可能でした。
なにがもんだいなのでしょうか？

コード
```Sub renshu()
Workbooks.Open "\\192.168.1.46\国道除雪\R04 国道除雪\07_ 応急日報(現道)\応急処理指示書・確認簿_4月.xlsm"

End Sub

Sub renshu2()
    Application.ScreenUpdating = False
    
    With UserForm1
      .Label1 = "　　　　　　　　　　　　　　" 'リセット
      .Show vbModeless 'フォームを処理続行モードで開く
      .Repaint '強制表示

  ActiveSheet.Unprotect
ActiveWorkbook.UpdateLink Name:= _
        "\\192.168.1.46\国道除雪\R04 国道除雪\07_ 応急日報(現道)\応急処理指示書・確認簿_4月.xlsm", Type:=xlExcelLinks
    .Label1 = "■■■■■■■■■■■■■　"
      .Repaint
    .Hide
    End With
End Sub

Comments

[退会済みユーザー]

再現しないので回答のしようがないですね。
新しいブックで作り直してみるとか...

[xail2222]

回答に記載しなおします。

Answer 1

そのファイルに対するリンクがActiveWorkbookにないのでは？

リンクしているファイルと違うファイルで実行すると同じ、エラーが出ましたよ

ネットワークドライブで開いたファイルに対してリンクを張って、¥¥192.168.1.46¥~でupdatelinkしてもエラーになります。

Comments

[takumisato]

ご回答ありがとうございました。
今回のコードはやめていった先輩の書いたコードです。無知な私はいろいろ調べながら四苦八苦している状態です
この掲載したコードは一部で本当は11月から４月まであってその順番に処理されてきています。
最後の４月だけエラーが出ます。

「そのファイルに対するリンクがActiveWorkbookにないのでは？」
とおっしゃられましたがそのリンクをActiveworkbookにつくるにはどうすればいいのでしょうか？
調べてみてそれらしい説明がありましたがまったく理解できませんでした

[takumisato]

エクセルのデータタブ→リンクの編集から状態を見てみたら4月の分だけが前年になっていました。そこを修正したら動きました！いただいた回答がヒントになりました！大変助かりましたありがとうございます。

[xail2222]

そうですね。リンクの編集の所を見て下さい。と書こうとしていたところでした。
動くようになって良かったです