huubvandesande
Gebruiker
- Lid geworden
- 22 feb 2011
- Berichten
- 9
L.S.,
onderstaande code gebruik ik om een bestelling om te zetten naar een pdf met gebruikmaking van bepaalde cellen met een naam. Ik Wil nu omdat het verschillende goederen betreft deze niet opslaan in een vooraf ingestelde directory (zoals vaak wordt aangeven) maar in een directory vrij naar keuze. De naam moet wel zijn samengesteld uit het werkblad. Ik heb al wat geprobeerd e.e.a. te wijzigen maar blijf ronddraaien zonder goed resultaat. Graag Uw hulp in deze.
Met vriendelijke groet,
Huub.
onderstaande code gebruik ik om een bestelling om te zetten naar een pdf met gebruikmaking van bepaalde cellen met een naam. Ik Wil nu omdat het verschillende goederen betreft deze niet opslaan in een vooraf ingestelde directory (zoals vaak wordt aangeven) maar in een directory vrij naar keuze. De naam moet wel zijn samengesteld uit het werkblad. Ik heb al wat geprobeerd e.e.a. te wijzigen maar blijf ronddraaien zonder goed resultaat. Graag Uw hulp in deze.
Code:
Private Sub CommandButton1_Click()
' Dim OutApp As Object "als het via mail verzonden gaat/moet worden"
' Dim OutMail As Object "als het via mail verzonden gaat/moet worden"
' Dim strbody As String "als het via mail verzonden gaat/moet worden"
Dim MyName
MyName = Format(Now, "yyyy mm dd") & "_" & Range("D32") & "_" & Range("C1") '& Range("O50")
Dim data(4)
With Sheets("aanvraag")
data(0) = .Range("D18").Value 'datum aanvraag
data(1) = .Range("D16").Value 'aanvrager
data(2) = .Range("D32").Value 't.b.v.:
data(3) = .Range("D33").Value 'wat/goederen aangevraagd
End With
ChDir "C:\Temp\Bestelling"
Workbooks.Open FileName:=("C:\temp\bestelling\Overzicht_bestellingen.xlsm")
Sheets("Blad1").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 4) = data
ActiveWorkbook.Save
ActiveWorkbook.Close
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="G:\LEE\DINFRA\EXO_MO\Team\17_100_10_Executief\Unitleiding\Bestelling\" & MyName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Met vriendelijke groet,
Huub.