Exportar para QVD via macro

[Anonymous]

Olá a todos,

Eu tenho uma macro que exporta uma tabela para o arquivo QVD.
Sempre que eu exporto ele substitui o arquivo anterior.
Tem alguma maneira para concatenar os dados?

sub ASR

set obj = ActiveDocument.GetSheetObject("CH234")
set val=ActiveDocument.Fields("MES").GetPossibleValues

MES = val.Item(i).Text

obj.ExportEx "D:\Desenv\Qvd\ASR"&MES&".qvd", 4
msgbox("Tabela exportada")

end sub