如何使用 VBA 从工作表创建多个 Excel 工作簿

Question

I have a huge Excel report with many different server names and now I thought it might be possible to write a macro in VBA that creates a new excel file which is named after the server name.

For example my table has a column called "servername" and n rows which contain the name "Server1" and m rows which contain the name "Server2"

Now I want the macro to create two files, Server1.xlsx and Server2.xlsx and both files contain every row which contains the servername.

Is this possible? If yes could you please help me I have never used VBA before and dont know how to start.

Answer 1

You start by creating your two workbooks. You now have three books. The original (which holds the program code) is referred to as ThisWorkbook, the other two are referred to by object variables. Then you start looping through each row in your existing page, and use an IF statement to take each row to either one or the other destination. You stop when you reach a blank row. Here's an example (note you will have to expand this yourself)

 Sub Example()
 Dim wb as workbook 'declare an objvet variable
 Set wb = workbooks.add()  'point it to a new instance of the workbook class
 wb.saveas "File1.xlsx" 'save it as file1
 dim source as Range  'pointer to original file
 dim target1 as range  'pointer to destination
 set Source = thisworkbook.worksheets(1),range("a1")  'point to a1 in source file
 set target = wn.worksheets(1).range("a1")
 Do  'start a loop
 if source.text = "fred" then  'id cell holds this text then....
     source.entirerow.copy target  'copy source to target
     set target = target.offset(1,0)  'move target pointer down one row, no columns
 end if
set source = source.offset(1,0) 'move source pointer
loop until source = "" 'stop at first blank cell
wb.save

Answer 2

It's entirely possible. However, if you haven't written VBA before, you'll need to start there first.

I recommend Bill Jelen's Excel VBA books . They're very informational and he is the top authority on all things Excel/VBA. If you don't want to pay, there is always Chip Pearson's site .

After you've developed a beginner's grasp of VBA, I'd recommend storing all of your metadata in an Excel Table , loop through all rows in that table and create workbooks using the metadata in each row.