Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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.
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.
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()").
Valerio,
Following thread may help
Thanks but that's not what I need.
What you want to do or achieve. Can you please explain in English?
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.
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?
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?
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