VSTO入门问题集

VBA万岁

excelhomesnake 发表于 2015-12-22 18:53
没看到你的截图.但大概看了一下代码部分.
你用pia打开excel文件,接着又用ado连接excel文件.应该会被占用 ...

       有一个疑问——如何删除废弃的类？
                之前仿照152楼第2个链帖，写了个DataAccess类，想实现将当前活动工作表省市区数据导入Access数据库，但后来在167楼的代码中跟本就用不上这个类。
                所以，现在想删除这个类，但当我关闭它后，直接将其从程序文件中移走时，VSTO会报错。不知道如何将其清走？

excelhomesnake

VBA万岁 发表于 2015-12-23 14:18
有一个疑问——如何删除废弃的类？
                之前仿照152楼第2个链帖，写了个DataAcces ...

直接在你的项目中,删除代码或代码所在的cs文件,就可以.你说的vs编译错误,你应该看看错误信息列表.估计是有地方使用了这个类所导致的.

VBA万岁

excelhomesnake 发表于 2015-12-23 14:45
直接在你的项目中,删除代码或代码所在的cs文件,就可以.你说的vs编译错误,你应该看看错误信息列表.估计是 ...

有空我再看看。
另，关于类，是不是相当于VB及VBA当中的模块？——VB项目中是有模块的，但我发现VC#中似乎没有。

excelhomesnake

VBA万岁 发表于 2015-12-23 15:38
有空我再看看。
另，关于类，是不是相当于VB及VBA当中的模块？——VB项目中是有模块的，但我发现VC#中似 ...

你所说的应该是指代码模块,C#没有听说过.
但这个应该是一种组织代码的形式而已.之前我使用vba,大部分情况也是写类模块,很少使用模块.
在我看来,你说的模块就是一种静态的写法,在编译的时候就可以确定运行逻辑(当然vba是解释运行的).相当于一个静态类或静态方法.

excelhomesnake

VBA万岁 发表于 2015-12-23 15:38
有空我再看看。
另，关于类，是不是相当于VB及VBA当中的模块？——VB项目中是有模块的，但我发现VC#中似 ...

恐怕之前的回复被吃掉了.
C#里面没有代码模块的概念,至少我没有听过,但有程序集模块,功能与你说的完全不一样.
至于从性质来说,你说的代码模块,其实与静态类或静态方法差不多,都是编译确定的.
我也会一点vba,其实vba模块可以做的事情,静态类一样可以做到的.

VBA万岁

excelhomesnake 发表于 2015-12-23 16:50
恐怕之前的回复被吃掉了.
C#里面没有代码模块的概念,至少我没有听过,但有程序集模块,功能与你说的完全不 ...

多谢指点！
看来C#基础理论的学习迫在眉睫，目前正在边啃《C#设计模式》，边搜索网上实例进行测试......

excelhomesnake

VBA万岁 发表于 2015-12-23 17:20
多谢指点！
看来C#基础理论的学习迫在眉睫，目前正在边啃《C#设计模式》，边搜索网上实例进行测试......

不客气.
推荐你可以看看<C#高级编程>的前几章.
还有<果壳中的C#>,都是很好的资料.

VBA万岁

excelhomesnake 发表于 2015-12-23 17:27
不客气.
推荐你可以看看的前几章.
还有,都是很好的资料.

帖上下载链接：
果壳中的C#_C#

VBA万岁

VBA万岁 发表于 2015-12-23 14:07
八（二）问题终于测试成功，原来只需将167楼的第38句代码改为如下即可：
OleDbCommand command = new Ol ...

完整代码（包括删除及新建Access数据代码）如下：

1. string accessFilePath = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) + @"\数据源\省市区三级联动.mdb";
   
2.         private void button2_Click(object sender, EventArgs e)
   
3.         {
   
4.             newAccess();
   
5. 
   
6.             object o = System.Runtime.InteropServices.Marshal.GetActiveObject("Excel.Application");
   
7.             Microsoft.Office.Interop.Excel._Application app = o as Microsoft.Office.Interop.Excel._Application;
   
8.             Microsoft.Office.Interop.Excel.Workbook srcbook = app.ActiveWorkbook;//得到当前活动的excel文档
   
9.             Microsoft.Office.Interop.Excel.Worksheet sh = (Microsoft.Office.Interop.Excel.Worksheet)srcbook.ActiveSheet;//得到当前Sheet
   
10.             try
    
11.             {
    
12.                 OleDbConnectionStringBuilder connectStringBuilder = new OleDbConnectionStringBuilder();
    
13.                 connectStringBuilder.DataSource = srcbook.FullName;
    
14.                 connectStringBuilder.Provider = "Microsoft.Ace.OleDb.12.0";
    
15.                 connectStringBuilder.Add("Extended Properties", "Excel 12.0");
    
16.                 using (OleDbConnection cn = new OleDbConnection(connectStringBuilder.ConnectionString))
    
17.                 {
    
18.                     cn.Open();
    
19.                     DataSet ds = new DataSet();
    
20.                     string sql = "Select * from [" +sh.Name + "$]";
    
21.                     OleDbCommand cmdLiming = new OleDbCommand(sql, cn);
    
22.                     using (OleDbDataReader drLiming = cmdLiming.ExecuteReader())
    
23.                     {
    
24.                         ds.Load(drLiming, LoadOption.OverwriteChanges, new string[] { sh.Name });
    
25.                         DataTable dt = ds.Tables[sh.Name];
    
26.                         if (dt.Rows.Count > 0)
    
27.                         {
    
28.                             for (int i = 0; i < dt.Rows.Count; i++)
    
29.                             {
    
30.                                 //写入数据库数据
    
31.                                 string MySql = "insert into VBA实现省市区三级联动(省,市,区) values('" + dt.Rows[i]["省"].ToString() + "','" + dt.Rows[i]["市"].ToString() + "','" + dt.Rows[i]["区"].ToString() + "')";
    
32.                                 OleDbConnection connct = new OleDbConnection();
    
33.                                 string oleDB = "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" + accessFilePath;
    
34.                                 connct.ConnectionString = oleDB;
    
35.                                 //打开数据库
    
36.                                 connct.Open();
    
37.                                 OleDbCommand command = new OleDbCommand(MySql, connct);
    
38.                                 command.Connection = connct;
    
39.                                 int res = command.ExecuteNonQuery();
    
40.                                 // 关闭连接
    
41.                                 connct.Close();
    
42.                                 //return res;
    
43.                             }
    
44.                             MessageBox.Show("数据导入成功！");
    
45.                         }
    
46.                         else
    
47.                         {
    
48.                             MessageBox.Show("请检查你的Excel中是否存在数据");
    
49.                         }
    
50.                     }
    
51.                 }
    
52.             }
    
53.             catch (Exception ex)
    
54.             {
    
55.                 MessageBox.Show(ex.ToString());
    
56.             }
    
57.         }
    
58. 
    
59.         private void newAccess()
    
60.         {
    
61.             if (System.IO.File.Exists(accessFilePath) == true)
    
62.             {
    
63.                 System.IO.File.Delete(accessFilePath);
    
64.             }
    
65.             //以上代码删除已存在的同路径同名的的；以下的代码为新建，需添加“Microsoft ADO Ext. 2.8 for DDL and Security”及“Microsoft ActiveX Data Objects 2.8 Library”两个引用
    
66. 
    
67.             ADOX.Catalog catalog = new Catalog();
    
68.             catalog.Create("Provider=Microsoft.Ace.OleDb.12.0;Data Source=" + accessFilePath + ";Jet OLEDB:Engine Type=5");
    
69.             
    
70.             ADODB.Connection cn = new ADODB.Connection();
    
71.             cn.Open("Provider=Microsoft.Ace.OleDb.12.0;Data Source=" + accessFilePath, null, null, -1);
    
72.             catalog.ActiveConnection = cn;
    
73.             ADOX.Table table = new ADOX.Table();
    
74.             table.Name = "VBA实现省市区三级联动";
    
75.             ADOX.Column column = new ADOX.Column();
    
76.             column.ParentCatalog = catalog;
    
77.             column.Name = "ID";
    
78.             column.Type = DataTypeEnum.adInteger;
    
79.             column.DefinedSize = 9;
    
80.             column.Properties["AutoIncrement"].Value = true;
    
81.             table.Columns.Append(column, DataTypeEnum.adInteger, 9);
    
82.             table.Keys.Append("FirstTablePrimaryKey", KeyTypeEnum.adKeyPrimary, column, null, null);
    
83.             table.Columns.Append("省", DataTypeEnum.adVarWChar, 50);
    
84.             table.Columns.Append("市", DataTypeEnum.adVarWChar, 50);
    
85.             table.Columns.Append("区", DataTypeEnum.adVarWChar, 50);
    
86.             catalog.Tables.Append(table);
    
87.             cn.Close();
    
88.         }

复制代码

VBA万岁

VBA万岁 发表于 2015-12-25 18:49
完整代码（包括删除及新建Access数据代码）如下：

至此，关于省市区数据相关的VS项目（包括复合框控件数据联动及Excel表数据与外部文件数据的交换）已制作完毕，制作源码如下： ExcelHelpTaskPane.rar (583.72 KB, 下载次数: 2)

2015-12-25 19:11 上传

点击文件名下载附件