LEITURA DE PLANILHA EXCEL

SVS99 24/11/2009 19:34:05
#328520
Ola AMigos

Ja li planilhas em Excel algumas vezes mas agora surgiu um problema.Dentro do arquivo eu tenho varias planilhas, cada uma com um nome diferente.

Eu gostaria de pegar o nome dessa planilha para utiliza-lo.Porem como fazer isso?


Obrigado e um ABraço
MARCOSLING 24/11/2009 20:11:00
#328521
é só usar o método count da classe Worksheets
daí então, vc tem a quantidade de planilhas e logo dá pra saber o nome das planilhas.

Certo?
MARCELO.TREZE 24/11/2009 22:01:18
#328525 Resposta escolhida
se vc quizer selcionar em tempo de execução

seria assim

faça a Referencia a MICROSOFT EXCEL XX OBJECT LIBRARY

coloque em um novo projeto, 01 TextBox, 01 Combobox, e 01 comondialog

e cole o seguinte código

Private Sub Combo1_Click()
Dim Excel As Object
Set Excel = CreateObject([Ô]Excel.Application[Ô])
With Excel
.Workbooks.Open FileName:=Text1.Text [ô]abre a o documento
.Sheets(Combo1.Text).Select [ô]seleciona a planilha
.Range([Ô]A1[Ô]).Select [ô]seleciona a cellula A1 da planilha escolhida
MsgBox .ActiveCell.Value [ô]exibe o conteudo da cellula
[ô].ActiveCell.Value = 20
End With
End Sub


abixo o código ira abrir a caixa de dialogo, vvocê ira escolher o arquivo, e automaticamente a combo será preenchida com os nomes
das planilhas

Private Sub Command1_Click()
Dim Excel As Object
Dim Wrk As Object
Dim Sht As Object
With CommonDialog1
.Filter = [Ô]Excel Files (*.xls)|*.xls|All Files (*.*)|*.*[Ô]
.MaxFileSize = 254
.ShowOpen
   Text1.Text = Trim$(.FileName)
    Combo1.Clear
    Set Excel = CreateObject([Ô]Excel.Application[Ô])
    Set Wrk = Excel.Workbooks.Open(Text1.Text, False, True)
    For Each Sht In Wrk.Worksheets
        Combo1.AddItem Sht.Name [ô]inclui a planilhas na combo
    Next
   [ô] Combo1.ListIndex = 0
    DoEvents
    Wrk.Close False
    Excel.Quit
    Set Excel = Nothing
    Set Wrk = Nothing
    Set Sht = Nothing
    End With
End Sub


se não for isto em combo1_click esta a forma de se abrir uma planilha especifica

ou seja

.Sheets([Ô]Nome da Planilha[Ô]).Select


e boa sorte
SVS99 28/01/2010 18:03:57
#333058
Muito Obrigado MARCELO-TREZE

E exatamente isso o que eu quero, agora so tenho que adaptar o exemplo a minha necessidade e ja tendo a forma de pegar o nome da planilha, ficara facil agora resolver o meu problema.

Obrigado e um Abraço
Tópico encerrado , respostas não são mais permitidas
Voltar