表格的第一张表直接从利润表开始，无法替换第九张表

michaelwwn

Sub RenameSht()
    Dim aSht, aNewSht, sPath, sFile, Wk, Sht, i
    Application.ScreenUpdating = False
    On Error Resume Next
    sPath = "C:\Users"

    aNewSht = Split("资产负债表,利润表,现金流量表,2019年度期间费用明细表（按月份）,2019年度期间费用明细表（按部门）,2019年度期间费用明细表（按类别）,2019年度产品中心期间费用明细表,2019年度营销中心期间费用明细表,2019年度期间费用累计表（按部门）", ",")
    sFile = Dir(sPath & "*.xls")
     Do While Len(sFile) > 0
         Set Wk = Workbooks.Open(sPath & sFile)
            For i = 1 To UBound(aNewSht)
                Worksheets(i).Name = aNewSht(i - 1)
            Next
      Wk.Close True
         sFile = Dir()
     Loop
    On Error GoTo 0
    Application.ScreenUpdating = True
    MsgBox "Done"
End Sub
我想把文件夹下所有excel工作表都替换，每个excel分别是9张表，请问下这个代码执行的时候为什么第一张表直接是利润表，第九张表没有替换？

michaelwwn

这个是测试的表

AS850629754

数组key是0-8

michaelwwn

AS850629754 发表于 2019-12-29 20:03
数组key是0-8

split里面的是0-8？