Export QVD

[Anonymous]

Hello ..

I am using a macro that exports the fields of an object where it stores the information in QVD with path name plus the field "official".

sub export_Fluxo_Compra

set obj = ActiveDocument.GetSheetObject("CH03")
set val=ActiveDocument.Fields("FUNCIONARIO").GetPossibleValues
FUNCIONARIO = val.Item(i).Text
obj.ExportEx "D:\Desenv\Qvd_Planejamento_Compra\Simulação_Fluxo_Compra_"&official&".qvd", 4
end sub

I'm needing to improve this road over a field.

set obj = ActiveDocument.GetSheetObject("CH03")
set val=ActiveDocument.Fields("FUNCIONARIO").GetPossibleValues
FUNCIONARIO = val.Item(i).Text
obj.ExportEx "D:\Desenv\Qvd_Planejamento_Compra\Simulação_Fluxo_Compra_"&official&"_"&Field to add&".qvd", 4
end sub

Anyone know how?

Thanks.

[#2]

Alex,

Bom dia.

usei seu exemplo para fazer um teste e voce vai conseguir fazer desse jeito....

obj.ExportEx "D:\Desenv\Qvd_Planejamento_Compra\Simulação_Fluxo_Compra_"&official&"_"&

getVariable("VarTesteSalvar")&".qvd", 4

nesse caso precisa criar uma Variavel com esse nome, "VarTesteSalvar " e criar um campo de entrada, onde esse campo de entrada voce colocará o nome que quizer...  se colocar '12345' vai salvar Simulação_Fluxo_Compra_official_12345