如何通过VSTO文档级代码向单元格写数据？

晨曦莫凡

因 Microsoft.Office.Interop.Excel.Range  的range.row ,range.colunm,cells等均为只读属性，要想通过代码写单元格的值，就只能用一下语句吗？  请大侠指点？
DIM A AS       Microsoft.Office.Tools.Excel.NamedRange
  A=Me.Controls.AddNamedRange(Me.Range("A1:AN500"), "cellText")   
  A.Value2="单元格值"  

lunzi

没必要啊。
可以直接赋值啊。

1.     Private Sub Sheet3_Startup() Handles Me.Startup
   
2.         Me.Cells(1, 1).value = "a"
   
3.         Globals.ThisWorkbook.Worksheets(1).cells(1, 2).value = "c"
   
4.     End Sub

复制代码