会计帮帮网

 找回密码
 立即注册

QQ登录

只需一步,快速开始

会计帮帮网 门户 EXCEL表格 查看主题

EXCEL批量生成工作薄VBA代码

发布者: admin | 发布时间: 2017-10-8 08:30| 查看数: 72820| 评论数: 0|帖子模式

Sub newbooks()
    Dim i&, p$, temp$
    On Error Resume Next
    Application.ScreenUpdating = False
    p = ThisWorkbook.Path & "\"
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        temp = Cells(i, 1) & ".xlsx"
        With Workbooks.Add
            .SaveAs p & temp
            .Close False
        End With
    Next
    Application.ScreenUpdating = True
End Sub

最新评论

快讯

  

     
您需要 登录 后才可以回复,没有帐号?立即注册 使用QQ帐号登录 使用新浪微博帐号登录
高级模式意见反馈用户公告充值
快速回复 返回顶部 返回列表