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

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

解决方法如下：

Private _excelApp As Object = Nothing
Private _wBooks As Excel.Workbooks = Nothing
Private _wBook As Excel.Workbook = Nothing
Private _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)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!