Approve/reject files to sharepoint using VBA Excel

I'm trying to automate sharepoint file upload, checkin and approve. I'm using FP RPC to upload and checkin the file but I have no idea if I can automate approving the uploaded file. the only solution I have in mind is to create IE object and just automate the approve process with IE.visible = false.

other question is that when I try to upload powerpoint file to sharepoint meta_info is not updated that's why my files remains checkout. any idea with this scenario? so far the only work around that I had is to automate adding custom file properties开发者_Python百科 so that when I upload the ppt file it will automatically have values on required properties and checkin method will work.

thanks guys!

It may be easier to use the SharePoint webservices to edit the items moderation status.

C# from the example.

public static XmlNode UpdateListItemApprove()
 {
     listservice.Lists listProxy = new listservice.Lists();


     string xml = "<Batch OnError='Continue'><Method ID='1' Cmd='Moderate'><Field Name='ID'/><Field Name='FileRef'>http://basesmcdev2/sites/tester1/approvals/KL022030.lic</Field><Field Name=\"_ModerationStatus\" >0</Field></Method></Batch>";

     XmlDocument doc = new XmlDocument();
     doc.LoadXml(xml);

     XmlNode batchNode = doc.SelectSingleNode("//Batch");

     listProxy.Url = "http://basesmcdev2/sites/tester1/_vti_bin/lists.asmx";
     listProxy.UseDefaultCredentials = true;

     XmlNode resultNode = listProxy.UpdateListItems("approvals", batchNode);

     return resultNode;
}

Here is an example of an update using the SOAP toolkit.