案例

案例來(lái)源：Excel和Access （微信公眾號(hào)）點(diǎn)擊 - 查看原文

案例圖一

根據(jù)指定的工作簿名稱，批量創(chuàng)建Excel工作簿。

附件：點(diǎn)擊查看-百度云
提取密碼：i6oj

一、源數(shù)據(jù)

可以自定義寫(xiě)上需要的名稱，示例用日期來(lái)建立。使用日期時(shí)，注意先把格式調(diào)整為文本類(lèi)型。

二、批量生成代碼

Sub 批量創(chuàng)建指定名稱工作簿()
Dim i, k As Integer
Dim Sr As String

k = 1000

For i = 1 To Range("a" & k).End(xlUp).Row
    Workbooks.Add
    Sr = "C:\Users\R8888\OneDrive\桌面\" & ThisWorkbook.Worksheets("sheet1").Range("a" & i) & ".xlsx"
    '此處限定了這個(gè)工作簿的Sheet1工作表，A列的數(shù)據(jù)。引用A列的數(shù)據(jù)，作為生成的工作簿名稱
    ActiveWorkbook.SaveAs Sr
Next
    ActiveWorkbook.Close
    MsgBox "創(chuàng)建完成！"
End Sub

代碼解釋

2.1 定義K=1000，即設(shè)定生成最多不超過(guò)1000個(gè)的文件名稱；
2.2 Workbooks.add方法，生成一個(gè)新工作簿；
2.3 定義Sr，表示一個(gè)完整的路徑+文件名，系一個(gè)文件；
2.4 因?yàn)樾律傻墓ぷ鞑灸J(rèn)為最前方激活的工作簿，ActiveWorkbook.saveAs Sr把激活的工作簿另存為，定義好的路徑與名稱；