comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[VBA] Ayuda con macro en Excel

  • 1 Respuestas
  • 794 Vistas

0 Usuarios y 2 Visitantes están viendo este tema.

Desconectado Atomic

  • *
  • Underc0der
  • Mensajes: 15
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« 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: Visual Basic
  1. Sub ip()
  2. Dim programa As String
  3. Dim Ide As Double
  4.     On Error Resume Next
  5. programa = "cmd.exe"
  6. Ide = Shell("cmd.exe /k ipconfig > hostname.txt", vbNormalFocus)
  7.     If Err <> 0 Then
  8.         MsgBox "No se puede iniciar " & programa, vbCritical, " Error"
  9.     End If
  10.  
  11. End Sub

En este código como puedo declarar que me lo guarde en el mismo txt de arriba
Código: Visual Basic
  1. Function GetMyPublicIP() As String
  2.  
  3.     Dim HttpRequest As Object
  4.    
  5.     On Error Resume Next
  6.     'Create the XMLHttpRequest object.
  7.    Set HttpRequest = CreateObject("MSXML2.XMLHTTP")
  8.  
  9.     'Check if the object was created.
  10.    If Err.Number <> 0 Then
  11.         'Return error message.
  12.        GetMyPublicIP = "Could not create the XMLHttpRequest object!"
  13.         'Release the object and exit.
  14.        Set HttpRequest = Nothing
  15.         Exit Function
  16.     End If
  17.     On Error GoTo 0
  18.    
  19.     'Create the request - no special parameters required.
  20.    HttpRequest.Open "GET", "http://myip.dnsomatic.com", False
  21.    
  22.     'Send the request to the site.
  23.    HttpRequest.Send
  24.        
  25.     'Return the result of the request (the IP string).
  26.    GetMyPublicIP = HttpRequest.ResponseText
  27.  
  28. End Function
  29.  

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

Desconectado 79137913

  • *
  • Co Admin
  • Mensajes: 636
  • Actividad:
    6.67%
  • Reputación 11
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
« Respuesta #1 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 Scout Team*                                                   DOORS.PARTY

 

¿Te gustó el post? COMPARTILO!



[SOLUCIONADO] Ayuda urgente con Virus "Virus.Win32Sality"

Iniciado por Napsters

Respuestas: 6
Vistas: 3569
Último mensaje Junio 11, 2012, 03:38:18 am
por Satyricon
"ayuda con fruitywifi-karma" no puedo activar el modulo karma.

Iniciado por cristobal92

Respuestas: 4
Vistas: 1370
Último mensaje Agosto 02, 2016, 12:03:45 pm
por cristobal92
[JAVA] Ayuda Sockets en Java

Iniciado por FERNANDX

Respuestas: 1
Vistas: 601
Último mensaje Abril 25, 2018, 08:49:50 pm
por Mortal_Poison
[Ayuda] Crear .zip o .rar de un "archivo"

Iniciado por Zentraedi

Respuestas: 5
Vistas: 1552
Último mensaje Marzo 03, 2017, 02:15:20 pm
por Zentraedi
[SOLUCIONADO] Ayuda Contraseña "Sqlmap"

Iniciado por djtrueno

Respuestas: 1
Vistas: 1388
Último mensaje Enero 17, 2014, 06:07:37 pm
por ANTRAX