'D&DでExcelの外部リンクを自動更新せずにする。
'参考　https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13129119458
'参考　https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1047681230


'Excelの定数(VBAと違って文字列では機能しない)
 Const xlMinimized = -4140	'オブジェクトブラウザで調べるんでっせ
 Const xlUpdateLinksNever = 2	'オブジェクトブラウザで調べるんでっせ

'DIM
 Dim args
 Dim xls
 Dim i
 Dim file
 Dim wb
 Dim objWSHrtn

 Set objWSHshell = CreateObject("WScript.Shell") 

'main
 Set args = WScript.Arguments				'ドロップされたファイル
 Set xls = CreateObject("Excel.Application")		'Excelオブジェクト
 'xls.WindowState = xlMinimized				'最小化
 'xls.Visible = True					'可視化
 For i = 0 To args.Count - 1				'ドロップされたファイルを順に
 objWSHrtn = objWSHshell.Run("CMD.EXE /C " , 7 , true)	'DoEventsのかわり
 	file = args(i)					'ファイルのフルパス
 	Set wb = xls.Workbooks.Open(file, 0)		'ブックを開く(UpdateLinks:=0)
	'xls.DisplayAlerts = False			'警告禁止
	wb.UpdateLinks = xlUpdateLinksNever		'リンクを更新しない
	'xls.DisplayAlerts = True			'警告許可
	wb.Close True					'ブックを保存して閉じる
 Next

'Excel終了
 xls.Quit
 WScript.Echo "起動時にリンクの自動更新を行わない設定に書き換えました。"