Excel VBA - Internet

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    vba internet como obter um endereco de IP (internet Protocol) vba internet como obter um endereco de IP (internet Protocol)

    popular!
    Adicionado em: 18/02/2011
    Modificado em: 18/02/2011
    Tamanho: 23 KB
    Downloads: 849

    Saberexcel - site das macros

    Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), captura o número do IP, através de um arquivo texto e transfere para a folha de Planilha célula (B2).

    Sub como_obter_ip_macro()
    Dim vPlanilha As Object
    Dim RegEx As Object, RegSb As Object
    Dim SBX As Object, npd As Object
    Dim sb As Object, vTxtTodos As String, vArquivoTemporario As String

    Set vPlanilha = CreateObject("WScript.Shell")
    Set SBX = CreateObject("Scripting.FileSystemObject")
    Set RegEx = CreateObject("vbscript.regexp")

    vArquivoTemporario = "C:\vba\Pagamento.txt"

    vPlanilha.Run "%comspec% /c ipconfig > " & vArquivoTemporario, 0, True

    With RegEx
    .Pattern = "(\d{1,3}\.){3}\d{1,3}"
    .Global = False
    End With

    Set npd = SBX.GetFile(vArquivoTemporario)

    Set sb = npd.OpenAsTextStream(1)
    vTxtTodos = sb.ReadAll
    Set RegSb = RegEx.Execute(vTxtTodos)

    ActiveSheet.Range("A1").Value = RegSb(0)
    MsgBox "Seu endereço de IP é..: [ " & RegSb(0) & " ]"
    ActiveSheet.Range("A1").EntireColumn.AutoFit
    sb.Close

    Kill vArquivoTemporario

    Set sb = Nothing
    Set vPlanilha = Nothing
    Set npd = Nothing
    Set SBX = Nothing
    Set RegSb = Nothing
    Set RegEx = Nothing

    End Sub



    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel


    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA