Imports System.Runtime.InteropServices
Imports System.Runtime.InteropServices.ComTypes
 
Public Class Form1
 
    <DllImport("ole32.dll")> _
    Public Shared Function GetRunningObjectTable(ByVal reserved As Integer, _
    ByRef prot As IRunningObjectTable) As Integer
    End Function
 
    <DllImport("ole32.dll")> _
    Public Shared Function CreateBindCtx(ByVal reserved As Integer, ByRef ppbc _
    As IBindCtx) As Integer
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim rot As IRunningObjectTable
        Dim enumm As IEnumMoniker
        Dim monikers As IMoniker() = New IMoniker(0) {}
        Dim mcnt As Integer
 
        GetRunningObjectTable(0, rot)
 
        rot.EnumRunning(enumm)
        enumm.Reset()
 
        While enumm.[Next](1, monikers, mcnt) = 0
            Dim bctx As IBindCtx
            CreateBindCtx(0, bctx)
 
            Dim name As String
            monikers(0).GetDisplayName(bctx, Nothing, name)
            If (name.ToUpper().EndsWith(".XLS")) Then
                Dim val As Object
                rot.GetObject(monikers(0), val)
                Dim wb As Excel.Workbook = CType(val, Excel.Workbook)
                wb.Close()
            End If
        End While
    End Sub
End Class

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov