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，密钥1：=橙（ “J2”）_