topic Exportar para QVD via macro in Brasil

Exportar para QVD via macro

Anonymous — Wed, 16 Feb 2011 13:35:17 GMT

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

Exportar para QVD via macro

Wed, 16 Feb 2011 14:01:13 GMT

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

set tb = ActiveDocument.GetSheetObject("TB01")

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

Exportar para QVD via macro

Wed, 16 Feb 2011 15:31:02 GMT

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...