简单的问题没解决！！！帮忙，谢谢

Question

Sub test1()    Dim x1Sheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
    Dim xlApp As Excel.Application    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("D:\SXF_work\专办站\11.xls")
    Dim i As Integer
    For i = 1 To 3 Step 1
        Set x1Sheet = xlBook.Worksheets(i)   '似乎有问题？？？？
        x1Sheet.Select                  
        Cells(1, 1) = x1Sheet.Name
        Set x1Sheet = Nothing
   Next i
    
End Sub    本意是想在每个表的cells(1,1)里写入该表的名字，可是结果却只是在sheet1的cells(1,1)里写入了sheet3的表名字，写成x1Sheet.cells(1,1)=x1sheet.name,就什么都不显示了，该怎么写啊！谢谢了。

Answer 1

Sub test1()
    Dim x1Sheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
    Dim xlApp As Excel.Application    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    Set xlBook = xlApp.Workbooks.Open("D:\SXF_work\专办站\11.xls")
    xlApp.Windows("11.xls").Activate
    Dim i As Integer
    For i = 1 To 3 Step 1
        xlApp.Sheets(i).Cells(1, 1) = xlApp.Sheets(i).Name
        Set x1Sheet = Nothing
    Next i
    
End Sub

Answer 2

Sub test1()
    Dim xlApp As Excel.Application    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    xlApp.Workbooks.Open "D:\SXF_work\专办站\11.xls"
    xlApp.Windows("11.xls").Activate
    Dim i As Integer
    For i = 1 To 3 Step 1
        xlApp.Sheets(i).Cells(1, 1) = xlApp.Sheets(i).Name        
    Next i
    Set xlApp = Nothing
End Sub