Defini-se as variáveis:
Option Explicit
Dim mySheets As Object
Dim Excel_App As New Excel.Application
Dim Excel_Sheet As Excel.Worksheet
Coloca-se este código no evento de um botão por exemplo.
Excel_App.Workbooks.Open "Directorio_da_WorkSheet.xls"
Excel_App.Workbooks(1).Activate
Set Excel_Sheet = Excel_App.ActiveWorkbook.Sheets("Numero da Folha")
Excel_Sheet.Activate
MsgBox Cells("Numero da Linha", "Numero da Coluna")
Excel_App.Quit
"Numero da Folha" - Quando um documento tem várias folhas escolhe-se aqui o numero da folha(1, 2, 3, etc..)
"Numero da Linha" e "Numero da Coluna" - Onde se coloca o numero da linha e da coluna correspondente á célula que se quer.
E por ultimo temos de adicionar uma Referencia para que este código funcione. Menu "Project" -> "References..." e depois aparece uma janela com uma lista com as várias referencias que têm disponiveis, o que devem escolher tem o nome de "Microsoft Excel 11.0 Object Library"
O numero 11.0 varia de uns computadores para outros caso tenham uma versão do Office diferente.
Para o Office 2003 usa se a que esta em cima mencionada 11.0
Para o Office 2010 usa se a 14.0
Mas é fácil encontrar visto que nesta lista aparece apenas com o nome microsoft excel **.* Library.
O numero **.* depende do que tiverem instalado.
Sem comentários:
Enviar um comentário