如何通过自动化在Excel中创建共享公式

Question

我只需编写一个VC自动化程序，方法是导入Excel 2003的类型库，然后使用这些类。如何通过自动化类创建共享公式。我无法在MS文档中找到与创建共享公式有关的属性/方法。

谢谢

Answer 1

我们可以使用Range.copy来创建共享公式。

而此方法的参数是目标范围。

请看下面的示例：

Excel.Worksheet objWorkSheet =（Excel.Worksheet）Globals.ThisWorkbook.ActiveSheet;

 Excel.Range oResizeRange; 
     objWorkSheet.Cells[1, 5] = "1.33"; 
     objWorkSheet.Cells[2, 5] = "1.565"; 
     objWorkSheet.Cells[3, 5] = "1"; 
     objWorkSheet.Cells[4, 5] = "1"; 
     objWorkSheet.Cells[5, 5] = "1"; 
     objWorkSheet.Cells[6, 5] = "1"; 
     oResizeRange = objWorkSheet.get_Range("E8", "E8").get_Resize(Missing.Value, 1); 
     oResizeRange.Formula = "=SUM(E2:E6)"; 
     objWorkSheet.Range["F1"].Formula = "=E1*10"; 
     objWorkSheet.Range["F1"].Copy(objWorkSheet.get_Range(oWS.Range["F2"], objWorkSheet.Range["F8"])); 

这是一个C＃示例，我在VC中找到了相同的方法。