Vinculando dados do site a uma planilha do Excel

Question

Não tenho certeza se o que estou tentando realizar é até possível, mas imaginei que pediria. Eu tenho uma planilha de tamanho decente com especificações de centenas de smartphones diferentes que estou trabalhando como um projeto de estimação para mim e um fórum de tecnologia que eu participo. Uma das colunas que eu tenho é a "Fan Count" do GSMarena.com como uma forma de quantificar popularidade e interesse no dispositivo. (as outras duas colunas à esquerda são "PhoneArena Staff Rating" e "PhoneArena User Rating".)

Porenquanto,tudooquetenhofeitoéinserirovalormanualmente,masissopodeserentediantecomtantostelefonesecomafrequênciacomqueonúmeromuda.Oqueeugostariadesaberéseexistealgumamaneiradeextrairautomaticamenteonúmero"Fan Count" dos dados de origem da página do x phone?

Obviamente, eu não seria capaz de procurar por cada telefone, mas se eu puder pelo menos colocar as informações de origem para cada telefone e fazer com que os números se atualizem, isso seria suficiente.

    

Answer 1

Aqui está um bom exemplo para você começar. Como afirmei no meu comentário, você precisará usar o VBA para obter o que deseja. O método básico é usar o VBA para iniciar o Internet Explorer e, em seguida, trazer de volta o código html. De dentro desse código, você precisará filtrar o texto para descobrir onde seu número reside.

Abaixo está um método para retornar o html para uma página:

Sub getData()

Dim url As String
Dim ie As Object
Dim state As Integer
Dim text As Variant


Set ie = CreateObject("InternetExplorer.Application")

ie.Visible = 0

url = "http://www.eoddata.com/stockquote/NASDAQ/AAPL.htm"
ie.Navigate url


state = 0
Do Until state = 4
 DoEvents
 state = ie.readyState
Loop

text = ie.Document.Body.innerHTML

End Sub

Obviamente, você alterará o URL para o URL do seu website. Depois de definir essa configuração, o texto da variável no final conterá o código HTML. Portanto, use o método criativo que você deseja passar por esse código. Você vai querer saber como usar os comandos MID, FIND e TRIM.

Espero que pelo menos você tenha começado