LER TODAS AS PLANILHAS DE UM ARQUIVO EXCEL
Ola Amigos
Tenho um arquivo em Excel que possui varias planilhas dentro dele.O numero de planilhas e variavel e eu preciso ler todas elas, algo do tipo Wlhie Not EOF , uma vez que eu nao sei quando chegara a ultima planilha.
A cada leitura da planilha eu preciso tambem pegar o nome dela para utiliza-la em uma rotina.
Mas como fazer isso?
Obrigado e um Abraço
Tenho um arquivo em Excel que possui varias planilhas dentro dele.O numero de planilhas e variavel e eu preciso ler todas elas, algo do tipo Wlhie Not EOF , uma vez que eu nao sei quando chegara a ultima planilha.
A cada leitura da planilha eu preciso tambem pegar o nome dela para utiliza-la em uma rotina.
Mas como fazer isso?
Obrigado e um Abraço
Como você esta abrindo a planilha?
Tarde, eu uso essa rotina pra verificar se uma planilha existe dentro da pasta, so que ela esta funcionando corretamente em VBA, nunca necessitei utilizar em vb.
Teste ai
Function VerificaBanco(Banco)
Achei = False
For x = 1 To Worksheets.Count
Nome = Worksheets.Item(x).Name
If Nome = Banco Then
Achei = True
Exit For
End If
Next x
If Achei Then
VerificaBanco = True
Else
VerificaBanco = False
End If
End Function
Teste ai
Function VerificaBanco(Banco)
Achei = False
For x = 1 To Worksheets.Count
Nome = Worksheets.Item(x).Name
If Nome = Banco Then
Achei = True
Exit For
End If
Next x
If Achei Then
VerificaBanco = True
Else
VerificaBanco = False
End If
End Function
Ola Amigos
Obrigado por sua ajuda
Hugo e assim que eu faço.
Dim ExcCreate As New Excel.Application
Dim ExcWork As Excel.Workbook
Dim ExcSheet As Excel.Worksheet
[ô]Abrir o arquivo do Excel
Set ExcWork = ExcCreate.Workbooks.Open(LblArquivo.Caption)
[ô]Le planilha especifica (Terceira Planilha)
Set ExcSheet = ExcCreate.Worksheets(3)
[Ô] Pego os dados por linha ecoluna
str_Shop = ExcWork.Application.Cells(1, 6).Value
CASSIOJFF
Vou experimentar o seu exemplo.
Obrigado e um Abraço
Obrigado por sua ajuda
Hugo e assim que eu faço.
Dim ExcCreate As New Excel.Application
Dim ExcWork As Excel.Workbook
Dim ExcSheet As Excel.Worksheet
[ô]Abrir o arquivo do Excel
Set ExcWork = ExcCreate.Workbooks.Open(LblArquivo.Caption)
[ô]Le planilha especifica (Terceira Planilha)
Set ExcSheet = ExcCreate.Worksheets(3)
[Ô] Pego os dados por linha ecoluna
str_Shop = ExcWork.Application.Cells(1, 6).Value
CASSIOJFF
Vou experimentar o seu exemplo.
Obrigado e um Abraço
Tópico encerrado , respostas não são mais permitidas