VB.net Excel сортировка

Question

Я пытаюсь преобразовать макрос из 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

Любая помощьбыл бы признателен.

Спасибо!

Answer 1

Просто измените первую строку следующим образом: oRange.Sort (Order1: = Excel.XlSortOrder.xlAscending, Key1: = oRange ("J2") _