vba批量合并工作簿代码

有许多实现Excel工作簿合并的方法,在《将多个工作簿中的数据合并到一个工作簿》中介绍过

例如,需要将多个Excel工作簿中的工作表合并到一个工作簿。这里假设需要合并的工作簿在“D:\\示例

Sub CombineWorkbooks( Dim strFileName As String Dim wb As Workbook Dim ws As Object

'包含工作簿的文件夹,可根据实际修改 Const strFileDir As String = \示例\\数据记录\\\Application.ScreenUpdating = False Set wb = Workbooks.Add(xlWorksheet strFileName = Dir(strFileDir & \Do While strFileName <> vbNullString Dim wbOrig As Workbook

Set wbOrig = Workbooks.Open(Filename:=strFileDir & strFileName, ReadOnly:=True

strFileName = Left(Left(strFileName, Len(strFile

在Excel数据透视表中实现很多计数项批量求和方法： 例：

将上图例“计数项”批量改为“求和项”，即第1次、第2次的数据透视表里的计算法为求和，方法如下：

1、 按住ALT+F11（如果是笔记本的话，貌似需要按照FN+ALT+F11，因为按照FN，

才能使F11有效，我的笔记本是这样的，按照自己的电脑来就行，ALT+F11是必

按的。），出现下图的VBA窗口

2、 双击数据透视表所在的表明，即VBAProject（你自己的工作簿名称 ）下边的

Microsoft Excel对象下边的工作表名，例中为Sheet1(基础表)，出现如下图：

3、 然后在窗口的有上方空白处（我不是专业的不知道每个部位都叫什么）写下如下代

码，懒得敲就直接复制就行：

Sub SumDataFields()

Dim ptField As PivotField

For Each ptField In ActiveSheet.PivotTables(1).DataFields With ptField

.Function = xlSum

.Caption = \求和项:\

End With

将这些文件copy到一个文件夹（只有这些Excel，且若打开某一文件，数据就能看见——即不用点其他sheet），建一新Excel，也存到该文件夹。仅打开该新Excel，按Alt+F11，左边窗口右键点，插入模块，在右边窗口粘贴如下代码：

Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String

Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & \AWbName = ActiveWorkbook.Name Num = 0

Do While MyName <> \If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath & \Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range(\+ 2, 1) =

'''VBA_1基本入门代码集

''' by daode1212 2010-10-20

Sub Msg_01() '''消息框:

MsgBox \我们将成为VBA高手!\End Sub

Sub Msg_02() '''消息框,换行:

MsgBox \我们将成为:\高手!\高手!\高手!\End Sub

Sub Msg_03()

'''消息框,双引号:

MsgBox \我们将成为VBA高手!\专家级的高手!\End Sub

Sub Msg_04()

'''消息框,当前时间:

'MsgBox \新的长征起步于:\

'MsgBox \新的VBA高手诞生于:\'MsgBox \当前日期:\'MsgBox \当前时间:\

'MsgBox \当前时钟(秒):\

'MsgBox \星期(星期日:1,星期一:2):\

'MsgBox DateDiff(\距2010-01-10的天数 ''==================字母所表示的意义===================== '' yyyy 年 '' q 季度 '' n 月

'' y 一年的日数 '' d 日

'' w 一周

邮件合并功能

word2003邮件合并时插入的excel数据，小数位数远远的超过设定的位数，如何解决？ 推荐答案

2006-12-26 22:55 1、数据格式问题：数据源为Excl表，表中数据是一个绝对值数，例如：Excl表中明明是311.39，插入域之后查看合并数据却显示为311.38999999999999

2、日期格式问题：数据源中日期格式为中文的XX年XX月，例如“2005年2月”，插入域之后查看合并数据却显示为“10/20/2005”

1.右击域 《数值》在弹出菜单中选择\切换域代码\，将会显示{MERGEFIED 数值 } 2.在\数值\两字后面插入 \成 {MERGEFIELD 数值 \\#0.00\状 3.右击《日期》在弹出菜单中选择同第一步 出现 {MERGEFIELD 日期}

4.在\日期\两字后插入 \年mm月dd日\如{MERGEFIELD 日期 \\@ yyyy年mm月dd日}状，最后点击\更新域\

我可是自己试了一次呀,如果在Excel表格里显示的两位那合并到Word里也是一样的呀,像你这种情况就只有将Excel表格里这一列的格式改为文本格式,就不会了.

用WORD+EXCEL批量打印信封,应该用邮件

VBA代码封装过程

一、函数和子过程的封装过程 二、封装后函数和子过程的调用 三、窗体的封装和调用 四、com加载项的制作

五、利用com加载项制作功能区

如果你写VBA代码只是给自己使用或者不介意和别人共享代码，那么就用不到封装。

我们一般用VB6.0作为VBA代码的封装工具，VBA代码的封装在我理解就是将VBA代码修改成VB6.0能运行的代码，然后利用VB6.0可以制作dll文件的特点将所有代码封装在dll文件中，最后我们可以通过安装加载项或者引用的方式在工作表界面或VBA界面调用其中的函数、子过程和窗体。下面让我们具体看下VBA代码的封装过程（封装调用环境：xp系统，excel2007，VB6.0）：

一、函数和子过程的封装过程

函数和子过程也就是function过程和sub过程。封装的过程如下： 1、在vba编写代码，此次实验的代码如下,包含一个函数过程和一个子过程：

Function ceshi(a, b) ceshi = a + b End Function Sub ceshi1()

MsgBox Application.Name End Sub

2、打开VB6.0，新建工程，选择ActiveX dll，然后点打开。

3、点打开

前言

我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。

而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。

第1.1例 ASC函数

一、题目：

要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。

二、代码：

Sub 示例_1_01()

Dim myNum1%, myNum2%

myNum1 = Asc("Excel") '返回69

myNum2 = Asc("e") '返回101

[a1] = "myNum1= ": [b1] = myNum1

[a2] = "myNum2= ": [b2] = myNum2

End Sub

三、代码详解

1、Sub 示例_1_01()：宏程序的开始语句。

2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。

14

也可以写为 Dim myNum1 As Integer 。Integer 变量存储为 16位（

1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13.

删除重复行 ....................................................................................................................................................... 1 ActiveX控件的相关操作 ................................................................................................................................. 2 单元格内容匹配 ............................................................................................................................................... 2 单元格填充公式 ................

妙用Word邮件合并打印成绩通知单

笔者的学校一直使用CSC校长办公系统，其运算功能十分强大，不到一分钟就可将一千多学生的成绩汇总、排名，尤其是排名功能，可以排出每个学生的总分及各科成绩在班上和全年级的名次。不足的是，它的打印功能不太强大，学生的成绩通知单只能打印成一行，因此很长，必须用8K纸，这样就只能用针式打印机打印。打完一个学生的成绩后就要强行换纸，也就是每页纸只能打一个学生的成绩。每次要花费近2000张纸，整个打印过程要花20多个小时，中途还不能断电或死机。针对这种情况，笔者想出了个好办法。

首先将CSC校长办公系统的数据输出转为Excel文件，如“高一.xls”、“高二文科.xls”、“高二理科.xls”等，接着使用Word2000的“邮件合并”功能把数据调入到Word文档中，这样就便于排版和打印了。

第一步，在Word2000中制作成绩通知单基本式样。使用A4纸，尽量缩小页边距，先做出一个通知单表格，为使每个年级都能使用，共设置了九个学科的成绩表格。为了方便裁剪，在通知单的最后一行输入两个“+”号并设为分散对齐。调整表格大小，目的是使每页纸能排放四个学生的成绩通知单。最后将文档存为“成绩单_基本式样.doc”(图1

初识VBA

既然题目是初识VBA，那么我想先给大家一个直观的感受——什么是VBA？，往往在一些EXCEL的教材中，都会讲：VBA是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案。就我看书学习的经验来说，我感到这样的定义式的描述带有很典型的中国式教材的风格，然而却不能让人立即理解，那么这样的定义有什么用呢？我给VBA下的定义是：VBA是一些代码的组合。可能这个定义没有上面教材的定义那么严谨和准确，但我想你一看就应该能明白，原来VBA就是写代码，或者说就是写程序。（如果掌握了VBA，居然我也能写程序了~~惊喜吧？）

那么你用了这么久的EXCEL，可能从来没在EXCEL的XLS文件中看到过代码，难道就写在单元格里？那我就带你去找找，VBA的代码藏在哪里吧，这也正式我今天要谈的第二个问题。当你打开一个EXCEL文件，你只能看到由许多单元格组成的工作表，这时，你可以通过【视图】菜单的【工具栏】项目，打开一个工具栏，名字叫“控件工具箱”，从左往右属第三个按钮，名字叫“查看代码”，点一下，就可以打开VBA代码编辑窗口。更简单的方法是，通过【ALT】+【F11】的快捷键，打开VBA代码编辑窗口，看到了吧，