#25 How to Parse XML Files with VBA Introduction скачать в хорошем качестве
#25 How to Parse XML Files with VBA Introduction
1 year ago
Не удается загрузить Youtube-плеер. Проверьте блокировку Youtube в вашей сети.
Повторяем попытку...
Повторяем попытку...
Скачать видео с ютуб по ссылке или смотреть без блокировок на сайте: #25 How to Parse XML Files with VBA Introduction в качестве 4k
У нас вы можете посмотреть бесплатно #25 How to Parse XML Files with VBA Introduction или скачать в максимальном доступном качестве, видео которое было загружено на ютуб. Для загрузки выберите вариант из формы ниже:
-
Информация по загрузке:
Скачать mp3 с ютуба отдельным файлом. Бесплатный рингтон #25 How to Parse XML Files with VBA Introduction в формате MP3:
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием видео, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса ClipSaver.ru
#25 How to Parse XML Files with VBA Introduction
Sub ReadBookDetailsFromXML() Dim xmlDoc As Object Dim xmlNode As Object Dim i As Integer ' Create a new XML Document object Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0") ' Configure properties xmlDoc.async = False xmlDoc.validateOnParse = False ' Load the XML file If Not xmlDoc.Load("C:\XML Files\books.xml") Then MsgBox "Failed to load XML file. Exiting." Exit Sub End If i = 2 For Each xmlNode In xmlDoc.DocumentElement.ChildNodes Sheet2.Cells(i, 1).Value = xmlNode.getAttribute("id") Sheet2.Cells(i, 2).Value = xmlNode.getElementsByTagName("author")(0).Text Sheet2.Cells(i, 3).Value = xmlNode.getElementsByTagName("title")(0).Text Sheet2.Cells(i, 4).Value = xmlNode.getElementsByTagName("genre")(0).Text Sheet2.Cells(i, 5).Value = xmlNode.getElementsByTagName("price")(0).Text Sheet2.Cells(i, 6).Value = xmlNode.getElementsByTagName("publish_date")(0).Text Sheet2.Cells(i, 7).Value = xmlNode.getElementsByTagName("description")(0).Text i = i + 1 Next xmlNode ' Release the XML Document object Set xmlDoc = Nothing End Sub Sub ReadUniversityDetailsFromXML() Dim xmlDoc As Object Dim xmlFaculty As Object Dim xmlProfessor As Object Dim i As Integer ' Create a new XML Document object Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0") ' Configure properties xmlDoc.async = False xmlDoc.validateOnParse = False ' Load the XML file If Not xmlDoc.Load("C:\XML Files\university.xml") Then MsgBox "Failed to load XML file. Exiting." Exit Sub End If i = 2 'Loop through each faculty For Each xmlFaculty In xmlDoc.DocumentElement.ChildNodes 'Loop through each professor For Each xmlProfessor In xmlFaculty.ChildNodes Sheets("Sheet3").Cells(i, 1).Value = xmlDoc.DocumentElement.getAttribute("name") ' University name Sheets("Sheet3").Cells(i, 2).Value = xmlFaculty.getAttribute("name") ' Faculty name Sheets("Sheet3").Cells(i, 3).Value = xmlProfessor.getAttribute("id") ' Professor ID Sheets("Sheet3").Cells(i, 4).Value = xmlProfessor.getElementsByTagName("name")(0).Text ' Professor name Sheets("Sheet3").Cells(i, 5).Value = xmlProfessor.getElementsByTagName("subject")(0).Text ' Professor subject i = i + 1 Next xmlProfessor Next xmlFaculty Set xmlDoc = Nothing End Sub
Comments