_VBA_PROJECT_CUR 或 _VBA_PROJECT 作为顶级存储。
该方法会替换已附加到工作簿的任何 VBA 载荷
1;如果文件无法打开或不包含受支持的 VBA 存储,则返回负值
if Workbook.LoadVBAProjectFromFile('C:\Reports\MacroPayload.ole') = 1 then
Workbook.SaveAs('C:\Reports\MacroWorkbook.xls', xlExcel97);