Skip to main content
Announcements
Have questions about Qlik Connect? Join us live on April 10th, at 11 AM ET: SIGN UP NOW
cancel
Showing results for 
Search instead for 
Did you mean: 
valerioms
Creator
Creator

VBScript

Boa tarde!

Preciso criar um vbscript numa app que vai abrir o arquivo (em anexo) e nos módulos executar dentro do módulo Consulta apenas a Sub Consulta_Arquivos(). É possível? No aguardo, obrigado.

12 Replies
rogerioalmeida
Creator
Creator

Valerio,

Posso não ter entendido bem a pergunta, poderia explicar melhor? porque até onde entendi no fim das contas você precisa acessar uma informação que está no excel, você não poderia deixar essa informação em uma aba tabulada?

Desculpa se não entendi direito.

valerioms
Creator
Creator
Author

Desculpe eu Francisco mas o que é aba tabulada? Você viu o anexo que enviei? Trata-se de uma planilha que será alimentada pelos dados exportados da app. Por isto preciso colocar dentro da app um vbscript que fará com esta exportação ocorra (este já tenho) e o acionamento da alimentação da planilha também (solicitado, "abrir o arquivo (a planilha) e nos módulos executar dentro do módulo Consulta apenas a Sub Consulta_Arquivos()").

valerioms
Creator
Creator
Author

Thanks but that's not what I need.

vvira1316
Specialist II
Specialist II

What you want to do or achieve. Can you please explain in English?

valerioms
Creator
Creator
Author

I need to create a vbscript in an app that will open the file (attached) and on the modules run inside the Query module just Sub Consulta_Arquivos (). You can? The file is attached at the beginning of the discussion.

Marcio_Campestrini
Specialist
Specialist

Valerio

Você quer somente ler uma planilha Excel? Se for isso, o Qlikview faz naturalmente, sem necessidade de macros.

Se não for, não é possível o sistema gerar a informação no formato que você deseja?

Márcio Rodrigo Campestrini
valerioms
Creator
Creator
Author

Olá Márcio, não, não é somente leitura da planilha. Se você viu o anexo, constatou que é uma máscara com fórmulas. Eu tenho uma app que exporta dados para esta máscara. Para que ela seja alimentada tenho que entrar manualmente na área de script (através do ALT+F11) e nos módulos executar apenas a Sub Consulta_Arquivos do módulo Consulta. O que preciso é criar na app um script que elimine o trabalho manual. Entendeu?

Clever_Anjos
Employee
Employee

Se eu entendi, é o seguinte

Set objExcelApp = CreateObject("Excel.Application")

objExcelApp.Visible = true

objExcelApp.DisplayAlerts = false

Set objExcelDoc = objExcelApp.Workbooks.Add("G:\ExportaDF3.xltm")

ActiveDocument.GetSheetObject("CHDRF001").CopyTableToClipboard false

objExcelDoc.Sheets(1).Activate

objExcelDoc.Sheets(1).Cells(1,1).Select

objExcelDoc.Sheets(1).Paste

ActiveDocument.GetSheetObject("CH56").CopyTableToClipboard true

objExcelDoc.Sheets(1).cells(5,1).Select

objExcelDoc.Sheets(1).Paste

objExcelDoc.Application.run "MontaTotal"  -- Acho que voce quer isso aqui