Я хочу подключиться к работающему Excel или запустить Excel, а во время выполнения добавить вкладку в корневой / основной ленте / меню. Когда я соединяюсь с взаимодействием с объектом приложения Excel, я вижу динамический объектный меню. Он разрешается во время выполнения в объект .com, который я не могу разобрать.
Я могу перебирать каждое меню и видеть menu.name, ID и пункт меню. Похоже, что элементы ленты в моем бегущем Excel, но я не могу добавлять или удалять элементы или влиять на них во время выполнения. Меню, меню, пункты меню все являются частными. Что мне не хватает, чтобы разрешить и добавить / манипулировать / удалить мои собственные пункты меню времени выполнения? Я не хочу писать и компилировать статический или исполняемый XML (пока). Я вижу, что другие поставщики делают это. Какую сборку или включить мне не хватает? Вот что я получил от чистого взлома.
using System;
using System . Collections . Generic;
using System . Linq;
using System . Text;
using System . Threading . Tasks;
using Microsoft.Office.Core;
using System . Linq . Expressions;
using Microsoft . Office . Interop . Outlook;
using Microsoft . Office . Interop . Excel;
using System .Diagnostics;
using System . Runtime . InteropServices;
using System . Runtime . InteropServices . ComTypes;
using System . Diagnostics . Contracts;
using System . Windows . Controls . Ribbon;
using Microsoft . Office . Tools . Excel;
using Microsoft . Office . Tools . Ribbon;
using System . ComponentModel . Design;
using System . Reflection;
using Microsoft . Office . Interop . Access;
private static void ExcelChops ( )
{
Process [ ] Running = Process . GetProcessesByName ( "Excel" );
if ( Running . Count()==0 )
{
return;
}
Microsoft . Office . Interop . Excel . Application ExcelApplication = ( Microsoft . Office . Interop . Excel . Application ) Marshal . GetActiveObject ( "Excel.Application" );
if ( ExcelApplication == null )
{
return;
}
string ActiveExcelApplicationCaption = ExcelApplication . Caption;
Windows ExcelWindows = ExcelApplication . Windows;
int ExcelWindowCount = ExcelWindows . Count;
XlWindowState WindowState = ExcelApplication . WindowState;
Window ExcelWindow = ExcelApplication . Windows [ 1 ];
String ExcelWindoWindowCaption = ExcelWindow . Caption;
System . Diagnostics . Debug . WriteLine ( String . Format ( "\nExcel Application Caption {0} " , ActiveExcelApplicationCaption ) );
System . Diagnostics . Debug . WriteLine ( String . Format ( "\nExcel Window Caption {0} " , ExcelWindoWindowCaption ) );
System . Diagnostics . Debug . WriteLine ( String . Format ( "Excel Window Count {0} " , ExcelWindowCount ) );
System . Diagnostics . Debug . WriteLine ( String . Format ( "Excel Window State {0} " , WindowState ) );
//Microsoft.Office.Interop.Excel.Panes panes = ExcelWindow . Panes;
//IteratePanes ( panes );
Microsoft.Office.Interop.Excel.MenuBar aMB = ExcelApplication . ActiveMenuBar;
IterateMenus ( aMB , 0 );
System . Diagnostics . Debug . WriteLine ( String . Format ( "{0} {1} " , "Completed" , ( ( ( System . Environment . StackTrace ) . Split ( '\n' ) ) [ 2 ] . Trim ( ) ) ) );
}
private static void IterateMenus ( MenuBar aMB , int v )
{
string caption = aMB . Caption;
int ndx = aMB . Index;
dynamic parent = aMB . Parent;
Menus menus = aMB . Menus;
int menusCount = aMB . Menus . Count;
for ( int i = 1 ; i <= menusCount ; i++ )
{
Menu a = menus [ i ];
int b = a . Index;
string c = a . Caption;
System . Diagnostics . Debug . WriteLine ( String . Format ( "{0} {1} " , b , c ) );
IterateMenus ( a , v + 1 );
}
}
private static void IterateMenus ( Menu A , int v )
{
string caption = A . Caption;
int ndx = A . Index;
MenuItems items = A . MenuItems;
int itemsCount = items . Count;
for ( int i = 1 ; i <= itemsCount ; i++ )
{
dynamic a = items [ i ];
Type t = a.GetType ( );
object o = a as object;
Type to = o . GetType ( );
String oo = to . ToString ( );
var occ = to . Name;
var ooc = to . TypeHandle;
System . Diagnostics . Debug . WriteLine ( String . Format ( "menu item {0} of {1} {2} {3} " , i , itemsCount, occ, caption) );
}
}