Jump to content

[VB6] Ler Celulas das WorkSheets - How To


NuGuN
 Share

Recommended Posts

Como o titulo da thread indica, o código que aqui vou deixar serve para ler células das Worksheets do Excel.

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"

Talvez o numero 11.0 possa variar de uns computadores para outros caso tenham uma versão do Office diferente da minha (Office 2003)

Cumps

Link to comment
Share on other sites

Epa... possível é mas eu nunca escrevi nas worksheets, é uma questão de se experimentar 😄

Imprimir sei como é, quando virmos as outras cenas que me falaste vimos também isso :P

Cumps

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.