Блог

Я пытаюсь сохранить Лист1 (с именем Werk)в savelocation1 и Лист2 (с именем Klant) в savelocation2.

С помощью этого скрипта Лист1 и Лист2 будут сохранены в savelocation1 и savelocation2.

 ActiveWorkbook.CheckCompatibility = False

Dim Path As String
Dim filename1 As String
Dim filename2 As String
Dim savelocation1 As String
Path1 = Blad1.Range("N67")
Path2 = Blad1.Range("N66")
filename = Blad1.Range("N68")

savelocation1 = Path1 amp; filename
savelocation2 = Path2 amp; filename

'Save active workbook as PDF
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
    filename:=savelocation1

    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
    filename:=savelocation2