1. 程式人生 > >如何用VBA批量copy內容到各工作簿

如何用VBA批量copy內容到各工作簿

Sub 批量COPY工作表到工作簿()  '將工作表中的內容,分表COPY到另一個工作簿中
    '準備一個工作簿,選取需要COPY的工作表(區域),貼,儲存,關閉
    mypath = ThisWorkbook.Path  '程式碼所在工作簿的資料夾路徑
    Set zb = ThisWorkbook '程式碼所在的工作簿
For Each biao In zb.Sheets
        Set fb = Workbooks.Add   '新建的工作簿給fb
        biao.Copy fb.Sheets(1)
        fb.SaveAs mypath & "/" & biao.Name & ".xlsx"
        fb.Close
Next
End Sub