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

PropriedadeValor
Nome:vba internet como obter um endereco de IP (internet Protocol)
Descricao:

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

Nome do arquivo:vba internet como obter um endereco ip.zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:SaberExcel
Criado em: 18/02/2011 17:45
Visitas:Todos
Responsavel:Autor
Acessos:1087 Acessos
Atualizado em: 18/02/2011 18:55
Site: