In this macro is to inform only the columns you want to export?
Also the target path with the field name or function, the day that the file is being exported?
sub export
set obj = ActiveDocument.GetSheetObject("CH11")
obj.ExportEx "D:\Desenv\Qvd_Planejamento_Compra\tabela_teste.qvd", 4
end sub