excel: sheet exists-function uden at åbne filen

Det kan man ikke. Du kan ikke se indholdet af en fil uden at åbne den. Og det gør det første eksempel i øvrigt faktisk også.

ok.... men det gør sådan set heller ikke noget at computeren åbner og lukker filen for at se på den, sålænge dette ikke er fysisk synligt.

Følgende kode fra spm. 23945 tjekker om filen eksisterer uden at man kan se at den åbner og lukker den.

Function FilEksisterer(ByVal FilNavn As String) As Boolean
    Dim f As Integer
    f = FreeFile
    On Error GoTo FindesIkke
    Open FilNavn For Input As #f
    FilEksisterer = True
    Close #f
    Exit Function
FindesIkke:
    FilEksisterer = False
End Function

Jeg er interesseret i noget lignende, blot skal den tjekke om sheet'et eksisterer i stedet for filen.

Desværre kan jeg heller ikke lige komme på med en løsning - den kode som finder sheetet er skrevet i VBA og er altså beregnet til at blive afviklet fra selve Excel-applikationen. Den kan sikkert tilpasses til at køres ”udefra” men det rækker min ekspertise ikke lige til. :^|

Prøv med denne kode:

Private xlApp As Excel.Application
Private xlBook As Object
Private xlArk As Object

Private Sub Command1_Click()
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
   
    Set xlArk = xlApp.ActiveWorkbook.Worksheets(1)
    Set xlBook = xlApp.Workbooks.Open("c:\test.xls")

    xlApp.Visible = False

    For Each xlArk In xlApp.ActiveWorkbook.Worksheets
        If xlArk.Name = "Ark2" Then
            MsgBox (xlArk.Name) & " fundet!"
            Exit For
        End If
    Next
   
    Set xlArk = Nothing
    Set xlBook = Nothing
    xlApp.Quit
    Set xlApp = Nothing

End Sub

I en funktion med kald fra fx: CheckArk ("Ark2")

Private xlApp As Excel.Application
Private xlBook As Object
Private xlArk As Object

Public Function CheckArk(arkNavn As String)

    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
   
    Set xlArk = xlApp.ActiveWorkbook.Worksheets(1)
    Set xlBook = xlApp.Workbooks.Open("c:\test.xls")

    xlApp.Visible = False

    For Each xlArk In xlApp.ActiveWorkbook.Worksheets
        If xlArk.Name = arkNavn Then
            MsgBox (xlArk.Name) & " fundet!"
            Exit For
        End If
    Next
   
    Set xlArk = Nothing
    Set xlBook = Nothing
    xlApp.Quit
    Set xlApp = Nothing

End Function

brynil
det virker som det skal.... hvis du smider et svar, har jeg nogle point til dig!

Fornemt-tak!