Excel VBA Tjek om regnearket allerede er åbent

http://stackoverflow.com/questions/9373082/detect-whether-excel-workbook-is-already-open-using-vba

Prøv:

Hej Store-Morten

Tak for løsningen.
Men den er desværre prøvet og virker af en eller anden årsag ikke. (se koden nedenstående)

Som du kan se har jeg for at tjekke stien, prøvet at åbne arket med samme sti efter din kode. Det virker fint.

Har du et godt forslag, til en anden løsning?

Sub testÅben()

    Dim TestWorkbook As Workbook

    Set TestWorkbook = Nothing
    On Error Resume Next
    '("Personal.xls") <-- tilrettes
    Set TestWorkbook = Workbooks("Q:\DK Servicecenter\Indkøb\Indkøb\00 DK\JPE\Diverse\Fordelingsnøgle\Bestordre.xls")

    On Error GoTo 0

    If TestWorkbook Is Nothing Then
        MsgBox "Filen er ikke åben!"
    Else
        MsgBox "Filen er åben!"
    End If
   
Application.Workbooks.Open ("Q:\DK Servicecenter\Indkøb\Indkøb\00 DK\JPE\Diverse\Fordelingsnøgle\Bestordre.xls")
   
 
End Sub

Tjek om Personal.xls er rigtig

Excel 2010 er det:
Personal.xlsx og Personal.xlsm hvis der er makro i.

Hej Store-Morten

.xls er det korrekte der er tale om en ældre version af Excel, jeg formorder heller ikke stien under din kode vil virke hvis filformatet var forkert.

Det går galt li linien som starter med Set testWorkbook = .......

Kan bare ikke finde ud af hvorfor?

Prøv at lægge begge filer i samme mappe

Prøv denne version:

Hej Store-Morten

Super godt det virker, smid et svar!

Bonus spørgsmål: Kender du en måde at komme uden om "on error resume next", da det interferer lidt med min allere oprettede fejlkontrol i den resterende kode.

Glem bonus spørgsmålet - løsning fundet ;-)

Velbekomme