Results 1 to 9 of 9

Thread: Import html source of url list in each cell

  1. #1

    Import html source of url list in each cell

    Hi!

    How can I import html from url?

    Thank you so much for your help!
    Attached Files Attached Files
    Last edited by Sergio Alfaro Lloret; 08-17-2012 at 06:02 AM. Reason: deleted attached file

  2. #2
    Administrator Excel Fox's Avatar
    Join Date
    Mar 2011
    Posts
    1,402
    Rep Power
    10
    This can be done, but why do you need the entire source code? Are you looking for something specific in the source code? If yes, what?
    A dream is not something you see when you are asleep, but something you strive for when you are awake.

    It's usually a bad idea to say that something can't be done.

    The difference between dream and aim, is that one requires soundless sleep to see and the other requires sleepless efforts to achieve

    Join us at Facebook

  3. #3
    Hi Excel Fox! thank you so much for your reply.

    I need to get te complete source code.

    This url have the complete product description, and I will use it for import to my online store this descriptions that are provisioned from my wholesaler in the CSV of the feed of the products. For this reason I need the entire source code, not only something specific.

    Thanks again!
    Last edited by Sergio Alfaro Lloret; 08-17-2012 at 06:02 AM.

  4. #4
    Senior Member
    Join Date
    Jun 2012
    Posts
    337
    Rep Power
    13
    cfr. the attachment
    Attached Files Attached Files

  5. #5
    Hi snb, thanks. I understand that you use the Data-From web, appears a new windows, you write the url and click in import.

    I can use this option for two reason:
    1- Is not the page source code like you can see in my example
    2- The imported text is not in only one cell, use a lot of rows and columns

    Thanks again

  6. #6
    Hi!, can you help me Excel Fox?

  7. #7
    any new here? thanks!

  8. #8
    Moderator
    Join Date
    Jul 2012
    Posts
    156
    Rep Power
    13
    Code:
    Sub Test()
        For Each cl In Sheets("Hoja1").Range(Range("E2"), Range("E" & Rows.Count).End(xlUp))
            With CreateObject("MSXML2.XMLHTTP")
                .Open "GET", cl.Value, False
                .Send
                cl.Offset(, 1) = .ResponseText
            End With
        Next
    End Sub

  9. #9
    wow! this works perfect!!! thank you so much bakerman! good work :D

Similar Threads

  1. Replies: 30
    Last Post: 04-15-2019, 07:36 PM
  2. Replies: 1
    Last Post: 05-03-2013, 04:41 PM
  3. Delete List Contain Matching from Second List
    By Rajan_Verma in forum Rajan Verma's Corner
    Replies: 12
    Last Post: 10-07-2012, 07:18 PM
  4. Replies: 2
    Last Post: 04-08-2012, 09:42 AM
  5. Get Chart's Source Data VBA
    By Admin in forum Excel and VBA Tips and Tricks
    Replies: 2
    Last Post: 11-24-2011, 07:54 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •