Astuces Excel
  1. Astuces Excel
  3. Utilisation d'une requête Excel pour get une sous-string des données xml à partir d'une URL
Intereting Posts
Modèle de données Excel: Prévient la moyenne de la catégorie entière Copiez et remplacez les lignes de la gamme de données excel une par une avec une pause entre les opérations de copy comment écrire des données plus d'une feuille excel Mise à jour du file Excel existant dans Java Apache POI Comment remplir datatables manquantes dans Excel Time Series Excel: valeurs uniques avec multiplicateur Utilisation d'une instruction IF qui ignore la clause des fausses valeurs Macro Excel pour ouvrir un dossier de classurs Excel et copyr une cellule 1 Gérer l'état des controls Excel sur Apache POI Comment referencer Microsoft.Office.Interop.Excel dll? Effacez la plage de copy de validation des données vers un nouveau classur Ajouter une quantité variable de valeurs, en fonction des valeurs numériques Concaténer une variable incrémentale dans une cellule avec une formule? Exportation d'un object Excel vers MS-Word avec VBA Copier le contenu de la cellule entre différents classurs

Utilisation d'une requête Excel pour get une sous-string des données xml à partir d'une URL

J'ai le tableau suivant dans excel où col1 = ID du film, col2 = nom du film. J'essaie d'utiliser la requête Web Excel pour get le nom de l'entreprise de production de tous les films de ma list. 

ID Movie Name tt1540741 A Single Shot (2013) tt4630158 A Space Program (2015 Documentary)

Par exemple http://www.omdbapi.com/?i=tt2330270&tomatoes=true&plot=short&r=xml

Le lien renverra un XML contenant le nom de l'entreprise de production.

Je ne suis pas sûr de comment écrire la formule Excel qui atteindra cet objective.

(Je veux que la sortie ressemble à celle-ci) 

 ID Movie Name Production firm tt1540741 A Single Shot (2013) ABC tt4630158 A Space Program (2015 Documentary) DEF

Problème résolu. Voici ma solution. Notez que les numéros de ligne sont fixés ici, vous pouvez le modifier pour être dynamic.

La colonne A contient ici toute l'URL avec une ID de film unique. Par exemple

http://www.omdbapi.com/?i=tt0811137&tomatoes=true&plot=short&r=xml 

 Sub getMovieInfo() ' Application.ScreenUpdating = False Dim x As Integer ' Set numrows = number of rows of data. NumRows = 1491 ' Select cell a1. Range("A1").Select ' Establish "For" loop to loop "numrows" number of times. For x = 1 To 1491 ' Insert your code here. pos = "A" & x des = "$D" & x ActiveWorkbook.XmlImport URL:=Cells.Item(x, "A"), _ ImportMap:=Nothing, Overwrite:=True, Destination:=Sheets("Sheet3").Range(des) ' Sheets("Sheet1").Range(des).Value = Cells.Item(x, "A") Application.Wait (Now + TimeValue("00:00:2")) If (IsEmpty(Sheets("sheet3").Range(des)) = True) Then Application.Wait (Now + TimeValue("00:00:10")) If (IsEmpty(Sheets("sheet3").Range(des)) = True) Then Exit Sub End If End If ActiveCell.Offset(1, 0).Select Next End Sub