前景提要
今天开始我们进入第5序列的学习，本序列我们将要学习的时候关于工作薄的相关知识和各种操作，相信很多的童鞋都已经迫不及待的想要学习这些方面的额知识了，因为在很早的时候就有童鞋私信我说想要接触这方面的知识，小编在完成了前面4个序列差不多49篇的基础知识的分享之后，也是成功的来到了第5序列，今天开始我们一起进入VBA和工作薄的世界。
这里我们先来说下工作薄和工作表之间的区别，很多人在开始学习的时候都会将这两个概念混淆，工作薄在VBA是workbook，而工作表在VBA是worksheet，再来个图看看应该会更加详细一点。
image.png
最顶层的窗体是workbook，而workbook里面的每一个sheet就是worksheet，按照窗体界面的说法，叫做父子关系，workbook是父类，worksheet是子类，这一点大家再学习之前一定要弄清楚这两个概念，否则在后面的操作中出现张冠李戴就不好了 。
场景模拟
今天我们主要分享的是如何通过VBA来进行批量工作薄的创建，这个操作在之后的学习 中会经常用到，今天我们模拟的场景是，假设现在我们有公司每个销售员的销售记录，我们要分开一个一个工作薄，方便在结算业绩的时候一起发送，也方便员工核对自己的业绩，不过每个公司的销售员有很多，我们如果一个个的手工创建再复制粘贴的话，会非常的麻烦，这时候轮到VBA大展身手了
方法分析
我们在手工创建工作薄的时候，我们需要知道每个员工的明细，每个员工的名字就是工作表的名字，这个非常的简单，然后我们有了员工的姓名，如何通过VBA创建工作薄呢？这里需要运用到一个新知识，workbooks.add这就是新增工作薄的方法，当然新增了工作薄之后，我们肯定还要将工作薄的名字改成员工的名字，那么如何改呢？workbooks.SaveAs("name"),看起来非常的简单，好了，我们上代码吧
代码区
假设我们现在有这样的一份员工销售记录表，我们现在需要将他们通过A列的员工姓名来创建相应的独立工作薄，来看看代码
image.png
Sub 合并()
Dim arr, BookName$, arr1, book As Workbook, pathn
pathn = ThisWorkbook.Path
arr = Range(Cells(1, 1), Cells(1, "e"))
For i = 2 To 20
BookName = Cells(i, 1)
arr1 = Range(Cells(i, 1), Cells(i, "e"))
Workbooks.Add
Set book = ActiveWorkbook
book.Worksheets(1).Cells(1, 1).Resize(1, UBound(arr, 2)) = arr
book.Worksheets(1).Cells(2, 1).Resize(1, UBound(arr1, 2)) = arr1
book.SaveAs (pathn & "\" & BookName)
book.Close
Next i
End Sub
看看外面的效果
image.png
再看看里面的效果
image.png
有没有一种自我感觉良好的感觉，哈哈
代码分析
pathn = ThisWorkbook.Path
此处的目的是获得当前文件夹的位置，即路径
image.png
然后开始遍历，这里我们将单元格内的员工姓名复制给bookName这个变量，将标题列赋值给arr这个数组，将对应的那一列的内容赋值给arr1这个数组，然后进入今天的重点，创建新的工作薄
Workbooks.Add
非常的简单，创建了工作薄之后，我们用一个变量来代表这个我们刚刚创建的工作薄，其实也不可以不用，不过为了书写的方便，一般都会这样的，
book.Worksheets(1).Cells(1, 1).Resize(1, UBound(arr, 2)) = arr
book.Worksheets(1).Cells(2, 1).Resize(1, UBound(arr1, 2)) = arr1
这两句代码用到了数组的相关知识和单元格的知识，这些我们后面会分享到，这里大家先知道下，这两句的作用将我们的标题和对应的数据全部放到我们新建的工作薄中。
最后我们就需要重命名工作薄了，利用工作薄的另存为功能来实现。
book.SaveAs (pathn & "\" & BookName)
这里需要注意不能直接写BookName，路径一定要写完成的路径，套路就是用我们之前 得到的pathn这个路径，加上我们要命名的员工姓名就可以了。
最后是工作薄的关闭。
网友评论