Auteur Topic: Knop in formulier bestand openen (gelezen 867 keer)

Jempje · « **Gepost op:** 13 februari 2021, 13:38:25 »

Hallo, ik ben op zoek naar volgende VBA code:
Ik heb een knop in een formulier waarmee ik een bestand wil openen vanaf de harde schijf.
Als het bestand al geopend is zou er een msgbox moeten verschijnen "bestand is reeds geopend"

SoftAid · « **Reactie #1 Gepost op:** 13 februari 2021, 14:19:41 »

Dat kan je op deze manier opvangen:

Option Explicit

Code: [Selecteer]

Sub Voorbeeld()
    Dim bestand

   bestand = IsWorkBookOpen("C:\het te openenwerkboek.xlsx")

    If bestand = True Then
        MsgBox "Bestand is al open"
    Else   'dit kan je weglaten
        MsgBox "Bestand is niet open" ' dit kan je weglaten
    End If
End Sub

SoftAid

Jempje · « **Reactie #2 Gepost op:** 13 februari 2021, 15:54:48 »

Hallo SoftAid, Ik krijg een foutmelding, heb er ook _Click aan moeten toevoegen. In bijlage de foutmelding en code. Bedankt alvast !

SoftAid · « **Reactie #3 Gepost op:** 13 februari 2021, 16:37:25 »

Hallo Jempje,

probeer dit eens in je code:

Code: [Selecteer]

Sub cmd1_click()

If Not IsWorkbookOpen("C:\Voorbeeldbestand.xlsm") Then
    Workbooks.Open ("C:\Voorbeeldbestand.xlsm")
Else Msgbox(" Het bestand is al geopend")
End If

End Sub

SoftAid

Jempje · « **Reactie #4 Gepost op:** 13 februari 2021, 17:40:51 »

Hallo SoftAid, Nog steeds dezelfde fout, zie bijlage. Heeft het niet te maken dat het bestand rechtstreeks op de C Schijf staat? Wat is de route als ik het onder documenten zet? Dan test ik dat eens.

RedHead · « **Reactie #5 Gepost op:** 13 februari 2021, 18:21:16 »

SoftAid, je roept een functie in je check aan die je er niet bij hebt. Ik heb even snel van internet zo'n functie geplukt die de check kan uitvoeren (zit lekker op de bank met m'n tablet en kan nu niet zelf ff een eigen voorbeeld aanleveren).

Code: [Selecteer]

 Private Function IsWorkBookOpen(ByVal FileName As String) As Boolean
    On Error Resume Next
    Dim wb As Workbook
    Set wb = Application.Workbooks(FileName) ' throws error 9 if non-existing
    Err.Clear
    On Error GoTo 0
    IsWorkbookOpen = Not wb Is Nothing
End Function

Jempje · « **Reactie #6 Gepost op:** 13 februari 2021, 18:54:24 »

Halle Excel pro's, werkt nu wel. Heb wel een probleempje als ik bestanden wil openen zoals bv .pdf. en ook andere. Dat werkt dan weer niet, deze opent die ook in excel met allerlei rare codes. Kan dit ook met iets aan de code toe te voegen?

Jempje · « **Reactie #7 Gepost op:** 13 februari 2021, 18:58:58 »

Wat ik ook net merk is dat als het bestand open is en ik klik op de knop, er geen msgbox verschijnt maar dan is het net of het bestand weer opent.

Help!

Menu

Hulp bij posten

Zoeken

Recente topics