2 Replies Latest reply: Feb 16, 2011 10:31 AM by Claudio Rinnert RSS

    Exportar para QVD via macro

    washington alex

      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

          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
            Claudio Rinnert

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