
コード”renshu2”なのですが実行するとUpdatelink~の行で
「”Updatelink”メソッドは失敗しました:’workbook’オブジェクト」
と表示され実行されません。
ただ単に開くopenコード(”renshu”のコード)は実行可能でした。
なにがもんだいなのでしょうか?
VBA
1コード 2```Sub renshu() 3Workbooks.Open "\\192.168.1.46\国道除雪\R04 国道除雪\07_ 応急日報(現道)\応急処理指示書・確認簿_4月.xlsm" 4 5End Sub 6 7Sub renshu2() 8 Application.ScreenUpdating = False 9 10 With UserForm1 11 .Label1 = " " 'リセット 12 .Show vbModeless 'フォームを処理続行モードで開く 13 .Repaint '強制表示 14 15 ActiveSheet.Unprotect 16ActiveWorkbook.UpdateLink Name:= _ 17 "\\192.168.1.46\国道除雪\R04 国道除雪\07_ 応急日報(現道)\応急処理指示書・確認簿_4月.xlsm", Type:=xlExcelLinks 18 .Label1 = "■■■■■■■■■■■■■ " 19 .Repaint 20 .Hide 21 End With 22End Sub
回答1件
あなたの回答
tips
プレビュー