使用數據創建，命名並填充新工作簿

Question

我有一個包含兩列數據的Excel工作表。列A具有所需的新工作簿名稱，列B的相鄰單元具有我在新工作簿中需要的數據。

所以，如果032411在列A和50是在B列，則宏將創建一個名爲032411和50將在工作簿的單元A1新的工作簿。

Answer 1

您可以使用此：

Sub CreateBooks() 

    Dim oCell As Excel.Range 
    Dim oWorkbook As Excel.Workbook 

    'Added to avoid messages asking to confirm overwriting 
    ' previous existent files with same name 

    Application.DisplayAlerts = False 

    For Each oCell In Range("A:A") 

     If oCell.Value = "" Then Exit For 

     Set oWorkbook = Workbooks.Add 

     oWorkbook.Sheets(1).Cells(1, 1).Value = oCell.Offset(0, 1).Value 

     'If the cell value contains only the file name (instead of the whole path 
     ' the file needs to be saved) it will save into MyDocuments folder 
     oWorkbook.Close True, oCell.Value 

    Next oCell 

    Application.DisplayAlerts = True 

End Sub 

如果你有幾個文件生成，則可以選擇使用application.ScreenUpdating = False。