Des Listes SharePoint, GetListItems, XML, VBA, je veux juste de renvoi!

J'ai une liste SharePoint avec, entre autres choses, les deux colonnes que je me soucie d'; dans Excel-ese, je veux correspondre à la valeur de X dans la colonne 1, et de retourner la valeur correspondante dans la colonne 2. Je suis en mesure d'utiliser un variante de code à http://guruj.net/node/63 pour récupérer les informations (je pense), donc je pense que mon problème se concentre sur la navigation XML en VBA sans Dll téléchargés (j'ai un tas de MSXML?.Dll, 2, 2.6, 3, 4, 5, 6).

Le plus proche des articles MSDN-je trouver la référence .NET (je suis coincé dans le VBA/VB6? livré avec Office 2003) ou télécharger la DLL.

Nat réponse ci-dessous présente la plupart de ce que j'ai trouvé ou besoin d' mais comme ce que j'ai trouvé c'est dans la mauvaise langue, et une partie de mon problème est de trouver les termes de recherche. J'ai couché ensemble, certains d'une traduction, par exemple, XMLDocument semble être DOMDocument, mais le XML pièces sont IXMLDOMNode ou similaire.

Le problème majeur, je suis en cours d'exécution dans le moment, c'est que je suis de type discordance sur le SAVON d'appel pour effectuer la requête, ou l'objet ne prend pas en charge cette méthode lorsque j'essaie de refonte de joueurs (listQuery, listViewFields, listQueryOptions). J'ai laissé les différentes parties, en tant que variante, puis les jeter comme type de retour (car je n'ai pas SP bibliothèque spécifique "référencé", je fais ça un peu à l'aveugle) et a obtenu les inadéquations.

Il semble presque que ce serait mondes plus facile à écran gratter pour le texte.

OriginalL'auteur Serious | 2009-01-15

  1. 4

    Woah, vous êtes si loin vers le bas le trou de lapin...

    Ok, le code que vous regardez est de vous amener un point de vue sur la liste SharePoint, qui est peut-être pas le meilleur endroit pour commencer, mais le fait qu'il est fait en VBA, il est vraiment difficile. J'ai .NET C# code pour interroger une liste et récupérer les éléments qui ont une valeur particulière. Le VBA de conversion, je ne suis pas en mesure de le faire.

    public static string GetPageId(string listName, string webPath, string pageTitle)
    {
        string pageId = "";
        IntranetLists.Lists lists = new IntranetLists.Lists();
        lists.UseDefaultCredentials = true;
        lists.Url = webPath + "/_vti_bin/lists.asmx";
        XmlDocument doc = new XmlDocument();
        doc.LoadXml("<Document><Query><Where><Contains><FieldRef Name=\"Title\" /><Value Type=\"Text\">" + pageTitle + "</Value></Contains></Where></Query><ViewFields /><QueryOptions /></Document>");
        XmlNode listQuery = doc.SelectSingleNode("//Query");
        XmlNode listViewFields = doc.SelectSingleNode("//ViewFields");
        XmlNode listQueryOptions = doc.SelectSingleNode("//QueryOptions");

        Guid g = GetWebID(webPath);

        XmlNode items = lists.GetListItems(listName, string.Empty, listQuery, listViewFields, string.Empty, listQueryOptions, g.ToString());
        foreach (XmlNode listItem in SPCollection.XpathQuery(items, "//sp:listitems/rs:data/z:row"))
        {
            XmlAttribute id = listItem.Attributes["ows_Id"];
            if (id != null)
            {
                pageId = id.Value;                    
            }

        }
        return pageId;            
    }

    La IntranetLists est un .net web de référence pour les listes.asmx fichier.

    Vous aurez à la recherche comment utiliser les listes.service web asmx dans VBA,
    vous devrez alors appelez GetListItems avec une requête qui représente la valeur de la colonne que vous souhaitez rechercher. 

    <Where><Contains><FieldRef Name="Title" /><Value Type="Text">MyValue</Value></Contains></Where>

    La syntaxe pour que la requête est CAML

    alors vous allez avoir à analyser le code xml qui revient à trouver l'élément et l'élément de champ avec la valeur dont vous avez besoin.
    Toute requête xpath va avoir la bonne espaces de noms ajoutés, par exemple

      public static XmlNodeList XpathQuery(XmlNode xmlToQuery, string xPathQuery)
    {
        XmlDocument doc = new XmlDocument();
        doc.LoadXml(xmlToQuery.OuterXml);
        XmlNamespaceManager mg = new XmlNamespaceManager(doc.NameTable);
        mg.AddNamespace("sp", "http://schemas.microsoft.com/sharepoint/soap/");
        mg.AddNamespace("z", "#RowsetSchema");                                   
        mg.AddNamespace("rs", "urn:schemas-microsoft-com:rowset");
        mg.AddNamespace("y", "http://schemas.microsoft.com/sharepoint/soap/ois");
        mg.AddNamespace("w", "http://schemas.microsoft.com/WebPart/v2");
        mg.AddNamespace("d", "http://schemas.microsoft.com/sharepoint/soap/directory");
        return doc.SelectNodes(xPathQuery, mg);
    }

    Cependant, je ne suis pas sûr que vous seriez même avoir accès à quelque chose qui serait parse xml au sein de votre VBA de l'installation, de sorte que vous pourriez avoir à télécharger un extra VBA outil pour le faire - peut-être même bloqué pour vous.

    Espère que cela aide un peu.

    OriginalL'auteur Nat