Carrega um conteúdo de storage OLE VBA XLS clássico de um arquivo composto. O arquivo de origem deve conter _VBA_PROJECT_CUR ou _VBA_PROJECT como um storage de nível superior. O método substitui qualquer conteúdo VBA já anexado à pasta de trabalho
Sintaxe
function LoadVBAProjectFromFile(FileName: WideString): Integer;
Valor de retorno
Retorna 1 quando o conteúdo é carregado; retorna um valor negativo se o arquivo não puder ser aberto ou não contiver um storage VBA suportado
Exemplo
if Workbook.LoadVBAProjectFromFile('C:\Reports\MacroPayload.ole') = 1 then
Workbook.SaveAs('C:\Reports\MacroWorkbook.xls', xlExcel97);
Veja também