VSTO中将range放入数组

战战如疯

VBA中定义一个数组可以用arr=range("A1:C10")这种形式，在VSTO中好像行不通，那除了循环赋值之外还有别的方法将range放入数组中吗

wpxxsyzx

估计你的vs设置里option strict为on,如果想要像在vba里一样赋值，可以设置为off，或者在代码里设置：
Option Strict Off
Public Class Sheet1

    Private Sub Sheet1_Startup() Handles Me.Startup

    End Sub

    Private Sub Sheet1_Shutdown() Handles Me.Shutdown

    End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim arr As Object
    arr = Me.Range("a1:a" & Me.Range("a65536").End(Excel.XlDirection.xlUp).Row.ToString).Value
    For i As Integer = 1 To UBound(arr)
      MsgBox(arr(i, 1).ToString)
    Next
  End Sub

地天泰

学习了。谢谢！！！

UUOffice

vsto只是一个规范，可以用c#、vb.net、c++等都行，只要符合语法规范就行