| 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
|