excel插件能用java语言编程 开发excel插件

关于excel的一些基本操作：

1、引用

开发excel插件，这两个引用是必不可少的。

using Microsoft.Office.Interop.Excel;
using Microsoft.Office.Tools.Ribbon;

2、

ApplicationClass application = new ApplicationClass(); //创建一个excel进程
Workbook wbook = Globals.ThisAddIn.Application.ActiveWorkbook; //当前活动workbook
Worksheet worksheet = (Worksheet)wbook.ActiveSheet; //当前活动sheet
Range range = (Range)worksheet.Application.Selection;//当前选中的cells

根据条件选择指定的sheet：

Worksheet worksheet = wbook.Worksheets["sheet1"];//获取名为sheet1的工作表
Worksheet worksheet = wbook.Worksheets[1];//获取第一个工作表

其他的操作：

workSheet.Range[workSheet.Cells[range.Row,1],workSheet.Cells[workSheet.UsedRange.Rows.Count,workSheet.UsedRange.Columns.Count]].Clear();//清除当前选定行以下的所有数据
workSheet.UsedRange.Rows.Count//已使用的行数
workSheet.UsedRange.Columns.Count//已使用的列数
worksheet.Range["A1"].Font.ColorIndex = 3;//将“A1”单元格字体设为红色
worksheet.Range["A1","B2"].Interior.ColorIndex = 3; //将“A1”到“B2”范围背景设为红色
int num = wss1.Range[wss1.Cells[1, Y1]].Find("").Row; //第一次出现空单元格的行数
worksheet.Cells["A1"].Rows.Hidden=true;//隐藏行
worksheet.Cells["A1"].Columns.Hidden=true;//隐藏列

View Code

range与cells的区别不大，最重要的事range的范围比cells大；

当然，用C#遍历所有单元格时若遇到空单元格，有可能会弹出“无法对null执行运行时绑定”，此时对单元格判断是否为空并用正则表达式匹配数字，然后比较大小的方法（将所有小于6的数字字体设为红色）：

1 string str = Convert.ToString(worksheet.Cells[i, j].value);
2 string regex = @"^[1-9]\d*|0$";
3 if (str != null && Regex.IsMatch(str, regex))
4 {
5      if (Convert.ToDouble(str) < 6)
6      {
7         worksheet.Cells[i, j].Font.ColorIndex = 3;
8      }
9 }

View Code

3、 图表生成

(1)以下是生成柱状图的方法（绑定数据的两种方法，一种是连续绑定数据，数据是连续的；另一种是部分绑定，数据是不连续的）：

1 wbook.Charts.Add(Type.Missing); //添加一個页面
 2 wbook.ActiveChart.ChartType = XlChartType.xlColumnClustered; //设置要显示的图表样式（簇状条形图）      
 3 Range rang = worksheet.get_Range(strx + "," + stry);
 4 wbook.ActiveChart.SetSourceData(rang, XlRowCol.xlColumns);//数据不连续
 5 //wbook.ActiveChart.SetSourceData(ws.Range["A1",ws.Cells[ws.UsedRange.Rows.Count,ws.UsedRange.Columns.Count]], XlRowCol.xlRows);//绑定数据，数据是连续的
 6 //wbook.ActiveChart.SetSourceData(ws.Range["A1","A40"], XlRowCol.xlColumns);//绑定数据，柱状图中图柱所代表的数据
 7 //没有这个标题就出不来
 8 wbook.ActiveChart.HasTitle = true;
 9 //设置绘图区的数据标志（就是线形顶上出现值）显示出值来
10 wbook.ActiveChart.ApplyDataLabels(XlDataLabelsType.xlDataLabelsShowValue, false, false, false, false, false,true, false, false, false);
11 //后面一坨也是有用的，例如要显示饼图的百分比，就必须将倒数第三个false改为true
12 //设置Legend图例的位置和格式
13 wbook.ActiveChart.HasLegend = true;
14 wbook.ActiveChart.PlotArea.Width = 550; //设置绘图区宽度
15 wbook.ActiveChart.PlotArea.Top = 30;
16 wbook.ActiveChart.PlotArea.Height = 400; //设置绘图区高度
17 wbook.ActiveChart.PlotArea.Left = 20;
18 //表示图示画在SHEET1的，改成自己的SHEET名就好
19 wbook.ActiveChart.Location(XlChartLocation.xlLocationAsObject, aimWorksheet.Name);
20 //图形距离左上角的距离
21 //wbook.ActiveSheet.ChartObjects.count //当前表中chart的数量
22 wbook.ActiveChart.ChartArea.Top = (wbook.ActiveSheet.ChartObjects.count - 1) * 200 + wbook.ActiveSheet.ChartObjects.count * 20;
23 wbook.ActiveChart.ChartArea.Left = 20;
24 wbook.ActiveChart.ChartArea.Height = 200;
25 wbook.ActiveChart.ChartArea.Width = 600;
26 //x轴样式
27 Axis xAxis = (Axis)wbook.ActiveChart.Axes(XlAxisType.xlCategory, XlAxisGroup.xlPrimary);
28 //y轴样式
29 Axis yAxis = (Axis)wbook.ActiveChart.Axes(XlAxisType.xlValue, XlAxisGroup.xlPrimary);
30 //  xAxis.CategoryNames = ws.Range["B2", ws.Cells[ws.UsedRange.Rows.Count, 2]];//x轴标注信息绑定
31 xAxis.HasTitle = false;
32 xAxis.TickLabels.Font.Name = "宋体";
33 xAxis.TickLabels.Font.Size = 8;
34 yAxis.TickLabels.NumberFormat = "##元"; //可以通过格式指定y轴的显示方式
35 yAxis.TickLabels.Orientation = Microsoft.Office.Interop.Excel.XlTickLabelOrientation.xlTickLabelOrientationHorizontal;
36 //Y轴显示的方向,是水平还是垂直等
37 yAxis.TickLabels.Font.Size = 8;
38 yAxis.TickLabels.Font.Name = "宋体";
39  //设置标题和坐标轴
40 wbook.ActiveChart.HasTitle = true;
41 wbook.ActiveChart.ChartTitle.Text = str4+"柱状图"; //将默认标题改为指定标题
42 wbook.ActiveChart.Axes(XlAxisType.xlCategory, XlAxisGroup.xlPrimary).HasTitle = true;
43 wbook.ActiveChart.Axes(XlAxisType.xlCategory, XlAxisGroup.xlPrimary).AxisTitle.Characters.Text = str3;//在x轴上显示横坐标
44 wbook.ActiveChart.Axes(XlAxisType.xlValue, XlAxisGroup.xlPrimary).HasTitle = true;
45 wbook.ActiveChart.Axes(XlAxisType.xlValue, XlAxisGroup.xlPrimary).AxisTitle.Characters.Text = str4;//在y轴上显示纵坐标

View Code

当然生成图表并不是结束，我们还可以对其进行修改（下面是对当前选中的图表数据进行修改，try部分是为了如果是饼形图修改数据不会报错）：

1 Range rang = swsheet.get_Range(str1 + "," + str2);
 2 wbook.ActiveChart.SetSourceData(rang, XlRowCol.xlColumns);
 3 //设置标题和坐标轴
 4 wbook.ActiveChart.HasTitle = true;
 5 wbook.ActiveChart.ChartTitle.Text = comboBox4.SelectedItem + "图"; //将默认标题改为指定标题
 6 try
 7 {
 8 wbook.ActiveChart.Axes(XlAxisType.xlCategory, XlAxisGroup.xlPrimary).HasTitle = true;
 9 wbook.ActiveChart.Axes(XlAxisType.xlCategory, XlAxisGroup.xlPrimary).AxisTitle.Characters.Text =
10 comboBox5.SelectedItem.ToString(); //在x轴上显示横坐标
11 wbook.ActiveChart.Axes(XlAxisType.xlValue, XlAxisGroup.xlPrimary).HasTitle = true;
12 wbook.ActiveChart.Axes(XlAxisType.xlValue, XlAxisGroup.xlPrimary).AxisTitle.Characters.Text =
13 comboBox1.SelectedItem.ToString(); //在y轴上显示纵坐标
14 }
15 catch (Exception exception)
16 {
17 }

View Code

还可以对图表的数据源进行筛选，筛选不是将无关数据删除，只是将其隐藏起来，隐藏数据的值和位置都是不变的：

swsheet.Range["A1",swsheet.Cells[swsheet.UsedRange.Rows.Count, swsheet.UsedRange.Columns.Count]].AutoFilter(x, “>1”, XlAutoFilterOperator.xlAnd, Type.Missing, true); //筛选选定区域第x列所有大于1的数据
wss1.Range[wss1.Cells[1, i], wss1.Cells[wss1.UsedRange.Rows.Count, i]].AdvancedFilter(XlFilterAction.xlFilterCopy, Type.Missing, wss1.Range["AZ1"], true);//将不重复数据写到Z列

(2)数据透视表

即水晶报表，将数据进行统计（下面进行多数据绑定中的两种方法：一个是pivotTable.AddFields可以绑定除数据求和项外的所有数据；若想求和项也绑定多数据，可以定义多个PivotField pivotField，因为一个sheet中只能有一个数据透视表）：

1 private void GeneratetPivot1(Worksheet worksheet, Workbook wbook, Worksheet wss1)
 2 {
 3 PivotCaches pivotCaches = wbook.PivotCaches();
 4 PivotCache pivotCache = pivotCaches.Add(XlPivotTableSourceType.xlDatabase, worksheet.UsedRange);//可选择数据绑定
 5 Range range = wss1.Range["A1", wss1.Cells[wss1.UsedRange.Rows.Count, wss1.UsedRange.Columns.Count]];//透视表起始位置
 6 //创建数据透视表
 7 PivotTable pivotTable = pivotCache.CreatePivotTable(range, wss1.Name, true,
 8 XlPivotTableVersionList.xlPivotTableVersionCurrent);
 9 pivotTable.AddFields("合同名称", Type.Missing, Type.Missing, true); //向数据透视表或数据透视图中添加行字段、列字段和页字段。
10 pivotTable.AddFields(Type.Missing, Type.Missing,"季度",  true);
11 pivotTable.AddFields( Type.Missing, "外协名称",Type.Missing, true);
12 pivotTable.AddFields( Type.Missing, Type.Missing,"推广项目", true);
13 PivotField pivotField;
14 //PivotField pivotField2;
15 // pivotField = (PivotField)pivotTable.PivotFields("季度"); //数据透视表的某一字段（左上）
16 // pivotField.Orientation = XlPivotFieldOrientation.xlPageField;
17 //pivotField = (PivotField)pivotTable.PivotFields("外协名称"); //数据透视表的某一字段（左上）
18 // pivotField.Orientation = XlPivotFieldOrientation.xlPageField;
19 //字段在指定的数据透视表中的位置xlHidden,xlRowField行,xlColumnField列,xlPageField筛选,xlDataField统计 
20 //pivotField = (PivotField)pivotTable.PivotFields(7); //数据透视表的某一字段（右上）
21 //pivotField.Orientation = XlPivotFieldOrientation.xlColumnField;
22 //pivotField = (PivotField)pivotTable.PivotFields(8); //数据透视表的某一字段（左下）
23 //pivotField.Orientation = XlPivotFieldOrientation.xlRowField;
24 pivotField = (PivotField)pivotTable.PivotFields("供应商评估（十分制）"); //数据透视表的某一字段（右下）
25 pivotField.Orientation = XlPivotFieldOrientation.xlDataField;
26 pivotField.Function = XlConsolidationFunction.xlAverage; //返回或设置对数据透视表字段汇总时所使用的函数
27 }

View Code

4、结束进程

结束进程可以结束指定进程，也可以结束所有进程：

1 private void KillExcelProceed()//结束所有进程
 2 {
 3 System.Diagnostics.Process[] ExcelProcesses;
 4 ExcelProcesses = System.Diagnostics.Process.GetProcessesByName("EXCEL");
 5 foreach (System.Diagnostics.Process IsProcedding in ExcelProcesses)
 6 {
 7       if (IsProcedding.ProcessName == "EXCEL")
 8       {
 9           IsProcedding.Kill();
10       }
11 }
12 }
13 [System.Runtime.InteropServices.DllImport("User32.dll", CharSet = System.Runtime.InteropServices.CharSet.Auto)]
14 private static extern int GetWindowThreadProcessId(IntPtr hwnd, out int ID);
15 private void Kill(Application excel)//结束指定excel进程
16 {
17 IntPtr t = new IntPtr(excel.Hwnd); //得到这个句柄，具体作用是得到这块内存入口 
18 int k = 0;
19 GetWindowThreadProcessId(t, out k); //得到唯一标志k
20 System.Diagnostics.Process p = System.Diagnostics.Process.GetProcessById(k); //k的引用
21 p.Kill(); //关闭k
22 }

View Code

5、 数据写入

数据写入也有两种方法:

(1)第一种是直接写入,不过如果有空数据则有可能报错:

wsheet1.Cells[i, j].value = wsheet2.Cells[x, y].value;

(2)第二种是用copy函数将数据整体复制,相当于手动选择数据区域,复制到另一块区域:

1 public static void CopyData(Worksheet worksheet, Worksheet sheetsource)
 2         {
 3             int src = sheetsource.UsedRange.Rows.Count;
 4             int scc = sheetsource.UsedRange.Columns.Count;
 5             int drc = worksheet.UsedRange.Rows.Count;
 6 
 7             Range range = sheetsource.Range[sheetsource.Cells[3, 1], sheetsource.Cells[src, scc]];
 8             range.Copy(Type.Missing);//复制数据
 9             Range range1 = worksheet.Range[worksheet.Cells[drc+1, 1], worksheet.Cells[drc + src-1, scc]];
10             worksheet.Paste(range1, false);//粘贴数据
11 
12         }

View Code

(3)数据排序

像第一种一条一条写入数据，有时可以将数据先排序然后导入，在特定时候可以节省很多不必要的操作，提高效率：

1 int a = workSheet.UsedRange.Rows.Count;
 2 int b = workSheet.UsedRange.Columns.Count;
 3 Range myRange = (Range) workSheet.Cells[1, num];
 4 workSheet.Sort.SortFields.Clear();//清除绑定数据（不执行此操作则可能导致多次排序异常）
 5 workSheet.Sort.SortFields.Add(myRange,XlSortOn.xlSortOnValues,XlSortOrder.xlAscending,Type.Missing,XlSortDataOption.xlSortNormal);
 6 myRange = workSheet.Range[workSheet.Cells[1, 1], workSheet.Cells[a, b]];
 7 workSheet.Sort.SetRange(myRange);
 8 workSheet.Sort.Header = XlYesNoGuess.xlYes; //第一行或列是否包含头信息
 9 workSheet.Sort.MatchCase = false; //区分大小写
10 workSheet.Sort.Orientation = XlSortOrientation.xlSortColumns; //行或列排序
11 workSheet.Sort.SortMethod = XlSortMethod.xlPinYin; //英文或中文排序
12 workSheet.Sort.Apply(); //执行排序

View Code

6、其他的一些操作

触发事件和禁止触发事件：

(1)触发事件（这是写在thisaddin_startup中的括号里面为触发函数，即当触发某一事件时，调用函数）:

1 Globals.ThisAddIn.Application.SheetSelectionChange += new Excel.AppEvents_SheetSelectionChangeEventHandler(Application_SheetSelectionChange);//点击单元格触发事件
2 Globals.ThisAddIn.Application.SheetChange += new Excel.AppEvents_SheetChangeEventHandler(Application_SheetChange);//修改内容触发事件
3 Globals.ThisAddIn.Application.SheetPivotTableUpdate += new Excel.AppEvents_SheetPivotTableUpdateEventHandler(Application_SheetPivotTableUpdate);//数据透视表更新触发事件
4 Globals.ThisAddIn.Application.SheetCalculate += new Excel.AppEvents_SheetCalculateEventHandler(Application_SheetCalculate);//对工作表进行重新计算之后
5 Globals.ThisAddIn.Application.SheetBeforeRightClick += new Excel.AppEvents_SheetBeforeRightClickEventHandler(Application_SheetBeforeRightClick); //右键单击工作表时触发事件
6 Globals.ThisAddIn.Application.SheetFollowHyperlink+= new Excel.AppEvents_SheetFollowHyperlinkEventHandler(Application_SheetFollowHyperlink );//单击工作表上的任意超链接时
7 Globals.ThisAddIn.Application.SheetActivate += new Excel.AppEvents_SheetActivateEventHandler(Application_SheetActivate);//激活工作表
8 void Application_SheetSelectionChange(object sender, Excel.Range range){}//点击单元格触发事件函数
9 void Application_SheetActivate(object sender){}//激活工作表函数

View Code

(2)禁止触发事件（触发事件是全局的，所以在特定时刻不需要触发事件时要将其禁止）:

1 Globals.ThisAddIn.Application.ScreenUpdating = false; //防止屏幕闪动
2 Globals.ThisAddIn.Application.EnableEvents = false;//禁止触发事件
3 Globals.ThisAddIn.Application.DisplayAlerts = false;//禁弹窗
4 Globals.ThisAddIn.Application.DisplayAlerts = true;//启弹窗
5 Globals.ThisAddIn.Application.ScreenUpdating = true; //启动屏幕闪动
6 Globals.ThisAddIn.Application.EnableEvents = true;//启动触发事件

View Code

7、  错误

(1)     在开发过程中，不可避免会出现一些bug和错误，调试运行的时候导致进程卡死的情况也有可能，次数多了，excel会自动禁用你调试出错的加载项。解决方法是：文件——选项，在弹出框最下方中间偏左下拉框选择“禁用项目”，点击“转到”，将被禁用的加载项启用，然后在“开发工具”选项卡点击“com加载项”，勾选你的项目名称，确定，加载项就出来了，又可以一起快乐的玩耍了！

还有“异常来自 HRESULT:0x800A03EC”这种错误，一般是代码有错误，具体原因视情况而定。（已遇到因为从0开始循环抛异常和因为透视表表格格式不同而使用pivotField.PivotFilters.Add时抛异常）

(2)     在卸载旧的addin时可能会未卸载干净，这就需要在注册表中删除，注册表位置：HKEY_CURRENT_USER\Software\Microsoft\Office\Excel\Addins\

8、参考

浅谈Excel开发：三 Excel 对象模型：

C#开发Excel报表系列整理：

http://www.360doc.com/content/07/0824/10/12027_691547.shtml

VSTO学习归结：

http://club.excelhome.net/forum.php?mod=viewthread&tid=896478&extra=page%3D1

工作簿工作表所有事件一览表：

http://club.excelhome.net/thread-71744-1-1.html