Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 8 van 8

Onderwerp: Verkenner openen

  1. #1
    Senior Member
    Geregistreerd
    22 december 2019
    Vraag is niet opgelost

    Verkenner openen

    beste forumleden,

    Onderstaande macro maakt een PDF en opent de verkenner
    Code:
    Sub Stamboom_opslaan_als_PDF()
    Range("Stamboom!$C$6:$N$38").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\DierenMakkelijk\PDF\" & Range("Stamboom!$F$5").Value
    Call Shell("explorer.exe C:\DierenMakkelijk\PDF\", vbNormalFocus)
    End Sub
    Kan iemand deze uitbreiden met volgende
    1° als het te maken bestand reeds geopend is, deze dan eerst sluiten.
    2° als de map C:\DierenMakkelijk\PDF\ reeds geopend is, deze dan eerst sluiten.
    3° de afmeting die explorer.exe gebruikt beperken tot ¼ van het scherm

  2. #2
    Giga Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    oei, dat wordt een harde dobber
    2° als de map C:\DierenMakkelijk\PDF\ reeds geopend is, deze dan eerst sluiten.

  3. #3
    Senior Member
    Geregistreerd
    22 december 2019
    of als reeds geopend dan niet meer openen

  4. #4
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    In het geval van #3 kan het met dit: (Start de Sub Routinenaam)
    Code:
    Sub OpenFolder(Naam As String)
        Dim oShell As Object
        Dim Wnd As Object
        
        Set oShell = CreateObject("Shell.Application")
        For Each Wnd In oShell.Windows
            If Wnd.Name = "Verkenner" Then
               If Wnd.Document.Folder.Self.Path = Naam Then Exit Sub
            End If
        Next Wnd
        
        CreateObject("Wscript.Shell").RegWrite _
            "HKCU\Software\Microsoft\Office\" & Application.Version & _
            "\Common\Security\DisableHyperlinkWarning", 1, "REG_DWORD"
        
        Application.ThisWorkbook.FollowHyperlink Address:=Naam, NewWindow:=True
    
        CreateObject("Wscript.Shell").RegWrite _
            "HKCU\Software\Microsoft\Office\" & Application.Version & _
            "\Common\Security\DisableHyperlinkWarning", 0, "REG_DWORD"
    
    End Sub
    
    Sub Routinenaam()
        OpenFolder "C:\DierenMakkelijk\PDF"
    End Sub
    Laatst aangepast door edmoor : 13 januari 2021 om 10:42
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  5. #5
    Senior Member
    Geregistreerd
    22 december 2019
    bedankt edmoor

    zo werkt het blijkbaar ook

    Code:
    Sub Stamboom_opslaan_als_PDF()
    Range("Stamboom!$C$6:$N$38").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\DierenMakkelijk\PDF\" & Range("Stamboom!$F$5").Value
    OpenFolder "C:\DierenMakkelijk\PDF"
    End Sub
    
    
    Sub OpenFolder(Naam As String)
    'voorkomt dat verkenner nogmaals C:\DierenMakkelijk\PDF opent
    
        Dim oShell As Object
        Dim Wnd As Object
        
        Set oShell = CreateObject("Shell.Application")
        For Each Wnd In oShell.Windows
            If Wnd.Name = "Verkenner" Then
               If Wnd.Document.Folder.Self.Path = Naam Then Exit Sub
            End If
        Next Wnd
        
        CreateObject("Wscript.Shell").RegWrite _
            "HKCU\Software\Microsoft\Office\" & Application.Version & _
            "\Common\Security\DisableHyperlinkWarning", 1, "REG_DWORD"
        
        Application.ThisWorkbook.FollowHyperlink Address:=Naam, NewWindow:=True
    
        CreateObject("Wscript.Shell").RegWrite _
            "HKCU\Software\Microsoft\Office\" & Application.Version & _
            "\Common\Security\DisableHyperlinkWarning", 0, "REG_DWORD"
    
    End Sub
    Kan iemand deze uitbreiden met volgende
    1° als het te maken bestand reeds geopend is, deze dan eerst sluiten.
    3° de afmeting die explorer.exe gebruikt beperken tot ¼ van het scherm

  6. #6
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    Gebruik application.filedialogs.

    Gebruik de lock down produktief: volg een cursus VBA voor absolute beginners: leer eerst het alfabet voordat je aan de taal begint.
    Laatst aangepast door snb : 13 januari 2021 om 11:29
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  7. #7
    Giga Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    even verstand op nul na vorige reactie, de aanpassingen van Edmoor hebben het probleem 2 opgelost en dus resten enkel nog problemen 1 en 3 ???
    Zie mijn reactie #2, openen en sluiten van een map, vind ik dat nogal dubieus.
    Laatst aangepast door cow18 : 13 januari 2021 om 13:49

  8. #8
    Senior Member
    Geregistreerd
    22 december 2019
    1 en 3 zijn nog niet opgelost.

    1° als het te maken PDF bestand reeds bestaat en het is geopend dan dit eerst sluiten omdat het anders fout gaat bij het opnieuw maken.

    3° de afmeting die explorer.exe gebruikt beperken tot ¼ van het scherm

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren