客户有个简单的需求，每次在excel中操作的东西要保存下来，以便于下一次打开时，好多东西就可以复用。比如一张简单报表，表中保存特定测点的实时值。每次打开用户就可以看到自己关心的测点，刷新下就可以获取实时数据。（用过PI-DataLink的肯定一下子就明白了。）
刚开始一看，这个需求不难呀，存东西是office的专长。具体做的时候，问题来了。每个格子中存的东西不是固定的文本内容，而是从数据库中获取的动态数据，客户不要看 之前的数据，他要看到之前操作的内容，包括数据库连接信息，数据库测点信息等等。问题：如何存相关的操作信息，存在哪里？在展开问题之前，先学点基础知识。Excle中的基本操作都需要强大的Range对象。离开对Range的深入学习，具体的技巧都是无源之水下面的信息来自于网络：Range 对象是 Excel 应用程序中最经常使用的对象；在操作 Excel 内的任何区域之前，都需要将其表示为一个 Range 对象，然后使用该 Range 对象的方法和属性。一个 Range 对象代表一个单元格、一行、一列、包含一个或者更多单元块（可以是连续的单元格，也可以式不连续的单元格）的选定单元格，甚至是多个工作表上的一组单元格。在代码中引用范围。Address 属性：这个属性返回范围坐标的字符串，坐标以下面几种格式之一表示，包括：“$A$1”（单元格在位置 A1）、“$1”（在工作表的第一行）和“$A$1:$C$5”（范围包括介于 A1 和 C5 之间矩形内的所有单元格）。“$”表示绝对坐标（而非相对坐标）。Excel.Worksheet ws = (Excel.Worksheet)ThisWorkbook.Worksheets[1];Excel.Range rng;rng = ThisApplication.ActiveCell;<br /> rng = ws.get_Range("A1", Type.Missing);//使用对象的 Range 属性指定一个区域<br /> rng = ws.get_Range("A1:B12", Type.Missing);//使用对象的 Range 属性指定一个区域rng = (Excel.Range)ws.Cells[1, 1];//使用工作表的 Cells 属性，指定单个行和列值rng = ThisApplication.Range("SomeRangeName", Type.Missing);//引用一个命名范围rng = ws.Range("A1", "C5")//直接引用范围的 Cells、Rows 或 Columns 属性，作用相同rng = ws.Range("A1", "C5").Cellsrng = ws.Range("A1", "C5").Rowsrng = ws.Range("A1", "C5").Columnsrng = (Excel.Range)ws.Rows[1, Type.Missing];//引用特定行或特定列或行和列的范围<br /> rng = (Excel.Range)ws.Rows["1:3", Type.Missing];rng = (Excel.Range)ws.Columns[3, Type.Missing];//Application 对象的 Selection 属性返回与选定单元格对应的范围<br /> rng = (Excel.Range)ThisApplication.Selection;//创建一个包含其他两个合并范围的范围（在引号内指定两个范围，并用逗号隔开）<br /> rng = ThisApplication.get_Range("A1:D4, F2:G5", Type.Missing);//与后三行效果相同rng1 = ThisApplication.get_Range("A1", "D4");rng2 = ThisApplication.get_Range("F2", "G5");rng = ThisApplication.Union(rng1, rng2, Type.Missing, Type.Missing, ……);//创建一个引用其他两个范围重叠部分的范围（在引号内指定两个范围，并不使用分隔符）<br /> rng = ThisApplication.get_Range("A1:D16 B2:F14", Type.Missing);//与后三行效果相同rng1 = ThisApplication.get_Range("A1", "D16");rng2 = ThisApplication.get_Range("B2", "F14");rng = ThisApplication.Intersect(rng1, rng2,Type.Missing, Type.Missing, Type.Missing, Type.Missing,……);//使用范围的 Offset 属性取得相对于初始范围的一个偏移<br /> rng = (Excel.Range) ws.Cells[1, 1];for (int i = 1; i <= 5; i++){rng.get_Offset(i, 0).Value2 = i.ToString();}//使用范围的 CurrentRegion 属性取得一个代表当前区域的范围，这个当前区域由最近的空行和列限定,即连接在一起的单元格ThisApplication.get_Range("C3", Type.Missing).CurrentRegion.Font.Bold = true;//使用范围的 Areas 属性取得范围集合，其中每个范围对应于范围内容的一个区域<br /> rng = ThisApplication.get_Range("Test", Type.Missing);for (int i = 1; i <= rng.Areas.Count; i++){MessageBox.Show( rng.Areas[i].get_Address(Type.Missing, Type.Missing, Excel.XlReferenceStyle.xlA1, Type.Missing, Type.Missing));}/使用 End 属性，以及一个 XlDirection 枚举值（xlUp、xlToRight、xlToLeft、xlDown）来取得一个代表区域末端单元格的范围(即四个方向上离该选中范围最远的单元格)<br />Excel.Range rngLeft, rngRight, rngUp, rngDown;rng = (Excel.Range) ThisApplication.Selection;<br /> rngRight = rng.get_End(Excel.XlDirection.xlToRight);rngLeft = rng.get_End(Excel.XlDirection.xlToLeft);rngUp = rng.get_End(Excel.XlDirection.xlUp);<br /> rngDown = rng.get_End(Excel.XlDirection.xlDown);//使用 EntireRow 或 EntireColumn 属性引用包含特定范围的行或列<br /> rng = ThisApplication.get_Range("Test", Type.Missing);<br /> rng.Areas[2].EntireRow.Font.Bold = true;在代码中操作范围。自动填充：AutoFill查找：Find排序：SortCells 获取一个 Range 对象，该对象表示工作表上的所有单元格（不仅仅是当前正在使用的单元格）。Cells[行,列]Columns 获取一个表示工作表上的所有列的 Range 对象Rows 获取一个表示工作表上的所有行的 Range 对象.贴了上述代码，是为了把Range的基本操作做个交代。详细的肯定以MSDN或以微软官方文档为准。学完Range，再回到开头的问题。要存下上次的操作及参数，关键点在Range.Formula。我们在Excel中某个格子中输入 =SUM(A1:A2)，然后回车。<br />
可以看到C3格子中显示的计算结果，上面的fx显示的是 =SUM(A1:A2)。这个时候保存该sheet，就保存了使用的公式，C3显示的最终结果不重要了，
重要的是保存了公式。以此类推，我们要保存的东西就是要放在Formula中，后续的事情水到渠成。调用的函数哪里来？SUM是Excel内置的，我们需要的Excel当然没有，这就要用UDF（User Define Function）。UDF的开发，在上一篇中有所 描述。
不涉及效率问题，使用VSTO C#开发当然没有问题。
看一下基类说明：
public abstract class UDFBase{/// <summary>/// 解决在某些机器的Excel提示找不到mscoree.dll的问题/// 这里在注册表中将该dll的路径注册进去，当使用regasm注册该类库为com组件/// 时会调用该方法/// </summary>/// <param name="type"></param>[ComRegisterFunctionAttribute]public static void RegisterFunction(Type type){Registry.ClassesRoot.CreateSubKey(GetSubKeyName(type, "Programmable"));RegistryKey key = Registry.ClassesRoot.OpenSubKey(GetSubKeyName(type, "InprocServer32"), true);key.SetValue("", System.Environment.SystemDirectory + @"\mscoree.dll",RegistryValueKind.String);}[ComUnregisterFunctionAttribute]public static void UnregisterFunction(Type type){Registry.ClassesRoot.DeleteSubKey(GetSubKeyName(type, "Programmable"), false);}private static string GetSubKeyName(Type type, string subKeyName){return string.Format("CLSID\\{{{0}}}\\{1}", type.GUID.ToString().ToUpper(), subKeyName);}/// <summary>/// 将Object类的四个公共方法隐藏/// 否则将会出现在Excel的UDF函数中/// </summary>/// <returns></returns>[ComVisible(false)]public override string ToString(){return base.ToString();}[ComVisible(false)]public override bool Equals(object obj){return base.Equals(obj);}[ComVisible(false)]public override int GetHashCode(){return base.GetHashCode();}}
在基类的基础上，开发自己的UDF
[Guid("E458BA70-3F9A-409E-9832-F7BDAF71D554")][ClassInterface(ClassInterfaceType.AutoDual)][ComVisible(true)]public class RDataLinkFunc : UDFBase{// UDF Functions...}
————————————————
版权声明：本文为CSDN博主「xian_wwq」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/tpriwwq/article/details/25221037
若有收获，就点个赞吧
0 人点赞
