VSTO入门问题集

excelhomesnake

VBA万岁 发表于 2015-11-19 15:34
我新建的VSTO项目是Excel外接程序，故应该不能用“thisWorkbook”表示活动工作簿。不知以下两个链接中的 ...

想请教一下,任务窗格,只能在thisAddIn对象添加吗?如果我创建的是文档级别的项目,就不能添加任务窗格吗?

VBA万岁

excelhomesnake 发表于 2015-11-19 16:40
想请教一下,任务窗格,只能在thisAddIn对象添加吗?如果我创建的是文档级别的项目,就不能添加任务窗格吗?

没测试过，感觉应该可以的......我晚上试试......

VBA万岁

excelhomesnake 发表于 2015-11-19 16:36
原理应该相同.例如,在任意ThisAddIn宿主下的对象,都可以用如下语句获取当前活动工作簿对象
Globals.This ...

我在功能区用了Globals.ThisAddIn.Application.ActiveWorkbook后出错，好像是说，没有ActiveWorkbook，是否要添加程序集引用......
试图用39楼第2个链接的方法显示活动工作簿的路径，虽未出错，但无任何反应。具体如下：
在（Excel外接程序）功能区添加一个按钮，按钮单击事件的部分代码如下：

1. ......
   
2. Microsoft.Office.Interop.Excel._Workbook myWorkbook;            //工作薄实例声明            
   
3. //excel.Application.Workbooks.Add(true);         //不存在相同文件，则建立一个新的文件                myWorkbook = excel.ActiveWorkbook;
   
4. MessageBox.Show(myWorkbook.path);
   
5. ......     

复制代码

❶、然后任意打开一个Excel文件Book1，单击自定义功能区的那个按钮，居然没反应，既没显示该Excel文件的路公径，也没有出错 ；
❷而如在上述代码前增加一段打开另外一个工作薄代码，运行后能显示路径，显示的是后打开的那个工作薄Book2的路径，并不是我想要的Book1的路径。若增加的代码为打开并关闭另外一个工作薄，则运行后出现❶的情况；
❸转而试了一下36楼的方法，能显示路径，但始终为C盘一个可执行文件所在的路径，即活动工作簿的路径不是它，仍然显示它。不知为何？......

VBA万岁

VBA万岁 发表于 2015-11-20 09:51
我在功能区用了Globals.ThisAddIn.Application.ActiveWorkbook后出错，好像是说，没有ActiveWorkbook，是 ...

通过第39楼第1个链接的方法终于解决了这个问题，代码如下：

1. private void mb1_Click(object sender, RibbonControlEventArgs e)
   
2.         {
   
3.             object o = System.Runtime.InteropServices.Marshal.GetActiveObject("Excel.Application");
   
4.             Microsoft.Office.Interop.Excel._Application app = o as Microsoft.Office.Interop.Excel._Application;
   
5.             Microsoft.Office.Interop.Excel.Workbook workBook = app.ActiveWorkbook;//得到当前活动的excel文档
   
6.             //Microsoft.Office.Interop.Excel._Workbook wr = app.ActiveWorkbook;
   
7.             System.Windows.Forms.MessageBox.Show(workBook.Path);
   
8.             //string strDestWorkbook = Microsoft.Office.Interop.Excel.ActiveWorkbook.path;
   
9.         }

复制代码

VBA万岁

excelhomesnake 发表于 2015-11-19 16:36
原理应该相同.例如,在任意ThisAddIn宿主下的对象,都可以用如下语句获取当前活动工作簿对象
Globals.This ...

在ThisAddIn下直接用this.Application.ActiveWorkbook（如下图）虽未报错，但运行无反应——打开任一Excel文件，本应弹框显示所打开的Excel文件的路径的，但程序没有。

excelhomesnake

VBA万岁 发表于 2015-11-20 14:19
在ThisAddIn下直接用this.Application.ActiveWorkbook（如下图）虽未报错，但运行无反应——打开任一Ex ...

不是很明白你的情况.但我这里是可以的

1.             Excel.Workbook wrb = Globals.ThisAddIn.Application.ActiveWorkbook;
   
2. 
   
3.             if (wrb==null)
   
4.             {
   
5.                 MessageBox.Show("当前没有任何激活的工作簿!");
   
6.                 return;
   
7.             }
   
8. 
   
9.             string result = string.Format("{0}{1}{2}", wrb.Name, Environment.NewLine, wrb.Path);
   
10. 
    
11.             MessageBox.Show(result);

复制代码

excelhomesnake

你所说的没有反应,应该是里面有抛出异常的语句,但我发现在vsto,居然不会在运行时抛出.很怪异的感觉.
因为,一个新建但还没有保存的工作簿,是没有path的
附件是我目前试手的代码.

想请教一下,有没有application的newWorkbook事件的呢?

VBA万岁

excelhomesnake 发表于 2015-11-19 16:40
想请教一下,任务窗格,只能在thisAddIn对象添加吗?如果我创建的是文档级别的项目,就不能添加任务窗格吗?

测试了一下，好像不行，测试代码如下：

1. using System;
   
2. using System.Collections.Generic;
   
3. using System.Data;
   
4. using System.Linq;
   
5. using System.Text;
   
6. using System.Windows.Forms;
   
7. using System.Xml.Linq;
   
8. using Microsoft.Office.Tools.Excel;
   
9. using Microsoft.VisualStudio.Tools.Applications.Runtime;
   
10. using Excel = Microsoft.Office.Interop.Excel;
    
11. using Office = Microsoft.Office.Core;
    
12. 
    
13. namespace ExcelWorkbook1
    
14. {   
    
15.     public partial class ThisWorkbook
    
16.     {
    
17.         internal Microsoft.Office.Tools.CustomTaskPane myTaskPane;
    
18.         private void ThisWorkbook_Startup(object sender, System.EventArgs e)
    
19.         {
    
20.             myTaskPane = Globals.ThisWorkbook.CustomTaskPanes.Add(new UserControl1(""), "Excel Help");
    
21.             myTaskPane.Visible = true;
    
22.         }
    
23. 
    
24.         private void ThisWorkbook_Shutdown(object sender, System.EventArgs e)
    
25.         {
    
26.         }
    
27. 
    
28.         #region VSTO 设计器生成的代码
    
29. 
    
30.         /// <summary>
    
31.         /// 设计器支持所需的方法 - 不要
    
32.         /// 使用代码编辑器修改此方法的内容。
    
33.         /// </summary>
    
34.         private void InternalStartup()
    
35.         {
    
36.             this.Startup += new System.EventHandler(ThisWorkbook_Startup);
    
37.             this.Shutdown += new System.EventHandler(ThisWorkbook_Shutdown);
    
38.         }
    
39. 
    
40.         #endregion
    
41. 
    
42.     }
    
43. }
    

复制代码

VBA万岁

VBA万岁 发表于 2015-11-19 08:44
二、C#中，活动工作薄怎样表示。

excelhomesnake大侠，不知道在C#中，活动工作薄、活动工作表怎样表示？ ...

三、C#中，为什么用foreach (FileInfo file in dir.GetFiles("*.xlsx", SearchOption.AllDirectories))没反应？

        以下两段代码分别为批量判断工作表是否存在保护及是否存在公式的。可一用foreach (FileInfo file indir.GetFiles(...))循环，程序则没了反应。一旦注释掉揗环代码，程序会有反应，但只能显示指定工作薄中所有工作表是否被保护或存在公式。而无法显示指定路径中所有工作薄的所有工作表是否被保护或存在公式。不知为何？

1. private void mb2_Click(object sender, RibbonControlEventArgs e)
   
2.         {
   
3.             //fn判断工作表是否被保护(Pa.SuperTip.Substring(0, Pa.SuperTip.LastIndexOf("\") + 1));
   
4.             fn判断工作表是否被保护(Pa.SuperTip);
   
5.         }
   
6. 
   
7.         private static void fn判断工作表是否被保护(string v_strDir)
   
8.         {
   
9.             String msg = "";
   
10.             Application app = new Application();
    
11.             //DirectoryInfo dir = new DirectoryInfo(v_strDir);
    
12. 
    
13.             try
    
14.             {
    
15.                 //递归查找所有Excel 2007/2010的文件
    
16.                 //foreach (FileInfo f in dir.GetFiles("*.xlsx", SearchOption.AllDirectories))
    
17.                 //{
    
18.                     //Workbook book = app.Workbooks.Open(f.FullName);
    
19.                     Workbook book = app.Workbooks.Open(v_strDir);
    
20.                     msg = book.Name + "受保护的工作表有：\n";
    
21.                     foreach (Worksheet sheet in book.Worksheets)
    
22.                     {
    
23.                         if (book.Worksheets[sheet.Name].ProtectContents==true)
    
24.                         {
    
25.                             msg = msg + sheet.Name + "\n";
    
26.                         }
    
27.                     }
    
28.                    app.Application.DisplayAlerts = false;
    
29.                    book.Close();
    
30.                 //}
    
31.             }
    
32.             catch (Exception ex)
    
33.             {
    
34.                 throw ex;
    
35.             }
    
36.             finally
    
37.             {
    
38.                 app.Quit();
    
39.                 System.Runtime.InteropServices.Marshal.ReleaseComObject(app);
    
40.                 app = null;
    
41.                 GC.Collect();
    
42.             }
    
43. 
    
44.             System.Windows.Forms.MessageBox.Show(msg);
    
45.         }
    
46. 
    
47.         private void mb3_Click(object sender, RibbonControlEventArgs e)
    
48.         {
    
49.             //fn判断单元格是否包含公式(Pa.SuperTip.Substring(0, Pa.SuperTip.LastIndexOf("\") + 1));
    
50.             fn判断单元格是否包含公式(Pa.SuperTip);
    
51.         }
    
52. 
    
53.         private static void fn判断单元格是否包含公式(string v_strPath)
    
54.         {
    
55.             //StringBuilder sb = new StringBuilder();
    
56.             Application app = new Application();
    
57.             //DirectoryInfo dir = new DirectoryInfo(v_strPath);
    
58.             string msg = "";
    
59.             try
    
60.             {
    
61.                 //foreach (FileInfo file in dir.GetFiles("*.xlsx", SearchOption.AllDirectories))
    
62.                 //{
    
63.                     //Workbook book = app.Workbooks.Open(file.FullName);
    
64.                     Workbook book = app.Workbooks.Open(v_strPath);
    
65.                     msg = book.Name + "含有公式的单元格：\n";
    
66.                     foreach (Worksheet sheet in book.Worksheets)
    
67.                     {
    
68.                         msg = msg + "\n" + sheet.Name + "： \n";
    
69.                         foreach (Range cel in sheet.UsedRange)
    
70.                         {
    
71.                             string src = cel.Value == null ? string.Empty : cel.Value.ToString();
    
72.                             //string dest = destsheet.Cells[cel.Row, cel.Column].Value == null ? string.Empty : destsheet.Cells[cel.Row, cel.Column].Value.ToString();
    
73.                             if (cel.HasFormula==true)
    
74.                             {
    
75.                                 msg = msg + cel.Address + "→" + cel.Value + "        ";
    
76.                             }
    
77.                         }
    
78.                         //for (int i = 1; i < sheet.UsedRange.Rows.Count; i++)
    
79.                         //{
    
80.                             //for (int j = 1; j < sheet.UsedRange.Columns.Count; j++)
    
81.                             //{
    
82.                                 //if (sheet.Cells[i, j].Interior.Color != ColorTranslator.ToOle(Color.FromArgb(255, 204, 153)))
    
83.                                 //{
    
84.                                     //if (sheet.Cells[i, j].HasFormula==true)
    
85.                                     //{
    
86.                                         //msg=msg+book.Name + " " + sheet.Name + " 第" + i.ToString() + "行第" + j.ToString() + "列包含公式！\n";
    
87.                                     //}
    
88.                                 //}
    
89.                             //}
    
90.                         //}
    
91.                     }
    
92.                     book.Close();
    
93.                 //}
    
94.             }
    
95.             catch (Exception ex)
    
96.             {
    
97.                 throw ex;
    
98.             }
    
99.             finally
    
100.             {
     
101.                 //app.Quit();
     
102.                 System.Runtime.InteropServices.Marshal.ReleaseComObject(app);
     
103.                 app = null;
     
104.                 GC.Collect();
     
105.             }
     
106. 
     
107.             System.Windows.Forms.MessageBox.Show(msg);
     
108.         }

复制代码

excelhomesnake

VBA万岁 发表于 2015-11-21 22:44
三、C#中，为什么用foreach (FileInfo file in dir.GetFiles("*.xlsx", SearchOption.AllDirectories))没 ...

你需要在第二参数使用通配符,然后第三参数指定遍历所有子文件夹
具体可以参考附件

另外,建议你开启调试不捕捉异常,这样可以让你知道哪里出错.具体如下
菜单上的
调试 -> 异常 -> 把第二项勾上 -> 确定.

这样每次调试,一开始会报一个错误,你选继续就可以.