MainWorkBook.Sheets("Sheet1").Range("B" & i + 2). MainWorkBook.Sheets("Sheet1").Range("A" & i + 2).Value = Title MainWorkBook.Sheets("Sheet1").Range("B" & 1).Value = "Price" MainWorkBook.Sheets("Sheet1").Range("A" & 1).Value = "Title" Set PriceNodes = oXMLFile.SelectNodes("/items/item/price/text()") Set TitleNodes = oXMLFile.SelectNodes("/items/item/full_title/text()") Set oXMLFile = CreateObject("Microsoft.XMLDOM") Copy/paste the area into notepad and youre done. Then trim the spaces with a tool like digdb (there is a free 15 day trial). Select the columns you added, Fill>Down.Here is the code I have so far: Sub ReadXML() Once I know how to do that I can figure out the rest. I tried following this tutorial, but I could not get it to translate and I have not been able to find a tutorial that just does what I want without anything extra.īasically, all I am trying to do is take the "title" field from an XML file and put it in Column B with the header "description". I am trying to take columns in XML files and move them into Excel files, but I am having trouble getting started. Cari pekerjaan yang berkaitan dengan Excel 2003 vba creating xml files atau merekrut di pasar freelancing terbesar di dunia dengan 22j+ pekerjaan.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |