Question

我想将工作表移动到新工作簿并将其另存为具有工作表名称的新工作簿。我有这个部分，但我想重复它，直到所有工作表都从主工作簿中移出。

我使用的代码如下：

Sub MoveToNew()
'Move the active sheet to a new Workbook.
Activesheet.Move
MName = Activesheet.Name & ".xls"
MDir = ActiveWorkbook.Path
ActiveWorkbook.SaveAs Filename:="C:\Users\DICS-IN\Desktop\Check\" & MName
ActiveWorkbook.Save
ActiveWorkbook.Close

它一直有效，但我希望重复同样的事情，直到所有的纸张被移动并与主纸张分开保存。

我发现Dim为Integer等但却无法做到。

Answer 1

使用For Each ... Next循环遍历所有工作表

示例：

Sub test()
Dim S As Worksheet

    ' loop through all worksheets
    For Each S In ActiveWorkbook.Worksheets

        Debug.Print S.Name
        ' do something with S
    Next S

End Sub

重复一个子命令

1 个答案: