新手学拆分工作簿另存为

simic1989

学习处理工作簿多表另存为的问题。Sub test()
Dim i As Integer
Dim j As Integer
For j = 1 To Sheets.Count

    For i = 100 To 2 Step -1
        If Sheets(j).Range("e" & i) = "男" Then
            Sheets(j).Range("f" & i) = "先生"
        Else
            Sheets(j).Range("f" & i) = "女士"
        End If

        If Sheets(j).Range("d" & i) = "" Then
            Sheets(j).Range("d" & i).EntireRow.Delete
        End If
    Next
       Sheets(j).Copy
        ActiveWorkbook.SaveAs Filename:="d:\date\" & Sheets(j).Name & ".xls"
        ActiveWorkbook.Close

Next

end sub


请问为啥执行到第二个表，处理完要保存的时候提示标黄位置下标越界，请问如何修改？

小花鹿

ActiveWorkbook.SaveAs Filename:="d:\date\" & ThisWorkbook.Sheets(j).Name & ".xls"

simic1989

小花鹿 发表于 2018-8-15 21:26
ActiveWorkbook.SaveAs Filename:="d:\date\" & ThisWorkbook.Sheets(j).Name & ".xls"

请问能稍微解释一下，什么情况下用thisworkbook，什么时候不需要吗？
当我用下面这种形式做得时候，就没法用thisworkbook
Sub shishi()
Dim i As Integer
Dim sht As Worksheet
    For Each sht In Worksheets
        For i = 100 To 2 Step -1

        If sht.Range("e" & i) = "男" Then
        sht.Range("f" & i) = "先生"
        Else: sht.Range("f" & i) = "女士"
        End If
        
        If sht.Range("d" & i) = "" Then
        sht.Select
        sht.Range("d" & i).Select
        Selection.EntireRow.Delete
        End If
      
        Next
        sht.Copy
        ActiveWorkbook.SaveAs Filename:="d:\" & sht.Name & ".xls"
        ActiveWorkbook.Close
    Next

End Sub

小花鹿

ActiveWorkbook.SaveAs Filename:="d:\date\" & Sheets(j).Name & ".xls"
这句中的Sheets(j).Name是指的活动工作薄的工作表，当新建了一个工作薄时没有第2个工作表，所以错误
用for each的方法，sht始终是指的thisworkbook中的工作表，所以不会出现错误

jiangxiaoyun

一般引用对象或其他的时候，对象或其他用指定变量来代替是不错的选择。

zzzxxxmmm

学习了。。。。。。。。。。