Загрузка надстроек при программном создании экземпляра Excel

Question

Я пытаюсь создать новый экземпляр Excel с помощью VBA, используя:

Set XlApp = New Excel.Application

Проблема в том, что этот новый экземпляр Excel не загружает все надстройки, которые загружаются при обычном открытии Excel...Есть ли что-нибудь в объекте приложения Excel для загрузки во все указанные пользователем надстройки?

Я не пытаюсь загрузить конкретную надстройку, а скорее заставляю новое приложение Excel вести себя так, как будто пользователь открыл его сам, поэтому я действительно ищу список всех выбранных пользователем надстроек, которые обычно загружаются при открытии Excel.

Answer 1

Я снова рассмотрел эту проблему, и в коллекции Application.Addins, похоже, есть все надстройки, перечисленные в меню Tools-> gt; Addins, с логическим значением, указывающим, установлен ли надстройка или нет. Поэтому сейчас мне кажется, что мне нужно пройтись по всем надстройкам, и если .Installed = true, тогда я установил .Installed в False и обратно в True, и это, похоже, правильно загружает мои надстройки.

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

Answer 2

Использование CreateObject (" Excel.Application ") приведет к тому же результату, что и использование New Excel.Application , к сожалению.

Вам нужно будет отдельно загрузить нужные надстройки по пути к файлу & amp; имя с использованием метода Application.Addins.Add (string fileName) .

Answer 3

Я оставляю этот ответ здесь для всех, кто сталкивался с этой проблемой, но использует JavaScript.

Немного предыстории ... В моей компании есть стороннее веб-приложение, которое использует JavaScript для запуска Excel и создания электронной таблицы на лету. У нас также есть надстройка для Excel, которая переопределяет поведение кнопки Сохранить. Надстройка позволяет сохранить файл локально или в нашей онлайн-системе управления документами.

После обновления до Windows 7 и Office 2010 мы обнаружили проблему с нашим веб-приложением для создания электронных таблиц. Когда JavaScript сгенерировал электронную таблицу в Excel, кнопка «Сохранить» неожиданно перестала работать. Вы должны нажать «Сохранить», и ничего не произошло.

Используя другие ответы, я смог построить решение на JavaScript. По сути, мы должны создать объект приложения Excel в памяти, а затем перезагрузить определенную надстройку, чтобы вернуть поведение кнопки сохранения. Вот упрощенная версия нашего исправления:

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) { }
}

Answer 4

Попробуй:

Set XlApp = CreateObject("Excel.Application")