谈谈vs2010 vsto C#入门

lipton · 发表于 2012-11-10 12:32

继续修改演练
原来的代码是工作表启动时运行两个子程序，在实际运用时可能要在工作表打开后才决定做什么。操纵这个过程就需要自定义功能菜单
点击添加新项目，选功能区（可视化设计器) ,在上面添加两个按钮控件。

lipton · 发表于 2012-11-10 12:41

按 Ctrl+Alt+0打开代码区

加入事件代码

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using Microsoft.Office.Tools.Ribbon;
namespace ExcelWorkbook4
{
public partial class Ribbon1
{
private void Ribbon1_Load(object sender, RibbonUIEventArgs e)
{
this.button1.Click += new Microsoft.Office.Tools.Ribbon.RibbonControlEventHandler(
this.button1_Click);
this.button2.Click += new Microsoft.Office.Tools.Ribbon.RibbonControlEventHandler(
this.button2_Click);
}
private void button1_Click(object sender, RibbonControlEventArgs e)
{
Globals.Sheet1.DemoArray();
}
private void button2_Click(object sender, RibbonControlEventArgs e)
{
Globals.Sheet1.DemoDic();
}
}
}

复制代码

lipton · 发表于 2012-11-10 12:45

点击生成，接着点击发布，修改完成，在生成的文件夹运行Setup.exe,升级安装。
生成的实际效果图

lipton · 发表于 2012-11-10 12:51

增加了自定义功能的演练源代码。
版本1.0.0.6
代码测试通过
编译环境 win7 64 office2010 64 vs2010

HHAAMM · 发表于 2012-11-10 12:59

楼主问个问题
Globals.ThisWorkbook.ActiveSheet
上面这句怎么能得到活动工作表表名(要非循环的办法)

昨天弄个好久没结果
下面是循环的
Dim a As Excel.Worksheet
      For Each a In Globals.ThisWorkbook.Sheets
         MsgBox(Globals.ThisWorkbook.ActiveSheet Is a)
      Next

lipton · 发表于 2012-11-10 13:42

HHAAMM 发表于 2012-11-10 12:59
楼主问个问题
Globals.ThisWorkbook.ActiveSheet
上面这句怎么能得到活动工作表表名(要非循环的办法)

C#的
Excel.Worksheet sh;
sh = this.Application.ActiveSheet;
MessageBox.Show(sh.Name);

lipton · 发表于 2012-11-10 13:58

VB.NET的

Private Sub Sheet1_Startup() Handles Me.Startup
Dim sh As Excel.Worksheet
Dim strName As String
sh = Me.Application.ActiveSheet
strName = sh.Name
MsgBox(strName)
End Sub

复制代码

HHAAMM · 发表于 2012-11-10 13:58

ok
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim sh As Excel.Worksheet
      sh = Me.Application.ActiveSheet
      MsgBox(sh.Name)
End Sub

用Globals类不能这样

lnykwrz · 发表于 2012-11-10 15:26

学习了
收藏了

lipton · 发表于 2012-11-11 08:47

数据库在Excel的数据统计，数据分析起很大的作用。
我测试过Excel+Access,在数据量大多列的情况下，比数据源在同一个工作簿效率要高。
在演练里添加与Access连接
选用的是罗斯文数据库，一个经典的数据库模板。
演练删除两个子过程，DemoArray(),DemoDic()
添加了与Accessl连接的子过程DemoAccess()

using System;
using System.Collections.Generic;
using System.Data;
using System.Data.OleDb;
using System.Text;
using System.Xml;
using System.Xml.Serialization;
using System.Windows.Forms;
using Microsoft.Office.Tools.Excel;
using Microsoft.VisualStudio.Tools.Applications.Runtime;
using Excel = Microsoft.Office.Interop.Excel;
using Office = Microsoft.Office.Core;
//System.Collections.Generic;使用字典
namespace ExcelWorkbook4
{
public partial class Sheet1
{
//VBA代码: Dim sh As Worksheet
Excel.Worksheet sh;
//VBA代码:Set rng1 = Range("c1")
Excel.Range rng1;
private void Sheet1_Startup(object sender, System.EventArgs e)
{
//Sheet1_Startup当工作表启动前需要完成的操作在这里执行
//这里的位置应该减少细节操作，用子过程完成
}
private void Sheet1_Shutdown(object sender, System.EventArgs e)
{
//工作表关闭前需要执行的操作
}
public void DemoAccess()
{
sh = this.Application.ActiveSheet;
// 设置访问连接并选择字符串。
//如果Access数据库采用默认加密，VBA代码无法打开，ADO.NET却可以
string strCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\\myFile\\罗斯文.accdb;Jet OLEDB:Database Password=";
string strSql = "SELECT * FROM 客户";
// 创建数据集，DataSet功能强大值得钻研
DataSet myDataSet = new DataSet();
OleDbConnection Cnn = null;
Cnn = new OleDbConnection(strCnn);
OleDbCommand myCommand = new OleDbCommand(strSql, Cnn);
OleDbDataAdapter myDataAdapter = new OleDbDataAdapter(myCommand);
try
{
//连接Access数据库
Cnn.Open();
//填充数据集
myDataAdapter.Fill(myDataSet);
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
return;
}
finally
{
//关闭数据库连接
Cnn.Close();
}
//从脱机数据集获取数据表信息
try
{
int i = 1;
sh.Cells[i, 1].value2 = "罗斯文数据库客户数据表信息";
i++;
sh.Cells[i, 1].value2 = "客户数量";
sh.Cells[i, 2].value2 = myDataSet.Tables[0].Rows.Count;
i++;
sh.Cells[i, 1].value2 = "数据表列字段";
sh.Cells[i, 2].value2 = myDataSet.Tables[0].Columns.Count;
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
return;
}
}
public void DemoDic()
{
}
#region VSTO 设计器生成的代码
/// <summary>
/// 设计器支持所需的方法 - 不要
/// 使用代码编辑器修改此方法的内容。
/// </summary>
private void InternalStartup()
{
this.Startup += new System.EventHandler(Sheet1_Startup);
this.Shutdown += new System.EventHandler(Sheet1_Shutdown);
}
#endregion
}
}

复制代码

相应的 Ribbon 点击事件代码

private void button1_Click(object sender, RibbonControlEventArgs e)
{
Globals.Sheet1.DemoAccess();
}

复制代码

		自动登录	找回密码
密码			免费注册

谈谈vs2010 vsto C#入门

评分

评分