Web scraping

Hai un problema con Excel?

Nuova discussione

Web scraping
di Nick1982 (utente non iscritto) data: 10/08/2010
Buongiorno a tutti,
sono un nuovo e maldestro utilizzatore di vba. sono incappato in un errore che non riesco proprio a risolvere. vi descrivo in breve il mio problema.
ho la necessità di estrarre dal web dei dati in modo automatico. in particolare devo trovare la latitudine e la longitudine di svariate società quotate sui mercati borsistici di tutto il mondo.
i nomi di queste società sono forniti su di un foglio excel sotto forma di elenco, posizionato nella prima colonna. nella seconda colonna si trova il nome del mercato sul quale essa è quotata e nella terza colonna il codice isin della società.
per fare ciò mi sono servito di un programmino che serve per fare delle web macro: imacro. questo non è altro che un browser che da la possibilità di registrare le operazioni effettuate dal mouse. una volta registrate le diverse macro di cui ho bisogno, un tasto di comando di excel, programmato con vba, non fa altro che azionare le web macro precedentemente registrate, fornendo loro i dati di input dal foglio excel. in particolare prelevare il nome della società dal foglio excel, lo gira ad imacro che va sul web ed effettua le operazioni precedentemente registrate. infine copia i dati di cui ho bisogno e li restituisce al foglio excel in un apposito campo. l'operazione prevede l'uso di diverse web macro: una prima famiglia di macro cerca l'indirizzo della società, una seconda usa il primo output per cercare la posizione geografica tramite un sito di geocoding. il codice ha quindi il compito di far dialogare excel con le web macro in modo che l’output della prima macro sia l’input della seconda.
ho parlato di una prima “famiglia” di web macro perché in realtà ho sviluppato una macro per ogni mercato borsistico. infatti per trovare l’indirizzo di una società quotata è più univoco cercare il nome della società all’interno del sito della borsa dove questa è quotata che non inserendo il nome della società in google. l’operazione effettuata da questa “famiglia” è tuttavia la stessa: fornire l’indirizzo della società.
il problema si verifica quando la prima macro fornisce un output nullo. infatti in quel caso, invece di saltare il modulo relativo alla seconda macro e passare alla successiva società, il procedimento si arresta.
per questo ho inserito nel codice, prima del modulo relativo alla seconda macro, un’istruzione condizionale che verifichi se il campo è effettivamente nullo o meno. in caso affermativo questa istruzione dovrebbe far saltare il pezzo relativo alla seconda macro e portare il tutto alla fine del ciclo (e quindi alla società successiva nell’elenco). ma non funziona!! quando la macro arriva ad una società che non restituisce l’indirizzo, tutto si blocca e si apre una finestra dove mi si invita a debuggare il codice. quando entro nel debug la prima riga dopo l’istruzione condizionale sopraccitata è evidenziata come errata.
vi fornisco il codice vba del tasto excel che ho scritto finora.
qualcuno sa dirmi se l’errore è effettivamente nel codice o meno?
grazie mille!

Private Sub CommandButton1_Click()
Dim iim1, iret, row, totalrows
Set iim1 = CreateObject("imacros")
iret = iim1.iimInit
iret = iim1.iimDisplay("submitting Data from Excel")
totalrows = ActiveSheet.UsedRange.Rows.Count
For row = 2 To totalrows
 
      Select Case Cells(row, 2).Value
   
        Case "GBR"
        iret = iim1.iimSet("-var_companyname", Cells(row, 1).Value)
        iret = iim1.iimDisplay("Row# " + CStr(row))
        iret = iim1.iimPlay("VBA-LSEstockSearch1")
        Cells(row, 4).Value = iim1.iimGetLastExtract(0)
                       
                    iret = iim1.iimSet("-var_companyaddress", Cells(row, 5).Value)
                    iret = iim1.iimDisplay("Row# " + CStr(row))
                    iret = iim1.iimPlay("VBA-LatLon")
                    Cells(row, 6).Value = iim1.iimGetLastExtract(1)
                    Cells(row, 7).Value = iim1.iimGetLastExtract(2)
                       
            If iret < 0 Then
            MsgBox iim1.iimGetLastError()
            End If
        
        Case "DEU"
        iret = iim1.iimSet("-var_companyisin", Cells(row, 3).Value)
        iret = iim1.iimDisplay("Row# " + CStr(row))
        iret = iim1.iimPlay("VBA-DEUstockSearch1")
        Cells(row, 4).Value = iim1.iimGetLastExtract(0)
                     
                    iret = iim1.iimSet("-var_companyaddress", Cells(row, 5).Value)
                    iret = iim1.iimDisplay("Row# " + CStr(row))
                    iret = iim1.iimPlay("VBA-LatLon")
                    Cells(row, 6).Value = iim1.iimGetLastExtract(1)
                    Cells(row, 7).Value = iim1.iimGetLastExtract(2)
                       
            If iret < 0 Then
                MsgBox iim1.iimGetLastError()
            End If
            
        Case "BEL"
        iret = iim1.iimSet("-var_companyisin", Cells(row, 3).Value)
        iret = iim1.iimDisplay("Row# " + CStr(row))
        iret = iim1.iimPlay("VBA-BELstockSearch1")
        Cells(row, 4).Value = iim1.iimGetLastExtract(0)
            
                    iret = iim1.iimSet("-var_companyaddress", Cells(row, 5).Value)
                    iret = iim1.iimDisplay("Row# " + CStr(row))
                    iret = iim1.iimPlay("VBA-LatLon")
                    Cells(row, 6).Value = iim1.iimGetLastExtract(1)
                    Cells(row, 7).Value = iim1.iimGetLastExtract(2)
                        
            If iret < 0 Then
                MsgBox iim1.iimGetLastError()
            End If
    
        Case "FRA"
        iret = iim1.iimSet("-var_companyisin", Cells(row, 3).Value)
        iret = iim1.iimDisplay("Row# " + CStr(row))
        iret = iim1.iimPlay("VBA-FRAstockSearch1")
        Cells(row, 4).Value = iim1.iimGetLastExtract(0)
        
                    iret = iim1.iimSet("-var_companyaddress", Cells(row, 5).Value)
                    iret = iim1.iimDisplay("Row# " + CStr(row))
                    iret = iim1.iimPlay("VBA-LatLon")
                    Cells(row, 6).Value = iim1.iimGetLastExtract(1)
                    Cells(row, 7).Value = iim1.iimGetLastExtract(2)
              
            If iret < 0 Then
                MsgBox iim1.iimGetLastError()
            End If
   
        Case "ITA"
        iret = iim1.iimSet("-var_companyisin", Cells(row, 3).Value)
        iret = iim1.iimDisplay("Row# " + CStr(row))
        iret = iim1.iimPlay("VBA-ITAstockSearch1")
        Cells(row, 4).Value = iim1.iimGetLastExtract(0)
                     
                    iret = iim1.iimSet("-var_companyaddress", Cells(row, 5).Value)
                    iret = iim1.iimDisplay("Row# " + CStr(row))
                    iret = iim1.iimPlay("VBA-LatLon")
                    Cells(row, 6).Value = iim1.iimGetLastExtract(1)
                    Cells(row, 7).Value = iim1.iimGetLastExtract(2)
           
            
            If iret < 0 Then
                MsgBox iim1.iimGetLastError()
            End If
        
        Case "CHE"
        iret = iim1.iimSet("-var_companyisin", Cells(row, 3).Value)
        iret = iim1.iimDisplay("Row# " + CStr(row))
        iret = iim1.iimPlay("VBA-CHEstockSearch1")
        Cells(row, 4).Value = iim1.iimGetLastExtract(0)
        
                    iret = iim1.iimSet("-var_companyaddress", Cells(row, 5).Value)
                    iret = iim1.iimDisplay("Row# " + CStr(row))
                    iret = iim1.iimPlay("VBA-LatLon")
                    Cells(row, 6).Value = iim1.iimGetLastExtract(1)
                    Cells(row, 7).Value = iim1.iimGetLastExtract(2)
              
            If iret < 0 Then
                MsgBox iim1.iimGetLastError()
            End If
        
    End Select
    
     If Cells(row, 5).Value = nil Then GoTo fineciclo
    
                    iret = iim1.iimSet("-var_companyaddress", Cells(row, 5).Value)
                    iret = iim1.iimDisplay("Row# " + CStr(row))
                    iret = iim1.iimPlay("VBA-LatLon")
                    Cells(row, 6).Value = iim1.iimGetLastExtract(1)
                    Cells(row, 7).Value = iim1.iimGetLastExtract(2)
            
            If iret < 0 Then
                MsgBox iim1.iimGetLastError()
            End If
            
fineciclo: Next
iret = iim1.iimDisplay("share address extraction complete")
iret = iim2.iimExit

End Sub

Vuoi Approfondire?