corbis
01-06-2015, 02:29
Что-то никак не победить:
using Microsoft.Office.Tools.Ribbon;
using Microsoft.Office.Interop.Excel;
using Microsoft.Vbe.Interop;
var vbaSheetCode = Application.ActiveWorkbook.VBProject.VBComponents.Item("\"" + DateTimeFormatInfo.CurrentInfo.GetMonthName(DateTime.Today.Month + 1) + "\"");
string sCode = @"Private Sub Worksheet_Activate()
Form.Show
End Sub
Private Sub Worksheet_Deactivate()
Form.Hide
End Sub
";
vbaSheetCode.CodeModule.AddFromString(sCode);
Имя страницы - название следующего месяца.
Выдаёт на этот код: " Microsoft.VBE.Interpop.VBProject не содержит определение для VBComponents. Пропущена директива или ссылка на сборку"
Какие директивы хочет? непонятно. Всё подключено вроде.
using Microsoft.Office.Tools.Ribbon;
using Microsoft.Office.Interop.Excel;
using Microsoft.Vbe.Interop;
var vbaSheetCode = Application.ActiveWorkbook.VBProject.VBComponents.Item("\"" + DateTimeFormatInfo.CurrentInfo.GetMonthName(DateTime.Today.Month + 1) + "\"");
string sCode = @"Private Sub Worksheet_Activate()
Form.Show
End Sub
Private Sub Worksheet_Deactivate()
Form.Hide
End Sub
";
vbaSheetCode.CodeModule.AddFromString(sCode);
Имя страницы - название следующего месяца.
Выдаёт на этот код: " Microsoft.VBE.Interpop.VBProject не содержит определение для VBComponents. Пропущена директива или ссылка на сборку"
Какие директивы хочет? непонятно. Всё подключено вроде.