谈谈vs2010 vsto C#入门

wqfzqgk

lipton 发表于 2012-11-8 23:50
和我的一样要在别的目录安装要重新编译一次。

从控制面板中删除后再重新安装就可以啦

lipton

wqfzqgk 发表于 2012-11-9 08:02
从控制面板中删除后再重新安装就可以啦

谢谢提醒。昨天出错的原因，是因为漏了安装这一步，直接点了Excel文件，

wqfzqgk

文档型的我觉得要是自己用还可以，要是形成插件的，还得用程序型

lipton

继续改进演练项目
改进了在Sheet1_Startup过程里的细节操作，在这个过程里除非必须的工作表初始化操作外尽量不加过程细节代码。
增加了一个简单的字典操作，字典在Excel数据分析里起很大作用。

1. using System;
   
2. using System.Collections.Generic;
   
3. using System.Data;
   
4. using System.Text;
   
5. using System.Xml;
   
6. using System.Windows.Forms;
   
7. using Microsoft.Office.Tools.Excel;
   
8. using Microsoft.VisualStudio.Tools.Applications.Runtime;
   
9. using Excel = Microsoft.Office.Interop.Excel;
   
10. using Office = Microsoft.Office.Core;
    
11. //System.Collections.Generic;使用字典
    
12. namespace ExcelWorkbook4
    
13. {
    
14.     public partial class Sheet1
    
15.     {
    
16.         //VBA代码: Dim sh As Worksheet
    
17.         Excel.Worksheet sh;
    
18.         //VBA代码:Set rng1 = Range("c1")
    
19.         Excel.Range rng1 = null;
    
20.         
    
21.         private void Sheet1_Startup(object sender, System.EventArgs e)
    
22.         {
    
23.             //Sheet1_Startup当工作表启动前需要完成的操作在这里执行
    
24.             //这里的位置应该减少细节操作，用子过程完成
    
25.             
    
26.             //调用子过程1，工作表单元格的赋值操作，列宽调整
    
27.             this.Demo1();
    
28.             
    
29.             //调用数组操作子过程，数组向工作表Range范围赋值
    
30.             this.DemoArray();
    
31. 
    
32.             //字典的简单操作，字典在统计和分析数据起很大的作用
    
33.             this.DemoDic();
    
34. 
    
35.         }
    
36. 
    
37.         private void Sheet1_Shutdown(object sender, System.EventArgs e)
    
38.         {
    
39.            //工作表关闭前需要执行的操作      
    
40.         }
    
41. 
    
42.         private void Demo1()
    
43.         {
    
44.             //VBA代码:Dim rng1 As Range   
    
45.             //VBA代码:Set sh = ActiveSheet
    
46.             sh = this.Application.ActiveSheet;
    
47.             //VBA代码:sh.Cells(1, 5) = Now
    
48.             sh.Cells[1 , 5].value = System.DateTime.Now;
    
49.             //VBA代码:sh.Cells(1, 5).Columns.AutoFit,自动调整列宽
    
50.             sh.Cells[1 , 5].EntireColumn.AutoFit();
    
51.             //自定义函数或子过程，这里示意一个返回F列最大使用行值
    
52.         }
    
53. 
    
54.         private void DemoArray()
    
55.         {
    
56.             //子过程代码，数组定义，数组操赋值，把数组赋值给工作表Range
    
57.             Excel.Range rng=null;
    
58.             //VBA代码: Dim theArray(0 to 5,0 to 10)
    
59.             int[,] theArray = new int[5, 10];
    
60.             rng = Application.get_Range("b1", missing);
    
61.             //Rank方法，返回数组的维度，这个VBA没有
    
62.             rng.Value2= "数组维度 " + theArray.Rank;
    
63.             //VBA代码:Dim m As Long
    
64.             int m = 0;
    
65.             //两个循环 For i = 0 to 5
    
66.             //         For j = 0 to 10
    
67.             //              m=m + 1
    
68.             //              theArray(i,j) =m   
    
69.             for (int i = 0; i <= theArray.GetUpperBound(0); i++)  
    
70.                 for (int j = 0; j <= theArray.GetUpperBound(1); j++)
    
71.                 {
    
72.                     m++;
    
73.                     theArray[i,j] = m;
    
74.                 }
    
75.             //VBA代码:Set rng = Range("f1:o5")
    
76.             rng = Application.get_Range("f1", "o5");
    
77.             //VBA代码:rng.Value = theArray    赋值给工作表Range
    
78.             rng.Value2 = theArray;
    
79.             int iRow;
    
80.             rng = Application.get_Range("f1", missing);
    
81.             //VBA代码:iRow = sh.Range("f1").End(xlDown).Row 取F列最大使用行
    
82.             iRow = rng.get_End(Excel.XlDirection.xlDown).Row;
    
83.             rng1 = Application.get_Range("c1", missing);
    
84.             //VBA代码:rng1.Value2 = "F列最大使用 " + lRow 赋值给引用对象。
    
85.             rng1.Value2 = "F列最大使用 " + iRow;
    
86.         }
    
87.         
    
88.         private void DemoDic()
    
89.         {
    
90.             Dictionary<string, string> dic =
    
91.             new Dictionary<string, string>();
    
92.             //向字典添加值
    
93.             dic.Add("aa", "a1");
    
94.             dic.Add("bb", "b1");
    
95.             dic.Add("cc", "c1");
    
96.             //调用字典元素
    
97.             MessageBox.Show(dic["bb"]);
    
98.             //检测是否存在ee
    
99.             if (!dic.ContainsKey("ee"))
    
100.             {
     
101.                 dic.Add("ee", "e1");
     
102.             }
     
103.           }
     
104. 
     
105.            
     
106.         #region VSTO 设计器生成的代码
     
107. 
     
108.         /// <summary>
     
109.         /// 设计器支持所需的方法 - 不要
     
110.         /// 使用代码编辑器修改此方法的内容。
     
111.         /// </summary>
     
112.         private void InternalStartup()
     
113.         {
     
114.             this.Startup += new System.EventHandler(Sheet1_Startup);
     
115.             this.Shutdown += new System.EventHandler(Sheet1_Shutdown);
     
116.         }
     
117. 
     
118.         #endregion
     
119. 
     
120. }
     
121. }

复制代码

lipton

修改代码后点击项目-ExcelWorkBook4属性，选择发布修改版本号增加1
版本号1.0.0.4
点击发布后如果原有程序没有卸载，点击安装Setup.exe会升级到新版本。

lipton

修改后的 演练源代码
代码测试通过
编译环境
win7 64 + office2010 64 + vs2010

vs2010

我以前也试用vsto  有visual assist 编写代码快多了 不过做完了发现 文件变多了  除了一个excel还有3个文件  感觉没有vba方便 不会产生多余的文件

lgcmeli

我只能表示仰慕各位。没有精力研究啦。也没各位这么深厚的内功。

guoybb

过来学习………………

leolee82

这里还挺热闹啊