EXCEL大量数据套打,数据自动获取,

需要套打N多数据,不想一页一页的改.又没有成熟软件支持的情况下改怎么办呢

我们可以使用EXCEL来套打数据,使用VBS来替换数据,详见下文

首先需求,,,,我需要套打的格式如下:


红色部分为需要根据源数据自动生成,其他部分格式不变打印出来

首先在excel按住ALT+F11呼出VBS编程界面,以下是已经写好的

现在来说下,如何根据以上代码自定义获取到自己想要获取的数据

“`python
Sub 套打演示() ‘模块名字,中文部分可以自定义

For i = 2 To Sheets(“data”).Range(“A65536”).End(3).Row + 4 Step 4 ‘设置循环次数和步进值,data为工作表名字,’A65536’是获取A列的所有数据 end(3).Row这句我也不知道什么意思,照写 +4这一句是因为不会打印最后一页的数据,所以根据步进值大小加上这个值,以达到打印所有数据的要求,step后面跟步进值,相当于数字每次+4

ActiveSheet.PrintOut copies:=1 ‘打印语句不动

Cells(3, 3) = Sheets(“no”).Cells(i, 1) ‘在no表单获取数据N的值
Cells(3, 4) = Sheets(“no”).Cells(i, 2) ‘同上
‘其中(3,4) 3代表行数 4代表列数,填充位置
‘末尾代表获取的位置
Cells(5, 3) = Sheets(“data”).Cells(i, 1) ‘获取数据1
Cells(5, 5) = Sheets(“data”).Cells(i, 2) ‘获取数据2
Cells(5, 1) = Sheets(“time”).Cells(i, 1) ‘获取time里面的时间数据

Next
End Sub

“`

在看下我的工作表构成,总共4个表Sheet1为模板表,,其他3个见名知意


套打出来的演示文档,我用PDF虚拟打印机打印出来,给看下效果,标红部分为根据各个工作表自动生成的数据,下面3项没有数据是因为我删掉多余代码,方便观看,如果要获取多行数据,cells开头的代码多复制几次就行,单元格标识数据在A1=1,1 B3=2,3,以此类推可获取自己需要获取的数据


最后一步,制作按钮快速使用已经做好的代码,至于如何调出开发工具,请自行百度,这里就不多做解释了

选择之后再空白处划出按钮方框,此处可以选着**已经设置好的宏**,或者新建(新建就是把代码复制进去就行了,然后就可以点击按钮进行测试)

以上完成之后就会根据你数据的多少,每页包含多少数据,自动生成多少页的打印数据,并且是根据你当前选定的打印机自动打印

5 Replies to “EXCEL大量数据套打,数据自动获取,”

  1. 测试一下

  2. Marvelous, what a webpage it is! This webpage provides valuable data to us, keep it up. Nadean Ilaire Florie

  3. What a beautiful, gentle guide to our awakening. Thank You! Hilary Rawley Griffy

  4. Now I am ready to do my breakfast, afterward having my breakfast coming again to read additional news.| Delora Andris Galven

发表评论