Sub edit_linkupdate()
	'リンクオブジェクトが貼られていることが前提です
	ActiveWorkbook.UpdateLink Name:= _
        "Excel.Sheet.8|C:\WINDOWS\MyDocuments\Book1.xls!'", Type:=xlExcelLinks
	'C:\WINDOWS\MyDocumentsフォルダのBook1.xlsリンクを更新します
	'すべてのリンクを更新させる場合はName:=ActiveWorkbook.LinkSourcesとします
	'Excel.Sheet.8はバージョンを表します。8はExcel2000です。
	'Type引数は他にxlOLELinksがあります。（Excel以外）
    	ExecuteExcel4Macro _
        "SET.UPDATE.STATUS(""Excel.Sheet.8|C:\WINDOWS\MyDocuments\Book1.xls!'"",1,2)"
	'Excel4.0マクロを使って更新設定を変更します。
	'自動の場合は1,2　手動の場合は2,2にします
    	ActiveWorkbook.OpenLinks Name:= _
        "Excel.Sheet.8|C:\WINDOWS\MyDocuments\Book1.xls!'", ReadOnly:=False
	'リンクを更新可で開きます
    	ActiveWorkbook.ChangeLink Name:= _
        "Excel.Sheet.8|C:\WINDOWS\MyDocuments\Book1.xls!'", NewName:= _
        "Excel.Sheet.8|C:\WINDOWS\MyDocuments\html\Book1.xls!'", Type:=xlExcelLinks
	'リンクの設定を変更します。
End Sub