topic Re: VBScript in Brasil

VBScript

valerioms — Fri, 29 Sep 2017 15:27:03 GMT

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.

Re: VBScript

rogerioalmeida — Fri, 29 Sep 2017 17:44:10 GMT

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.

Re: VBScript

valerioms — Fri, 29 Sep 2017 17:58:39 GMT

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

Re: VBScript

vvira1316 — Fri, 29 Sep 2017 18:08:31 GMT

Valerio,

Following thread may help

Macro to Export Multiple Object into Multiple sheet loop by Field and store it into paritcular Location

Re: VBScript

valerioms — Fri, 29 Sep 2017 18:24:57 GMT

Thanks but that's not what I need.

Re: VBScript

vvira1316 — Fri, 29 Sep 2017 18:31:51 GMT

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

Re: VBScript

valerioms — Fri, 29 Sep 2017 18:53:31 GMT

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.

Re: VBScript

Marcio_Campestrini — Fri, 29 Sep 2017 19:18:54 GMT

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?

Re: VBScript

valerioms — Fri, 29 Sep 2017 19:25:39 GMT

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?

Re: VBScript

Clever_Anjos — Fri, 29 Sep 2017 19:52:21 GMT

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

Re: VBScript

MarcoARaymundo — Fri, 29 Sep 2017 20:08:47 GMT

Valério você quer que o Qlikview abra o arquivo anexo e execute a sub Consulta_Arquivos()?

Tenta assim:

Dim vAppExcel As Excel.Application

Dim vWorkBook As Excel.Workbook

Set vWorkBook = vAppExcel.Workbooks.Open("mascara.xlsx")

vAppExcel.Run "MacroBook!Consulta_Arquivos"

Lembrando que:

se sua aplicação for rodar no servidor (QMC) é necessário verificar se o usuário do Qlikview no servidor tem acesso para gravar.

Geralmente os arquivos que o qlikview ira ler/gravar será no servidor web, e, é lá que voce deve colocar o ser arquivo.

Re: VBScript

pablolabbe — Sat, 30 Sep 2017 00:10:14 GMT

Macros VB no Qlikview ? Use em ultimo caso por que é duro fazer debug e testes....

Re: VBScript

afurtado — Sat, 30 Sep 2017 01:20:59 GMT

Somente uso para disparar e-mails.....