Can someone please help me to convert the following in bold (below is Excel VBA, need vb.net): 1. Dim shtAry() As Variant shtAry() = Array("SawLineDoors", "SawLineRods", "SawLineGlassStop", "SawLineSwinger", "SawLineFrames", "Frames") Sheets(shtAry()).Select 2, xlApp.Worksheets(sht).Range("A2:H" & xlRows).Sort(key1:=xlApp.Range("E2"), order1:=Microsoft.Office.Interop.Excel.XlSortOrder.xlAscending, Key2:=xlApp.Range("H2"), Order2:=Microsoft.Office.Interop.Excel.XlSortOrder.xlAscending, HEADER:=xlNo, OrderCustom:=1, Orientation:=xlTopToBottom) Thank you.

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

Convert to VB.NET

Thread starter shmidt
Start date May 5, 2016

shmidt

New Member

May 5, 2016

Can someone please help me to convert the following in bold (below is Excel VBA, need vb.net):

1.

Code:

Dim shtAry() As Variant    shtAry() = [B]Array[/B]("SawLineDoors", "SawLineRods", "SawLineGlassStop", "SawLineSwinger", "SawLineFrames", "Frames")
    Sheets([B]shtAry())[/B].Select

Code:

 xlApp.Worksheets(sht).Range("A2:H" & xlRows).Sort(key1:=xlApp.Range("E2"), order1:=Microsoft.Office.Interop.Excel.XlSortOrder.xlAscending, Key2:=xlApp.Range("H2"), Order2:=Microsoft.Office.Interop.Excel.XlSortOrder.xlAscending, [B]HEADER:=xlNo[/B], OrderCustom:=1,[B] Orientation:=xlTopToBottom)[/B]

Thank you.