会计帮帮网

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 117811|回复: 0

EXCEL批量生成工作薄VBA代码

[复制链接]
发表于 2017-10-8 08:30:46 | 显示全部楼层 |阅读模式
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
会计帮帮网,提供大量免费会计、税务、EXCEL等会计资料下载。www.0577kj.cn
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

快讯

  

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