Chargement des addins lorsque Excel est instancié par programmation

Je suis en train de créer une nouvelle instance de microsoft Excel en utilisant VBA à l'aide de:

Set XlApp = New Excel.Application

Le problème est que cette nouvelle instance de microsoft Excel ne prend pas en charge tous les compléments que la charge quand j'ouvre Excel normalement...il n'y a rien dans l'Application Excel objet pour le chargement dans tous les spécifiée par l'utilisateur addins?

Je ne suis pas en train de charger un module complémentaire spécifique, mais plutôt à la nouvelle application Excel de se comporter comme si l'utilisateur a ouvert elle-même, donc je suis vraiment à la recherche d'une liste de tous les sélectionnés par l'utilisateur des compléments qui habituellement la charge lors de l'ouverture d'Excel.

source d'informationauteur Jon Fournier

  1. 24

    J'ai regardé dans ce problème, et de l'Application.Collection Addins semble avoir toutes les addins répertoriés dans le menu Outils->Addins menu, avec une valeur booléenne indiquant si un complément est installé. Donc, ce qui semble fonctionner pour moi maintenant est de parcourir tous les modules complémentaires et si .Installé = vrai alors que j'ai défini .Installé à Faux et à l'arrière de Vrai, et qui semble se charger correctement mon addins.

    Function ReloadXLAddins(TheXLApp As Excel.Application) As Boolean

    Dim CurrAddin As Excel.AddIn

    For Each CurrAddin In TheXLApp.AddIns
        If CurrAddin.Installed Then
            CurrAddin.Installed = False
            CurrAddin.Installed = True
        End If
    Next CurrAddin

End Function
  2. 5

    À l'aide de CreateObject("Excel.Application") aurait le même résultat que l'utilisation de New Excel.Applicationmalheureusement.

    Vous aurez à charge les Compléments que vous avez besoin individuellement par le chemin d'accès au fichier & nom à l'aide du Application.Addins.Add(string fileName) méthode.

  3. 2

    Je pars de cette réponse ici pour quiconque ayant rencontré ce problème, mais à l'aide de JavaScript.

    Un peu de fond... Dans mon entreprise nous avons un 3ème partie web app qui a utilisé du JavaScript pour lancer Excel et de générer une feuille de calcul à la volée. Nous avons aussi un Excel add-in qui remplace le comportement du bouton Enregistrer. L'add-in vous donne la possibilité d'enregistrer le fichier en local ou en ligne de notre système de gestion de documents.

    Après que nous avons mis à niveau vers Windows 7 et Office 2010, nous avons remarqué un problème avec notre feuille de génération de web app. Lorsque le code JavaScript généré une feuille de calcul dans Excel, tout à coup le bouton Enregistrer ne fonctionnait plus. Vous cliquez sur enregistrer et rien ne s'est passé.

    L'aide d'autres réponses ici, j'ai été en mesure de construire une solution en JavaScript. Essentiellement, nous permettrait de créer de l'Application Excel objet en mémoire, puis de recharger un complément spécifique pour obtenir notre comportement du bouton enregistrer retour. Voici une version simplifiée de notre correctif:

    function GenerateSpreadsheet()
{
    var ExcelApp = getExcel();
    if (ExcelApp == null){ return; }

    reloadAddIn(ExcelApp);

    ExcelApp.WorkBooks.Add;
    ExcelApp.Visible = true;
    sheet = ExcelApp.ActiveSheet;

    var now = new Date();
    ExcelApp.Cells(1,1).value = 'This is an auto-generated spreadsheet, created using Javascript and ActiveX in Internet Explorer';

    ExcelApp.ActiveSheet.Columns("A:IV").EntireColumn.AutoFit; 
    ExcelApp.ActiveSheet.Rows("1:65536").EntireRow.AutoFit;
    ExcelApp.ActiveSheet.Range("A1").Select;

    ExcelApp = null;
}

function getExcel() {
   try {
       return new ActiveXObject("Excel.Application");
   } catch(e) {
       alert("Unable to open Excel. Please check your security settings.");
       return null;
   }
}

function reloadAddIn(ExcelApp) {
    // Fixes problem with save button not working in Excel,
    // by reloading the add-in responsible for the custom save button behavior
    try {
        ExcelApp.AddIns2.Item("AddInName").Installed = false;
        ExcelApp.AddIns2.Item("AddInName").Installed = true;
    } catch (e) { }
}
  4. -1

    Essayer:

    Set XlApp = CreateObject("Excel.Application")