VSTO入门问题集

VBA万岁

一、用C#给功能区comboBox控件添加选项老是不成功。

如题，试图用C#给功能区comboBox1控件添加下拉选项，可老是弹出如下出错提示，百思不得其解——百度了大量相关帖子，都是如此添加的啊？

VBA万岁

本打算是通过单击功能区按钮（Se)将指定的Excel文件全名赋给编辑框（Pa），而指定的Excel文件中的所有工作表是准备赋值给comboBox1的下拉选项的，可后一功能就是出错。盼指点......
代码：

1. private void Se_Click(object sender, RibbonControlEventArgs e)
   
2.         {
   
3.             using (System.Windows.Forms.OpenFileDialog openFileDialog = new System.Windows.Forms.OpenFileDialog())
   
4.             {
   
5.                 openFileDialog.Filter = "Excel(*.xls;*.xlsx)|*.xls;**.xls*|All Files(*.*)|*.*";
   
6.                 // 设置允许选择多个文件，该属性默认为false的，即只允许选择一个文件
   
7.                 openFileDialog.Multiselect = true;
   
8.                 if (openFileDialog.ShowDialog() == System.Windows.Forms.DialogResult.OK)
   
9.                 {
   
10.                     Pa.Text = openFileDialog.FileName;
    
11.                     // 获得所有选定文件的文件名
    
12.                     Shts = openFileDialog.FileNames;
    
13.                     plmenu.Visible = true;
    
14.                     mb1.Enabled = false;
    
15.                     mb5.Enabled = false;
    
16.                     Microsoft.Office.Interop.Excel.Application app = new Microsoft.Office.Interop.Excel.Application();
    
17.                     Workbook book = app.Workbooks.Open(Pa.Text);
    
18.                     comboBox1.Items.Clear();
    
19.                     string msg = "";
    
20.                     foreach (Worksheet s in book.Worksheets)
    
21.                     {
    
22.                         comboBox1.Items.Add(s.Name);
    
23.                         msg = msg + s.Name;
    
24.                     }
    
25.                     System.Windows.Forms.MessageBox.Show(msg);
    
26.                     string[] array = { "软体学院", "经济管理学院", "外语学院", "公共管理学院", "体育学院", "化学学院", "计算技术学院", "人文科技学院", "法学学院", "文化传播学院", "物电科学技术学院" };
    
27.                     //Sh.DataSource = array;
    
28.                 }
    
29.             }
    
30. 
    
31.         }
    

复制代码

VBA万岁

VBA万岁 发表于 2015-11-14 14:57
本打算是通过单击功能区按钮（Se)将指定的Excel文件全名赋给编辑框（Pa），而指定的Excel文件中的所有工作 ...

出错语句：第22句——即：comboBox1.Items.Add(s.Name);

excelhomesnake

错误列表不是有说,Add方法的参数类型不是一个string
看起来是需要new一个 dropdownitem的对象,你设置好这个对象的属性,然后传到Add方法里面

VBA万岁

excelhomesnake 发表于 2015-11-14 15:38
错误列表不是有说,Add方法的参数类型不是一个string
看起来是需要new一个 dropdownitem的对象,你设置好这 ...

不太明白......
另，为什以下代码（出处：http://bbs.csdn.net/topics/380113062）可以在下comboBox1添加下拉选项？

1. private void dateTimePicker1_ValueChanged(object sender, EventArgs e)
   
2.         {
   
3.             string temp;
   
4.             comboBox1.Items.Clear();
   
5.             if(dateTimePicker1.Value.Year==2007)
   
6.             {
   
7.                  
   
8.                 for(int i=1;i<=10;i++)
   
9.                 {
   
10.                     temp="V"+i.ToString().PadLeft(2,'0');
    
11.                     comboBox1.Items.Add(temp);
    
12.                 }
    
13.             }
    
14.             if (dateTimePicker1.Value.Year == 2011)
    
15.             {
    
16. 
    
17.                 for (int i = 1; i <= 5; i++)
    
18.                 {
    
19.                     temp = "S" + i.ToString().PadLeft(2, '0');
    
20.                     comboBox1.Items.Add(temp);
    
21.                 }
    
22.             }
    
23.         }

复制代码

VBA万岁

VBA万岁 发表于 2015-11-15 11:13
不太明白......
另，为什以下代码（出处：http://bbs.csdn.net/topics/380113062）可以在下comboBox1添 ...

受一个帖子（C#读取Excel数据表数据）的启示写出如下代码却仍出错：

1. private void Se_Click(object sender, RibbonControlEventArgs e)
   
2.         {
   
3.             using (System.Windows.Forms.OpenFileDialog openFileDialog = new System.Windows.Forms.OpenFileDialog())
   
4.             {
   
5.                 openFileDialog.Filter = "Excel(*.xls;*.xlsx)|*.xls;**.xls*|All Files(*.*)|*.*";
   
6.                 // 设置允许选择多个文件，该属性默认为false的，即只允许选择一个文件
   
7.                 openFileDialog.Multiselect = true;
   
8.                 if (openFileDialog.ShowDialog() == System.Windows.Forms.DialogResult.OK)
   
9.                 {
   
10.                     Pa.Text = openFileDialog.FileName;
    
11.                     // 获得所有选定文件的文件名
    
12.                     Shts = openFileDialog.FileNames;
    
13.                     plmenu.Visible = true;
    
14.                     mb1.Enabled = false;
    
15.                     mb5.Enabled = false;
    
16.                     OleDbConnection oledbcConnection;//Excel连接
    
17.                     try
    
18.                     {
    
19.                         string filename;
    
20.                         filename = Pa.Text;
    
21.                         string strConn = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filename + ";Extended Properties=Excel 8.0";
    
22.                         oledbcConnection = new OleDbConnection(strConn);
    
23.                         oledbcConnection.Open();
    
24.                         DataTable table = oledbcConnection.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, new object[] { null, null, null, "TABLE" });
    
25.                         Sh.Items.Clear();
    
26. 
    
27.                         foreach (DataRow dr in table.Rows)
    
28.                         {
    
29.                             Sh.Items.Add((String)dr["TABLE_NAME"]);
    
30.                         }
    
31.                         Sh.Text = Sh.Items[0].ToString();
    
32.                     }
    
33.                     catch (Exception exception)
    
34.                     {
    
35.                         System.Windows.Forms.MessageBox.Show(exception.Message);
    
36.                     }
    
37.                 }
    
38.             }
    
39.         }

复制代码

VBA万岁

VBA万岁 发表于 2015-11-15 12:16
受一个帖子（C#读取Excel数据表数据）的启示写出如下代码却仍出错：

出错主要在于24、27两句，分别为：24（无法将类型“System.Data.DataTable”隐式转换为“Microsoft.Office.Interop.Excel.DataTable”。存在一个显式转换(是否缺少强制转换？）；
27（“Microsoft.Office.Interop.Excel.DataTable”不包含“Rows”，并且不可接受类型为“Microsoft.Office.Interop.Excel.DataTable”的第一个参数的拓展方法“Rows”（是否缺少using指令或程序集引用？）。
如下图（想知道如何“强制转换”、要添加什么“using指令”或“程序集引用”？期待指点!......）：

VBA万岁

VBA万岁 发表于 2015-11-15 12:16
受一个帖子（C#读取Excel数据表数据）的启示写出如下代码却仍出错：

说明：
代码中的“Sh”是自定义选项卡中的一个comboBox1控件名称；“Pa”是一个编辑框控件的名称；“plmenu”是菜单控件（menu）的名称；“mb1”、“mb2”是两个按钮控件的名称。

VBA万岁

VBA万岁 发表于 2015-11-15 13:30
说明：
代码中的“Sh”是自定义选项卡中的一个comboBox1控件名称；“Pa”是一个编辑框控件的名称；“plm ...

想要实现的功能如下图（现主要想将功能区编辑框所显示的Excel文件的所有工作表名称显示在comboBox控件下拉选项中）：

excelhomesnake

VBA万岁 发表于 2015-11-15 11:13
不太明白......
另，为什以下代码（出处：http://bbs.csdn.net/topics/380113062）可以在下comboBox1添 ...

上面代码的comboBox1,应该是WindowsForm或wpf的控件,不是你楼顶贴中vsto的Ribbon控件.因此,是不一样的.
你有试过new一个RibbonDropdownItem对象吗?