Macro export objects to QVD

[#1]

Hello,

I want to export 2 objects to 1 QVD.

Can someone help me ?

Sub ServerExport
set obj = ActiveDocument.GetSheetObject("CH183")
set obj2 = ActiveDocument.GetSheetObject("CH174")
File = activedocument.Evaluate("'C:\Users\vanweje\Desktop\Klanten\Intern\data\test1' & timestamp(now(), 'YYYYMMDDhhmm') & '.qvd'")
obj.ExportEx File, 5
obj2.ExportEx File, 4
msgbox("Exported Table")



End Sub