VB.net 控制Excel添加Sheet页，指定添加位置

最近使用VB 去生成Excel，正常添加都可以，但是添加的顺序都是倒叙的，看着比较揪心。

解决方法如下：

 

Private _excelApp As Object = NothingPrivate _wBooks As Excel.Workbooks = NothingPrivate _wBook As Excel.Workbook = NothingPrivate _activeSheet As Excel.Worksheet = Nothing_excelApp = New Excel.Application()_wBooks = _excelApp.Workbooks_wBook = _wBooks.Add(True)_activeSheet = _wBook.Sheets.Add(After:=_wBook.Sheets(_wBook.Sheets.Count))'添加到最后_activeSheet.Name = "NewSheet"_activeSheet.PageSetup.CenterHorizontally = True'自动调整列宽_activeSheet.Cells.EntireColumn.AutoFit()'排序_activeSheet.UsedRange.Sort(Key1:=_activeSheet.Range(_activeSheet.Cells(1, 2).Address), Order1:=Excel.XlSortOrder.xlAscending, _Header:=Excel.XlYesNoGuess.xlYes, Orientation:=Excel.XlSortOrientation.xlSortColumns)