Tippimakro

tippimakro.vbs

Sub pdfTest()
Dim sFile As Variant
Dim strPath As String
Dim strPathFile As String
Dim strSaveBasePath As String
Dim strCurrentMonth As String
Dim targetTime As Variant

targetTime = Now()
'targetTime = CDate("2021-01-01 03:00:00")

If Hour(targetTime) <= 5 Then
    targetTime = DateAdd("d", -1, targetTime)
End If

Debug.Print targetTime

strSaveBasePath = "\\office\tiedostot\Veikkaus_tyoryhmat\Pelisalien kirjanpito\Feel Vegas Helsinki Tripla\Tipit"

strCurrentMonth = WorksheetFunction.Proper(WorksheetFunction.Text(targetTime, "[$-040B]mmmm"))

strPath = strSaveBasePath & "\" & strCurrentMonth & " " & Format(targetTime, "yyyy")

strPathFile = strPath & "\" & Format(targetTime, "yyyy mm dd") & " Tipit"






sFile = Application.GetSaveAsFilename _
(InitialFileName:=strPathFile, _
  FileFilter:="PDF Files (*.pdf), *.pdf", _
  Title:="Tarkista sijainti")

If sFile <> "False" Then
    ActiveWorkbook.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=sFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    
End If
End Sub