Este blog é um complemento do nosso canal no YouTube. Clique em @CanalQb para seguir e acompanhar nossos vídeos!

Sugestões de pesquisas

Gerador automático de IPs com VBA em Excel para redes locais

#vbaexcel; #enderecosip; #automacao

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

  1. Abra o Excel e pressione Alt + F11 para acessar o Editor VBA.
  2. Crie um novo módulo e cole o código acima.
  3. Na planilha ativa, insira o IP inicial na célula A1, o IP final em B1 e o caminho para salvar os arquivos em C1.
  4. 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 e c).

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.

Postar um comentário

Comente só assim vamos crescer juntos!
CanalQb mais próximo Quer falar com o CanalQb?
Em que posso te ajudar?
Fale comigo