INTERNET EXPLORER

USUARIO.EXCLUIDOS 19/04/2007 10:38:04
#212702
Bom dia...
estou precisando acessar o site do Detran e capturar alguns dados do mesmo.

Alguem poderia dar um força???

vlw
USUARIO.EXCLUIDOS 19/04/2007 11:29:43
#212714
http://www.ssp.sp.gov.br
ou
http://www.ssp.sp.gov.br/detran/multas/Default.aspx

O Que você gostaria de capturar?
USUARIO.EXCLUIDOS 19/04/2007 14:00:33
#212748
CLAYTONDOSSANTO, tanto faz....
gostaria apenas de saber como se faz a capitura do dados do IE, por exemplo:
Em VBA...
tenho uma coluna no excel que contenham vários renavan's e gostaria de capiturar o dono do veículo e chassi...

vlw
USUARIO.EXCLUIDOS 23/04/2007 11:24:43
#213320
Já consegui resolver aqui, não é uma solução daquela... mas me resolveu aqui...
utilizei a importação de dados externos do excel...

vlw

Sub consultaRenavan()
    Dim linhaAtual      As Long
    Dim numLinhas1      As Long
    Dim numLinhas2      As Long
    Dim varRenavan      As String
    Dim varSite         As String
    
    On Error GoTo Erro
    Application.ScreenUpdating = False 'Função que desabilita a atualização da tela enquanto a macro é executada
    
    numLinhas1 = Cells(65536, 1).End(xlUp).Row
    numLinhas2 = 7
    linhaAtual = 7
    varSite = "http://www1.detran.pr.gov.br/detran_novo/consultas/veiculos/deb_novo.asp?ren="
    
    Columns("D:E").Select
    Selection.ClearContents
    Range("D6").Value = "DADOS CONSULTA"
        
    Do While linhaAtual <= numLinhas1
        varRenavan = Range(Cells(linhaAtual, 1), Cells(linhaAtual, 1)).Value
        With ActiveSheet.QueryTables.Add(Connection:= _
            "FINDER;" & varSite & varRenavan _
            , Destination:=Range(Cells(numLinhas2, 4), Cells(numLinhas2, 4)))
            .Name = "deb_novo.asp?ren=" & varSite & varRenavan
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingNone
            .WebTables = "4"
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With
       
        numLinhas2 = Cells(65536, 4).End(xlUp).Row
        numLinhas2 = numLinhas2 + 2
        linhaAtual = linhaAtual + 1
    Loop
    Columns("D:D").ColumnWidth = 49
    Columns("E:E").ColumnWidth = 33
    Application.ScreenUpdating = True
    
Erro:
    If Err.Number <> 0 Then
        MsgBox Err.Number & " - " & Err.Description, vbCritical
        Application.ScreenUpdating = True
    End If

End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar