warcanjow

você estava certo. Tinha uma letra maiúscula no lugar errado! hehehehe Valeu!

Olá pessoal! Sou iniciante em Python e estou encontrando problemas para importar uma classe que criei. Tenho uma pasta chamada "teste" onde criei dos arquivos: tank.py e tankgame.py. Em tankgame.py eu importo tank.py da seguinte maneira: from tank import Tank. Quando mando executar recebo a seguinte mensagem: importError: No module named tank Estou utilizando o Geany como IDE no Ubuntu 9.04 Alguém sabe como posso resolver isso? Grato. Abraço!

Cara, essa não parece ser a solução mais elegante. Se entendi bem a sua dúvida basta que você troque isso: For Each linha In tabela.all.tags("tr") por isso: For Each linha In tabela.all.tags("td") e tudo se resolveria. Abraços!

beleza, mas como faço isso? Você pode postar seu código para que eu possa dar um olhada? Desde já muito obrigado! Jackson Raniel

Amigo se entendi bem o seu problemas é bem simples de se resolver, veja este código: Sub capDadosTable() Dim ie As Object Dim produto As String Dim cidade As String Dim formaPG, valor, data As String Dim tabela As Object Dim linha 'instancia um objeto do Internet Explorer e o torna visivel Set ie = CreateObject("internetexplorer.application") ie.Visible = True 'vai para a página que você quer capturar ie.navigate "http://www.agrolink.com.br/cotacoes/Cotacoes.aspx" Do While ie.busy Loop 'seta a tabela onde estão as informações Set tabela = ie.document.all.tags("table")(1) 'para cada linha da tabla captura o valor das céluas e jogas nas variáveis For Each linha In tabela.all.tags("tr") produto = linha.all.tags("td")(0).innertext cidade = linha.all.tags("td")(1).innertext formaPG = linha.all.tags("td")(2).innertext valor = linha.all.tags("td")(3).innertext data = linha.all.tags("td")(4).innertext linha.MoveNext Next End Sub Agora é so salvas as informações capturadas onde você quiser. Espero ter ajudado! ^_^ Abraço! Jackson Raniel

Olá! Pessoal, estou trabalhando com VBA/Access 2003 a apenas 4 meses e venho nos últimos três dias trabalhando em um problema aparentemente muito simples, para o qual já esgotei todas as minhas fontes de pesquisa e até agora não consegui resultado algum. O problema é o seguinte: tenho de construir uma macro que deve fazer o download de várias planilhas(.xls) da internet, depois copiar o conteudo dessas planilhas e colar em uma tabela no MS Excel, porém o máximo que consegui até o momento foi fazer o download das planilhas e seta-las, mas não consigo acessar os dados contidos nelas via código. Falando em código, foi isto que fiz até agora: Option Compare Database Option Explicit Sub capInadCom() Dim ie As Object Dim documento Dim planilha Dim linha As Integer Dim pv As String Dim tblEntrada Dim db Set db = CurrentDb Set tblEntrada = db.OpenRecordset("Consulta") Set ie = CreateObject("internetexplorer.application") ie.Visible = True Do While Not tblEntrada.EOF pv = tblEntrada("CGC_texto") ie.navigate "http://www....." Do While ie.busy Loop nomeArq = "C:\....\PV_" & pv & ".xls" Set planilha = GetObject(nomeArq, "Excel.Sheet") linha = 2 '*********************** a partir daqui nada funciona************* While Sheets("planilha").Cells(linha, 1) <> "TOTAL DA PÁGINA" linha = linha + 1 Wend Loop End Sub Vocês sabem me dizer como eu posso acessar copiar e colar os dados dessa planilha? Grato! Abraços! Jackson Raniel :wacko: