Excel VBA - Internet

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    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: Vazio
    Downloads: 1087

    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

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    Aprenda Excel VBA com Simplicidade de 
    códigos e Eficácia, Escrevendo Menos e
    Fazendo Mais.

    '-------------------------------------'
    Entrega Imediata:
    +  500 Video Aulas MS Excel VBA
    +  35.000 Planilhas Excel e VBA
    +  Coleção 25.000 Macros MS Excel VBA
    +  141 Planilhas Instruções Loops
    +  341 Planilhas WorksheetFunctions(VBA)
    +    04 Módulos Como Fazer Excel VBA
    +  Curso Completo MS Excel VBA
    +  Planilhas Inteligentes


    Pesquisa Google SaberExcel

    Publicidade Google

    <script type="text/javascript"><!--

    google_ad_client = "ca-pub-2317234650173689";

    /* retangulo 336 x 280 */

    google_ad_slot = "0315083363";

    google_ad_width = 336;

    google_ad_height = 280;

    //-->

    </script>

    <script type="text/javascript"

    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

    </script>

    Publicidade

    RSFirewallProtected


    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