• 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.

opslaan op een andere locatie dmv Visual Basic

Status
Niet open voor verdere reacties.
J

jos0707

Gebruiker
Lid geworden
17 jun 2011
Berichten
75
Ik zou graag een excelblad (excel 2010)opslaan als pdf op een locatie die ik zelf kies. Nu wordt diet dmv mijn macro opgeslagen op de locatie waar het xlsm bestand staat.
Deze locatie zou ik graag dmv een macro kunnen kiezen.
Alvast bedankt voor de hulp.
 

Bijlagen

  • Map3.xlsm
    16,9 KB · Weergaven: 32
Neem eens een macro op met de macrorecorder.
 
Of plak deze code in je bestand...
Code: 
Sub TestFolderPath()
    MsgBox GetFolderPath()
End Sub

Code: 
Function GetFolderPath()
Dim dlg As FileDialog
     
        Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
        With dlg
            .InitialView = msoFileDialogViewList
            If .Show = -1 Then
                GetFolderPath = dlg.SelectedItems(1)
            Else
                GetFolderPath = "Je hebt het venster weggeklikt..."
            End If
        End With
     
    Set dlg = Nothing
End Function
 
dat heb ik gedaan maar dan krijg ik een vaste plaats met een vaste naam. Ik wil als naam de naam gebruiken die in cel F1 staat en dmv een msg box kunnen kiezen op welke locatie ik wil opslaan.
 
Hallo OctaFish,
Het lukt niet deze in mijn macro in te voegen zonder foutmeldingen.
 
Code: 
Sub Macro3()

    ActiveSheet.ExportAsFixedFormat 0, GetFolderPath & "\" & Sheets("Blad1").Range("F1") & ".pdf"

End Sub

Function GetFolderPath()
Dim dlg As FileDialog
     
        Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
        With dlg
            .InitialView = msoFileDialogViewList
            If .Show = -1 Then
                GetFolderPath = dlg.SelectedItems(1)
            Else
                GetFolderPath = "Je hebt het venster weggeklikt..."
            End If
        End With
     
    Set dlg = Nothing
End Function
 
Bedankt warme bakkertje, dat werkt prima. Nog 2 zaken. Ik zou graag hebben dat hij vroeg of de reeds bestaande pdf mag overschreven worden en dat hij dan de pdf laat zien (OpenAfterPublish:= _True)
Hartelijk dank!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan