Salva o conteúdo de storage OLE VBA XLS clássico preservado da pasta de trabalho em um arquivo composto. Use isso quando um aplicativo precisar arquivar, transferir ou reanexar o conteúdo VBA bruto separadamente do arquivo da pasta de trabalho
Sintaxe
function SaveVBAProjectToFile(FileName: WideString): Integer;
Valor de retorno
Retorna 1 quando o conteúdo é salvo; retorna um valor negativo quando a pasta de trabalho não tem conteúdo VBA ou o arquivo não pode ser criado
Exemplo
if Workbook.HasVBAProject then
Workbook.SaveVBAProjectToFile('C:\Reports\MacroPayload.ole');
Veja também