VB.net Excel排序

我正在尝试将一个宏从VBA转换到vb.net，但遇到了一个类型不匹配的错误，无法解决。我希望这里有人能帮助我

这是代码

Sub SortRawData()
    Dim oSheet As Excel.Worksheet
    Dim oRange As Excel.Range


    Try
        oSheet = SetActiveSheet(mLocalDocument, "Sheet 1")
        oRange = mApplication.ActiveSheet.UsedRange


        oRange.Sort(Key1:=oRange("J2"), Order1:=Excel.XlSortOrder.xlAscending, _
            Header:=Excel.XlYesNoGuess.xlYes, OrderCustom:=1, MatchCase:=False, _
            Orientation:=Excel.XlSortOrientation.xlSortColumns, _
            DataOption1:=Excel.XlSortDataOption.xlSortNormal, _
            DataOption2:=Excel.XlSortDataOption.xlSortNormal, _
            DataOption3:=Excel.XlSortDataOption.xlSortNormal)


             Catch ex As Exception
        ErrorHandler.HandleError(ex.Message, ex.Source, ex.StackTrace)

    End Try


End Sub

这是宏中的代码

Sub SortRawData(ByRef poRange As Range)

Set poRange = Application.ActiveSheet.UsedRange


poRange.Sort Key1:=Range("J2"), Order1:=xlAscending _
, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal


poRange.Sort Key1:=Range("D2"), Order1:=xlAscending, _
                   Key2:=Range("H2"), Order2:=xlAscending, _
                   Key3:=Range("L2"), Order3:=xlAscending, _
                   Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:= _
                   xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
    DataOption3:=xlSortNormal


End Sub

任何帮助都将不胜感激

---

谢谢

简单地将第一行更改为：oRange.Sort（Order1:=Excel.XlSortOrder.xlAscending，Key1:=oRange（“J2”）\uu

在哪一行上，您收到了错误？我在oRange.Sort上收到了一个类型不匹配错误（Order1:=Excel.XlSortOrder.xlAscending，\ukey1:=oRange（“J2”），u头：=Excel.XlYesNoGuess.xlYes，匹配框：=False，u方向：=Excel.XlSortOrientation.xlSortColumns，u数据选项1:=Excel.XlSortDataOption.xlSortNormal，u数据选项2:=Excel.XlSortDataOption.xlSortNormal，u数据选项3:=Excel.XlSortDataOption.xlSortNormal）谢谢，我终于让它工作了。这是我的结果：oRange.Sort（Key1:=oRange（2，9），Order1:=Excel.XlSortOrder.xlAscending，u头：=Excel.XlYesNoGuess.xlYes，MatchCase:=False，u方向：=Excel.xlSortOrentation.xlSortColumns，u数据选项1:=Excel.XlSortDataOption.xlSortNormal，u数据选项2:=Excel.XlSortDataOption.xlSortNormal，u数据选项n3:=Excel.XlSortDataOption.xlSortNormal）