會計幫幫網

 找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

投注限红是什么意思
會計幫幫網 門戶 EXCEL表格 查看主題

EXCEL批量生成工作薄VBA代碼

發布者: admin | 發布時間: 2017-10-8 08:30| 查看數: 76897| 評論數: 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
上一篇:EXCEL提取經典解說
下一篇:EXCEL樣式表劃線公式

最新評論

快訊

  

     
您需要 登錄 后才可以回復,沒有帳號?立即注冊 使用QQ帳號登錄 使用新浪微博帳號登錄
高級模式意見反饋用戶公告充值
快速回復 返回頂部 返回列表