• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Verkenner openen

Status
Niet open voor verdere reacties.

SUVERMO

Gebruiker
Lid geworden
22 dec 2019
Berichten
478
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
 
oei, dat wordt een harde dobber
2° als de map C:\DierenMakkelijk\PDF\ reeds geopend is, deze dan eerst sluiten.
 
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 bewerkt:
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
 
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 bewerkt:
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 bewerkt:
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
 
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
 
1:
Code:
Sub hsv()
With Application.FileDialog(msoFileDialogOpen)
  .InitialFileName = Environ("userprofile")
  .Filters.Add "Adobe PDF-bestanden (.pdf)", "*.pdf", 3
  .FilterIndex = 3
   If .SelectedItems.Count = 1 And .Show Then
       Shell "taskkill /IM AcroRd32.exe"
       Sheets(1).ExportAsFixedFormat 0, .SelectedItems(1)
   End If
 End With
End Sub
 
Code:
Sub M_snb()
  Application.Dialogs(5).Show "G:\OF\", 57               '   PDF
End Sub

NB. Excel 2010.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan