Macro execution failing in QV12 version

[kkkumar82]

All,

I am running the following macro from QV12 SR1 and it is failing but when I tried the same with QV11 SR12 it is getting success,

sub straighttoqvd

    set obj = ActiveDocument.GetSheetObject("TB01")

    obj.ExportEx "E:\Qvds\StarRanking.qvd",4

end sub

When I test the macro in editor it is showing an error in the third line, is there a way or change in QV 12 for exporting objects.