运用VBA把数据导入到模板中生成独立文件

运用VBA把数据导入到模板中生成独立文件

作者：王益树

来源：《教育教研》2013年第02期

【摘要】把集中的信息生成独立文件方便核对等。

【关键词】VBA ；分散生成

问题的提出：

2012年上投摩根公司要与我校进行一次联谊活动，他们要求我校提供学生个人信息方便结对子，当我们采集到一定数量的学生信息后，需要根据别人提供的模板生成相同人数的文件。

问题的解决：

（一）资料准备

上投公司提供的模板（如下图）

我校采集的学生信息（如下图）

（二）信息处理

⑴准备一个工作簿：

⑵加入代码生成一个个学生信息工作簿（图片稍后加入）：

Sub lskd（）

Dim lastrow&， I&

With Sheets（"数据库"）

Application.DisplayAlerts = False

lastrow = .[a65536].End（xlUp）.Row

For I = lastrow To 2 Step -1