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