Qlik Community

Qlik Brasil

Group community for Brazil users. discussion only in Portuguese.

Highlighted
valerioms
New Contributor III

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.

Tags (2)
12 Replies
rogerioalmeida
Contributor

Re: VBScript

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
New Contributor III

Re: VBScript

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()").

vvira1316
Valued Contributor II

Re: VBScript

valerioms
New Contributor III

Re: VBScript

Thanks but that's not what I need.

vvira1316
Valued Contributor II

Re: VBScript

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

valerioms
New Contributor III

Re: VBScript

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.

MCampestrini
Valued Contributor

Re: VBScript

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
New Contributor III

Re: VBScript

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?

Employee
Employee

Re: VBScript

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