Ler plans de uma planilha Excel

[nivaldo_js 0]

Srs.Como posso ler em asp, quais as plans que tem dentro de uma planilha em excel.Por exemplo aqui terei que colocar manualmente. objRS.Source = "Select * from [nome da plan$]" gostaria de uma rotina, q verifica os nomes da plan dentro da planilha excel !Obrigado !

[Tigger 0]

http://www.connectionstrings.com/

 

Segue a conexao:

"Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=C:\arquivo.xlz;"

TIP! SQL syntax: "SELECT * FROM [sheet1$]" - i.e. worksheet name followed by a "$" and wrapped in "[" "]" brackets

 

Nunca consegui fazer a conexao certa, se consegui passa ae para a gente.

beleza...

[nivaldo_js 0]

Caro Tiger.A conexão consigo efetuar, mas por o nome sheet1, ate o momento somente e efetuado manualmente.a principio gostaria de ler quais as sheets q tem em uma planilha !Ok

[Marcelo Barcellos 0]

Nivaldo....Segue o código...Eu concertei aquele erro que estava dando, testei e funcionou....Lembre-se que a primeira coluna deve estar preenchida...

Set ObjExcel = Server.CreateObject("Excel.Application")Dim ObjWorkBookDim ObjWorkSheetObjExcel.Visible = FalseObjExcel.DisplayAlerts = FalseObjExcel.UserControl = FalseSet ObjWorkbook = ObjExcel.Workbooks.Open("C:\AGFJur.xls")For i = 1 To ObjWorkBook.Sheets.CountSet ObjWorkSheet = ObjWorkbook.Sheets.item(i)i = 1While ObjWorkSheet.cells(i,1) <> "" Response.Write ObjWorkSheet.cells(i,1)i = i + 1WendSet ObjWorkSheet = nothingNextSet ObjWorkbook = nothingSet ObjWorkSheet = NothingSet ObjExcel = Nothing

[nivaldo_js 0]

Caro Marcelo BarcellosConexao com arq.xls, consigo, o meu grande problema e como listar quais as plan dentro de uma planilha.sobre o seu codigo, não consigo entender onde coloco a string sql para capturar as plans da planilha !!Mesmo assim, muito obrigado pela atenção !

[Marcelo Barcellos 0]

Cara....No meu código não uso conexão com o Excel.Eu utilizo o próprio componente do Excel para abrir as planilhas...você consegue entender o que eu fiz...???Vou comentar o código

'======================'CRIA O OBJETO EXCEL '======================Set ObjExcel = Server.CreateObject("Excel.Application")'======================'VARIAVEL PARA CADA ARQUIVO XLS'======================Dim ObjWorkBook'======================'VARIAVEL PARA CADA PLANILHA DENTRO DE UM ARQUIVO XLS'======================Dim ObjWorkSheet'======================'NÃO VISUALIZAR A AÇÃO'======================ObjExcel.Visible = False'======================'NÃO APARECER OS ALERTAS'======================ObjExcel.DisplayAlerts = False'======================'SEM PROPRIEDADE DE ALTERAÇÃO PELO USUÁRIO'======================ObjExcel.UserControl = False'======================'ABRE O ARQUIVO XLS.'======================Set ObjWorkbook = ObjExcel.Workbooks.Open("C:\AGFJur.xls")'======================'PARA CADA PLANILHA DO ARQUIVO'INICIAR UM LOOP'======================For i = 1 To ObjWorkBook.Sheets.Count'======================'PEGA A PRIMEIRA PLANILHA DA COLEÇÃO "Count"'======================Set ObjWorkSheet = ObjWorkbook.Sheets.item(i)'======================'VARIAVEL DE LINHA'======================i = 1'======================'ENQUANTO A PLANILHA TIVER (NA PRIMERA COLUNA) ALGUMA'INFORMAÇÃO, CONTINUAR A FAZER O LOOP'======================While ObjWorkSheet.cells(i,1) <> "" '======================'ESCREVER NA TELA A INFORMAÇÃO CONTIDA NA PRIMEIRA 'LINHA E PRIMEIRA COLUNA'======================Response.Write ObjWorkSheet.cells(i,1)'======================'INCREMENTA VARIAVEL'======================i = i + 1'======================'LOOP'======================Wend'======================'DESTROI OBJETO'======================Set ObjWorkSheet = nothingNext'======================'DESTROI OBJETOS'======================Set ObjWorkbook = nothingSet ObjWorkSheet = NothingSet ObjExcel = Nothing

[rOcKLoCo 0]

procure tmb sobre OWC - Office Web Components..Att,Carlos

[nivaldo_js 0]

Caro MarceloMuito obrigado Agora funcionou !!mas o meu problema era aqui For i = 1 To ObjWorkBook.Sheets.Count'======================'PEGA A PRIMEIRA PLANILHA DA COLEÇÃO "Count"'======================Set ObjWorkSheet = ObjWorkbook.Sheets.item(i)'======================'VARIAVEL DE LINHA'======================i = 1estava duplincando a variavel i, então no primeiro for troquei o I por X, assim ele mostrava as plans dentro de um Xls.Estou reportando para alguem futuramente querer este codigo, ja esta informado !!Ok !Muito obrigado mesmo !

[Marcelo Barcellos 0]

Putz cara...Pode crerEla estava com a mesma variavel para os dois LOOPS, foi mal..

[nivaldo_js 0]

Caro MarceloSem abusar !! rsrsrSet ObjWorkSheet = ObjWorkbook.Sheets.item(i) Aqui e quantidade de plan dentro da planilha, como faço pra pegar o nome da plan !pq isso, pq o nome da plan, tem informações q necessito pra adicionar em meu database !!Desde ja agradeço !

[nivaldo_js 0]

caso necessitempara obter o nome da plan !!ObjWorkBook.Sheets.item(x).namet+