¿Cómo modificar una consulta externa con una macro?

Hola buenos días.
Tengo interés en modificar una consulta externa con una macro, la consulta es externa a una página WEB y necesito cambiar el ultimo dato de la URL, cada vez que se lo solicite, agrego que es lo que estoy utilizando.
Range("F8").Select
    With Selection.QueryTable
        .Connection = _
        "URL;http://**.***.*.**:*****/***/**************custcode=1.00045678"
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=True
    End With
End Sub
Lo que esta subrayado, es lo que cambiaría cada vez que ingrese otro numero con el mismo formato, en la celda configurada para el ingreso del nuevo numero.
De antemano, GRACIAS:

1 respuesta

Respuesta
1
Dim MiDato As String
MiDato = InputBox("Dato a cambiar.", "Datos", "www.prueba.text")
Range("F8").Select
    With Selection.QueryTable
        .Connection = _
        "URL;http://" & MiDato & "custcode=1.00045678"

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas