vba 模块和工作表疑惑

daqinqin

以下这个代码放在工作表中运行是没有问题的，能依次创建工作簿，但是把代码放在模块中运行时就出现错误。错误是saveas作用于对象workbook时失败。
大佬们怎么解决这个问题啊？感谢

Sub creat()
    Dim i, pw

    Application.ScreenUpdating = False

    pw = "C:\Users\666\Desktop\text\try"
    For i = 2 To Cells(Rows.Count, 2).End(3).Row
    With Workbooks.Add
        .SaveAs pw & "\" & Cells(i, 2).Value & ".xls"
        .Close False
    End With
    Next
    Application.ScreenUpdating = True
End Sub

zjdh

也可将这段改为
........
With   sheets(“数据”)  ‘原工作表’
For i = 2 To .Cells(.Rows.Count, 2).End(3).Row
    wjm=.Cells(i, 2).Value
    With Workbooks.Add
        .SaveAs pw & "\" & wlm  & ".xls"
        .Close False
    End With
    Next
End with
..........

daqinqin

好像行数设置错了，没事问题，版主可以吧这个帖子删了。

zjdh

你将宏放在模块里后，一般应该指定单元格所在的工作表，例：sheets(“数据”).Cells(i, 2)，否则应将原工作表激活再运行，不然会张冠李戴出错！