Aprender a definir um endereço IP automaticamente para rodar utilizando o Visual Basic for Applications não é tão difícil quanto você pode pensar. Netsh.exe é uma ferramenta que pode ser usada para configurar os computadores usando o prompt de comando do Windows . Netsh.exe pode ser usado para alterar um endereço IP quando a rotação é necessária. A função "Shell" é usado em VBA para executar um programa executável, como o prompt de comando para executar Netsh.exe . Coisas que você precisa
Microsoft Office Excel
Show Mais instruções
1

Abra o Microsoft Office Excel , clique na guia "Desenvolvedor" e clique em " Visual Basic " para abrir editor VBA.
2

Clique no menu "Inserir" e clique em " módulo " para inserir um novo módulo de código .
3

Adicione o seguinte código para criar um novo procedimento sub:

Private Sub rotateIPAddress ()
4

Definir duas variáveis ​​de cadeia :

Dim dosCommand Como StringDim ipAddress As String
< br > 5

Defina o endereço IP que você deseja usar , adicione a seguinte linha de código:

ipAddress = " 192.168.0.200 "
6

definir o comando a alterar o endereço IP:

dosCommand = " netsh set dns ip interface " & Chr (34 ) & " NIC Nome " & Chr (34 ) & " estático" e
ipAddress
7

Execute o comando usando o comando "Shell" :

Shell ( " cmd.exe /c" & dosCommand )
8

Digite " End Sub " para acabar com o seu procedimento sub e pressione a tecla "F5" para executá-lo .