Como gerar arquivos com endereços IP usando VBA no Excel
Se você precisa gerar automaticamente arquivos contendo uma faixa de endereços IP para testes de rede, automação ou organização, esse código VBA vai te ajudar. Com ele, é possível gerar arquivos .txt
com IPs incrementais a partir de uma faixa informada diretamente no Excel.
Script VBA para gerar IPs em arquivos individuais
Abaixo está o código completo do VBA que você pode inserir em um módulo do Excel:
Sub GeradorDeIP() Dim inicio As String Dim fim As String Dim ipCompleto As String Dim path As String, arquivo As String inicio = Range("A1").Value ' IP inicial da faixa fim = Range("B1").Value ' IP final da faixa path = Range("C1").Value ' Caminho para salvar os arquivos Close #1 Dim ipPartes() As String Dim a As Integer, b As Integer, c As Integer, d As Integer ipPartes = Split(inicio, ".") a = CInt(ipPartes(0)) b = CInt(ipPartes(1)) c = CInt(ipPartes(2)) For d = CInt(ipPartes(3)) To CInt(Split(fim, ".")(3)) ipCompleto = a & "." & b & "." & c & "." & d arquivo = path & "\" & ipCompleto & ".txt" Open arquivo For Output As #1 Print #1, ipCompleto Close #1 Next d MsgBox "A geração de IPs foi concluída com sucesso!" End Sub
Como utilizar o script no Excel
- Abra o Excel e pressione Alt + F11 para acessar o Editor VBA.
- Crie um novo módulo e cole o código acima.
- Na planilha ativa, insira o IP inicial na célula
A1
, o IP final emB1
e o caminho para salvar os arquivos emC1
. - Execute a macro GeradorDeIP.
Explicação detalhada do funcionamento
- Leitura de dados: o código lê os valores das células A1, B1 e C1 da planilha ativa.
- Conversão e separação: a função
Split
divide o IP inicial em partes numéricas para manipulação no loop. - Geração dos arquivos: para cada IP, é criado um arquivo
.txt
no caminho informado, contendo o IP correspondente. - Finalização: após completar a geração, é exibida uma mensagem de sucesso ao usuário.
Aplicações práticas e recomendações
Este script é ideal para profissionais de TI que precisam documentar ou distribuir configurações de IP para redes locais, laboratórios de testes ou para registros organizacionais. É importante lembrar que a automação pode ser expandida para incluir outras faixas de IP, diferentes sub-redes e validação de dados.
Recomendações:
- Execute sempre o Excel com permissões elevadas (modo administrador) se estiver salvando arquivos em diretórios restritos.
- Valide se o caminho especificado existe antes de rodar a macro, para evitar erros de gravação.
- Considere adaptar o script para lidar com mais de um bloco de IP (por exemplo, mudando também os valores de
b
ec
).
Dica adicional: para complementar seu projeto, você pode integrar esse script com outros sistemas de automação de redes, como scripts em PowerShell ou ferramentas de gerenciamento como Zabbix e Nagios.