使用数据创建，命名并填充新工作簿

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。