VBA转换VSTO--VB.NET，求助写法

aosmmas

Sub xx()
            Dim r%, i%, arr, arr1, d As Object, str As String, m
        Set d = CreateObject("scripting.dictionary")
        With Worksheets("sheet1")
            r = .Cells(.Rows.Count, 1).End(xlUp).Row
            arr = .Range("a1:E" & r)
            For i = 2 To UBound(arr)
                str = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3) & "|" & arr(i, 4)
                If Not d.exists(str) Then
                    Set d(str) = CreateObject("scripting.dictionary")
                End If
                d(str)(arr(i, 5)) = ""
            Next i
            For i = 0 To d.Count - 1
                arr1 = d(d.keys()(i)).keys
                m = Application.Small(arr1, 1)
                t = t + 1
                .Cells(t + 1, 8).Resize(1, 4) = Split(d.keys()(i), "|")
                .Cells(t + 1, 12) = m
            Next i
        End With
    End If
End Sub
求助VBA语句转换到VB.NET语法里面，完全搞不懂 ，求各位大师解惑，谢谢

lipton

我的一点体会，先不管什么语言，简单的说，程序就是一个一个helllo world的叠加，官方文档就有代码演练如何访问单元格，关键有耐心按照规范一步步往下推演，vb.net和vb语法很接近，自己敲出来的代码才记忆深刻。建议不要一开始就写那些一句代码完成多个功能的句子，看似简练，后续有会有许多的困惑。excel最关键最基础的就是访问Range对象，这步悟了后面的路就好走了。

zx13500333

可以交流一下
QQ:1603522192

微笑持续

lipton 发表于 2021-3-26 15:11
我的一点体会，先不管什么语言，简单的说，程序就是一个一个helllo world的叠加，官方文档就有代码演练如何 ...

说的很好，说的一针见血，直击问题本质，range

温暖如冰54

直接复制到VSTO，然后修改红色的地方，可以使用对象浏览器搜索那个错误的属性或方法，直接复制对象浏览器复制的第一个

微笑持续

lipton 发表于 2021-3-26 15:11
我的一点体会，先不管什么语言，简单的说，程序就是一个一个helllo world的叠加，官方文档就有代码演练如何 ...

说的太好了，一针见血

Enocheasty

VBA和VB的语法大同小异吧，如果用VS的话，直接把代码粘过去，顶多就是添加一些引用引用，根据VS的智能提示就能搞了吧！

jygzcj

vb.net是完全面向对象的，如果用 vb.net还不如用 C#，估计更好理解一点。
类库也更多，学习资料也更多。如果会VBA，学习C#也很快。