Importar datos de una celda con url

[Yika]

Hola a todos, quería saber si se puede importar el texto de una url en una celda de Excel, resumiendo tengo un archivo Excel que tiene una url con la descripción de un producto, y lo que quiero es no tener que entrar en la url copiar y pegar el texto en la celda para después ese mismo archivo importarlo a mi web, si fuesen solo unos productos no me importaría pero al tratarse de muchos, hacerlo a mano me puedo morir antes, gracias de antemano y saludos a todos.

[AlexanderS]

Hola si se puede pero sin un ejemplo no te puedo dar una solución precisa, pasate por aquí

Para importar el texto de un archivo .Txt puedes usar este código:

Sub TomaTexto()
    Dim fso As Object, sFile As String
    Dim ts As Object
    On Error Resume Next
    TextoMensaje = Empty
    sFile = "C:\Users\tunombre\Desktop\archivo.txt" ' Ruta del archivo a tomar el texto
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    [A1].Value = ts.readall 'lo copia a la celda A1
    ts.Close
End Sub[/PHP]

Salu2

[Yika]

  "Riddle dijo:

Hola si se puede pero sin un ejemplo no te puedo dar una solución precisa, pasate por aquí

Para importar el texto de un archivo .Txt puedes usar este código:

Sub TomaTexto()
    Dim fso As Object, sFile As String
    Dim ts As Object
    On Error Resume Next
    TextoMensaje = Empty
    sFile = "C:\Users\tunombre\Desktop\archivo.txt" ' Ruta del archivo a tomar el texto
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    [A1].Value = ts.readall 'lo copia a la celda A1
    ts.Close
End Sub[/PHP]

Salu2

Hola Riddle, gracias por tu respuesta, adjunto remito el archivo, como veras en una de las columnas pone URL DESCRIPCION, en esa columna hay un link hacia una web, una vez dentro del link sale la descripción de un producto, yo quiero que esa descripción del producto acabe en la celda donde esta la url o en la siguiente me da lo mismo, gracias de antemano y saludos

26-11-2013.zipFetching info...

[Yika]

Hola de nuevo, alguien que me pueda por favor tirar un cable con esto, gracias de antemano y saludos