[已解决]红色代码是什么意思

要用就学

Sub test()
    Dim n%, i%, j%, arr(), p$, f$
    n = Sheets.Count
    If n > 4 Then
        p = ThisWorkbook.Path & "\" （这一句的意思是P=当前工作簿放在所在的路径，对吗？）
        f = Sheets(n).Name
        
        ReDim arr(1 To n - 4)
        For i = 5 To n
            j = j + 1
            arr(j) = Sheets(i).Name
        Next i
        Sheets(arr).Copy
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs p & f
        ActiveWorkbook.Close
    End If
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2013-7-27 21:32

ligh1298 发表于 2013-7-27 20:38
arr()是申明数组
ReDim arr(1 To n - 4)重新申明数组及维度，并能保留以前数据。
p = ThisWorkbook.Path  ...

正如2楼所说。但要补充下：

ReDim arr(1 To n - 4)
这儿，arr是一维数组。是重新申明数组大小（此时也可看作修改维度，因为是一维，一维即最后一维），但不保留之前数据。

ReDim Preserve arr(1 To n - 4)
加了Preserve后，才保留之前数据。

如果是二维或多维，只允许修改最末维的大小。

跳转到最佳答案楼层

ligh1298

arr()是申明数组
ReDim arr(1 To n - 4)重新申明数组及维度，并能保留以前数据。
p = ThisWorkbook.Path & "\"是文档路径，好比C:\我的文档\
Application.DisplayAlerts = False禁止弹出对话框。
我水平有限，只能解释这么多。

youfang

= ThisWorkbook.Path & "\"  这个应该是当前工作簿所在的路径吧

爱疯

ligh1298 发表于 2013-7-27 20:38
arr()是申明数组
ReDim arr(1 To n - 4)重新申明数组及维度，并能保留以前数据。
p = ThisWorkbook.Path  ...

正如2楼所说。但要补充下：

ReDim arr(1 To n - 4)
这儿，arr是一维数组。是重新申明数组大小（此时也可看作修改维度，因为是一维，一维即最后一维），但不保留之前数据。

ReDim Preserve arr(1 To n - 4)
加了Preserve后，才保留之前数据。

如果是二维或多维，只允许修改最末维的大小。

要用就学

ligh1298 发表于 2013-7-27 20:38
arr()是申明数组
ReDim arr(1 To n - 4)重新申明数组及维度，并能保留以前数据。
p = ThisWorkbook.Path  ...

非常感谢您的解释！

要用就学

youfang 发表于 2013-7-27 21:08
= ThisWorkbook.Path & "\"  这个应该是当前工作簿所在的路径吧

能抽出您宝贵的时间给我解答疑惑非常感谢！

要用就学

爱疯 发表于 2013-7-27 21:32
正如2楼所说。但要补充下：

ReDim arr(1 To n - 4)

我的问题已经解决，怎么修改，我不会请教一下。