vb.net - Excel中命名范围的设置值

Question

如果这是一个完全的菜鸟问题，我深表歉意。我正在为 Excel 编写插件。我在 class1 中有一个 sub 可以打开一个 excel 文件，在这个 sub 中我有一个对 sub2 的引用，它在下面。我要做的就是 Hook 到 Excel 的事件实例，更改命名范围值并退出。但无论我尝试哪种方式，我都会不断出错。这就是我所拥有的。告诉我哪里出错了。忘了提，这是在 VB.NET 中。

   Private Sub SetRangeValue(ByVal RangeName As String, ByVal RangeValue As String)
    Dim ExcelApp As Excel.Application
    Dim TheRange As Excel.Range
    Dim TheRangeName As String = ""

    'Hook into running excel instance
    ExcelApp = CType(Marshal.GetActiveObject("Excel.Application"), Excel.Application)

    'First Attempt Here
    TheRange = ExcelApp.ActiveWorkbook.Names.Item(RangeName)
    TheRange.Value = RangeValue

    'Second Attempt
    TheRange = ExcelApp.Range(RangeName)
    TheRange.Value = RangeValue
End Sub

我不能让任何一个工作。任何帮助表示赞赏。

Answer 1

最后我让它正常工作。这就是它需要工作的方式。感谢所有的帮助。

Private Sub SetRangeValue(ByVal RangeName As String, ByVal RangeValue As String)
    Dim ExcelApp As Excel.Application
    'Dim TheRangeObj As Excel.Range
    Dim TheRange As Microsoft.Office.Interop.Excel.Name
    Dim TheRangeName As String = ""


    'Hook into running excel instance
    ExcelApp = CType(Marshal.GetActiveObject("Excel.Application"), Excel.Application)

    TheRange = ExcelApp.ActiveWorkbook.Names.Item(RangeName)
    TheRange.RefersToRange.Value = RangeValue

End Sub