Worksheets(arr).Copy 为什么下标越界？怎么改

糖↗小冷

Private Sub CommandButton3_Click()
Dim oFso As Object, FolderPath
Dim arr()
FolderPath = "E:" & Range("j4") & ""
Set oFso = CreateObject("Scripting.FileSystemObject")
With oFso
If .FolderExists(FolderPath) Then
MsgBox "已保存在" & FolderPath & "文件夹"
Else
.CreateFolder FolderPath
End If
End With

i = 0
For Each sht In Worksheets
    i = i + 1
    ReDim Preserve arr(1 To i)
    arr(i) = sht.Name
    i = i + 1
    sht.UsedRange.Value = sht.UsedRange.Value
Next
Worksheets(arr).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs FolderPath & Range("S6") & Format(Now(), "YYYY-MM-DD-HH-MM") & ".xls"
Application.DisplayAlerts = True
ActiveWindow.Close
End Sub


代码运行到
Worksheets(arr).Copy

提示下标越界？ 为什么

ykcbf1100

建议上附件，光有代码不方便调试。

糖↗小冷

ykcbf1100 发表于 2023-2-1 16:21
建议上附件，光有代码不方便调试。

谢谢老师， 我通过自己的代码一步步解决了  谢谢您

huang1314wei

i=i+1  重复了

taller

糖↗小冷

taller 发表于 2023-2-2 00:12

谢谢老师的解答， 学习了， 让我代码跟简洁了 感谢

糖↗小冷

huang1314wei 发表于 2023-2-1 20:57
i=i+1  重复了

谢谢老师耐心的指出问题，十分感谢您。