vb.net Excel：获取图表分类名称的问题

出于某种原因，我需要我的图表的类别名称。 这是我到目前为止：

xlWorkbook = xlApp.ActiveWorkbook Dim wsnat As Excel.Chart = TryCast(xlWorkbook.ActiveChart, Excel.Chart) If Not wsnat Is Nothing Then Dim axxxis As Excel.Axis = DirectCast(wsnat.Axes(Excel.XlAxisType.xlCategory, Excel.XlAxisGroup.xlPrimary), Excel.Axis) Dim areyoukiddingme As Object = axxxis.CategoryNames Dim arr As Array = DirectCast(areyoukiddingme, Array) For q As Integer = 0 To arr.GetUpperBound(0) Debug.Print(arr(q).ToString) ' HERE, the array 'arr' has two things which are EMPTY! Next End If 

我的问题是，数组（arry）具有正确数量的EMPTY对象。 如果我在VBA中完成所有的工作，它将按预期工作。 但它不适用于VB.net。 任何线索？ 以下是VBA中的代码：

 Sub test() Dim chrt As Chart Set chrt = ActiveChart Dim names As Variant names = chrt.Axes(xlCategory, xlPrimary).CategoryNames End Sub 

这个子很好地输出我的图表的类别名称！