[VBA] Ayuda con macro en Excel

  • 1 Respuestas
  • 1292 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Atomic

  • *
  • Underc0der
  • Mensajes: 15
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil

[VBA] Ayuda con macro en Excel

  • en: Febrero 05, 2016, 02:04:39 pm
Buen día,

Tengo la siguientes dudas, espero y alguien me pueda ayudar.

Tengo una macro que genera un archivo txt en mis documentos, pero ¿como le puedo hacer para que el nombre del txt siempre sea diferente al generar el archivo? Esto con la finalidad de la sobrescritura del mismo, ya sea que se guarde con el hostname de nombre del txt.

Código: (VB) [Seleccionar]
Sub ip()
Dim programa As String
Dim Ide As Double
    On Error Resume Next
programa = "cmd.exe"
Ide = Shell("cmd.exe /k ipconfig > hostname.txt", vbNormalFocus)
    If Err <> 0 Then
        MsgBox "No se puede iniciar " & programa, vbCritical, " Error"
    End If

End Sub

En este código como puedo declarar que me lo guarde en el mismo txt de arriba
Código: (VB) [Seleccionar]
Function GetMyPublicIP() As String

    Dim HttpRequest As Object
   
    On Error Resume Next
    'Create the XMLHttpRequest object.
    Set HttpRequest = CreateObject("MSXML2.XMLHTTP")

    'Check if the object was created.
    If Err.Number <> 0 Then
        'Return error message.
        GetMyPublicIP = "Could not create the XMLHttpRequest object!"
        'Release the object and exit.
        Set HttpRequest = Nothing
        Exit Function
    End If
    On Error GoTo 0
   
    'Create the request - no special parameters required.
    HttpRequest.Open "GET", "http://myip.dnsomatic.com", False
   
    'Send the request to the site.
    HttpRequest.Send
       
    'Return the result of the request (the IP string).
    GetMyPublicIP = HttpRequest.ResponseText

End Function

Saludos y gracias de antemano.
« Última modificación: Febrero 06, 2016, 05:28:30 pm por EPSILON »

Desconectado 79137913

  • *
  • Co Admin
  • Mensajes: 706
  • Actividad:
    16.67%
  • Reputación 16
  • 4 Esquinas
  • Skype: [email protected]
    • Ver Perfil
    • Doors.Party
    • Email

Re:[VBA] Ayuda con macro en Excel

  • en: Febrero 10, 2016, 08:09:24 am
HOLA!!!

Para que el nombre del txt siempre sea diferente, podes crear un nombre con la funcion RND y usando Randomize antes. o para algo mas simple podes usar la funcion timer.

Cabe destacar que es posible que con un poco de mala suerte tengas 2 archivos con el mismo nombre, todo va a depender de que tan largo sea el numero aleatorio que elijas.

GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scouts Team*                                                   DOORS.PARTY