Dim XlsApp As Excel.Application
Dim XlsBook As Excel.Workbook
Dim XlsSheet As Excel.Worksheet
Private Sub Form_Load()
Set XlsApp = CreateObject("excel.application")
XlsApp.Visible = True
Set XlsBook = XlsApp.Workbooks.Add
Set XlsSheet = XlsBook.Worksheets.ADD
XlsSheet.Name = "01"
Set XlsSheet = XlsBook.Worksheets.Add
XlsSheet.Name = "02"
End Sub
先添加的表在后面,后添加的表在前面,怎样才能让后添加的表在后面呢?
Dim XlsBook As Excel.Workbook
Dim XlsSheet As Excel.Worksheet
Private Sub Form_Load()
Set XlsApp = CreateObject("excel.application")
XlsApp.Visible = True
Set XlsBook = XlsApp.Workbooks.Add
Set XlsSheet = XlsBook.Worksheets.ADD
XlsSheet.Name = "01"
Set XlsSheet = XlsBook.Worksheets.Add
XlsSheet.Name = "02"
End Sub
先添加的表在后面,后添加的表在前面,怎样才能让后添加的表在后面呢?