Vanuit Access met VBA bepalen of excel draait

[jarsky]

Hallo,

ik kom er even niet meer uit. Wat wil ik:

Ik wil vanuit Access middels een VBA script bepalen of er een Excel werkboek open staat (geopend is), en daarna wil ik kijken of ergens op een werkblad in dit werkboek een bepaalde tekenreeks voorkomt waardoor ik zeker weet dat het juiste excelbestand is. Dit Werkblad is altijd hetzelfde (ook van opmaak) ongeacht de bestandsnaam van de excelfile.
Als de waarde voorkomt dan moet Access namelijk informatie uit het geopende excel bestand verzamelen voor gebruik later in het script . Dit laatste stukje werkt al, maar dan laat ik vooraf de gebruiker de excel file openen middels een filedialog etc.

Het is nu dus de bedoeling dat de gebruiker de excel file open heeft staan en dat Access kijkt of het de juiste file is en dan gegevens ophaalt

Kijken of excel openstaat dat lukt nog wel met getobject maar daarna ben ik de weg kwijt. Wie wil en kan mij op weg helpen:

Private Sub testExcelRunning()

    On Error Resume Next 
    Dim excelObj As Object
          excelObj = GetObject(, "Excel.Application")
    If Err.Number = 0 Then
        MsgBox("Excel is running")'even een test of het inderdaad werkt


       'vanaf hier moet ik gaan bepalen welk werkboek is er dan geopend en of er op een sheet in dit werkboek een bepaalde tekenreeks voorkomt.
       'In de excel file is de tekenreeks waar naar wordt gekeken een array naam "PL" de inhoud van deze array is bijvoorbeeld altijd "Test"


    Else
        MsgBox("Het juiste Excel bestand is niet gevonden. blablabla")
    End If
    Err.Clear()
    excelObj = Nothing 

End Sub

mvgr Jan