какую функцию использовать или макрос?

[Hugo121]

Упс, пропустил тему...
Да, код в блокнот, вместо CompareFiles.Find.xls свой файл, сохранить как имя.vbs, положить рядом с нужным файлом, даблкликнуть.
Но откроется новый экземпляр Экселя со всеми вытекающими...

Хотя есть варианты... Чуть позже дома проверю, отпишусь.

Проверил - и в 2007 работает:

Option Explicit
Dim objFSO, objExcel, ExcelPath, wb

ActivateExcel

Set objFSO = CreateObject("Scripting.FileSystemObject") 
ExcelPath = objFSO.GetParentFolderName(WScript.ScriptFullName) 
Set wb = objExcel.Workbooks.Open (ExcelPath & "\test.xls")
Set objExcel = Nothing

Private Function ActivateExcel()
On Error resume next 
Set objExcel = GetObject(, "Excel.Application")
If objExcel Is Nothing Then
	Set objExcel = CreateObject("Excel.Application")
	objExcel.Visible = True
End If
End Function

открывает test.xls с включенными макросами в открытом или новом экземпляре Экселя (если нет открытого).
Но конечно могут быть запрещены/отключены и файлы vbs...