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