如何用代码导出IE的收藏夹

当我使用下面的方法试图导出收藏夹时，出现"对象不支持该动作"的错误Dim ObjSUH As SHDocVw.ShellUIHelper
Set ObjSUH = New SHDocVw.ShellUIHelperObjSUH.ImportExportFavorites False, "c:\book.htm"
Set ObjSUH = Nothing
已在引用中添加了对象Microsoft Internet Controls。
我记得以前可以的，自从IE升级之后就不行了。
请大家教我。