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

[#2]

tente usar o AppendExport, não sei se funciona com qvd.

set tb = ActiveDocument.GetSheetObject("TB01")

tb.AppendExport "C:\test.skv",";"

[#3 · Accepted solution]

Washington, pelo fato do QVD ser um arquivo com estrutura interna própria, e compactado, não é possível extendê-lo como faz-se com arquivos texto, por exemplo.

Na função ExportEX até existe um terceiro parâmetro que é um flag para extender arquivos já existentes, mas só funciona para arquivos expansíveis, que não é o caso de um QVD.

Não sei como é teu processo, nem como é tua lógica com estes QVDs, mas observei que tens um MES na composição do nome do arquivo. Caso tenhas controle de carga destes QVDs, poderias colocar um tipo de contador sequencial para ter vários QVDs no diretório, um para cada exportação da tabela.

Outra opção seria passares a utilizar arquivo CSV, este sim, expansível:

obj.ExportEX "D:\Desenv\Qvd\ASR"&MES&".csv", 1, true, ";"

Abraços, sãopaulino...