'D&DでExcelの外部参照とリモート参照を更新せずに開く
'参考　https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13129119458
'参考　https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1047681230

 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.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)
 Next