gg

Java code posted
created at 18 Nov 01:24, updated at 30 Nov 11:45

Edit | Back 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sheets("Wochenplan").Select
    Dim Datum1 As String
    Datum1 = Range("B1").Value
    Dim Datum2 As Date
    Datum2 = DateValue(Datum1)
    
    Dim Dateiname As String
    Dateiname = "woche-" + Format(Datum2, "yyyy-mm-dd") + ".pdf"
    
    MsgBox "Dateiname: " + Dateiname

    
    
    Sheets("Wochenplan").Select
    ChDir "\\ugisr0672\dienstplan$"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "\\ugisr0672\dienstplan$\" + Dateiname, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
613 Bytes in 2 ms with coderay