1、利用EXCEL文本和数据功能快速输入身份证号码和学籍编号等在电子表格中要输入学生学籍号、身份证号等长数据不是件容易的事，对于数据量大时输入更是费时费力，且容易出错。在EXCEL中有一个文本和数据合并功能，它可以将几个单元格中的文本和数据全新到一个单元格中。利用EXCEL文本和数据功能可以将学生学籍号、身份证号等这样的数据快速输入，下面以“学生基本信息表”的填报来说说这两种数据的输入方法。一、学籍号输入首先分析学生学籍号的组成。学籍号由18位数字组成，其中16位是行政区划代码，同一地区学生学籍号的这六位数是一样的，710位是年份，1113位是学校编码，14位是学生性别代码，1518位是学生流水
2、号。在这18位数字中，前13位对于同一个年级的每一个学生都是一样的，第14位学生性别代码前面已经输入。因此，学籍号的输入就可以有捷径可走。1、如图一，在学籍号的前面插入两列，在G3单元格中输入学籍号的前13位，然后利用填充柄填充，在H3和H4单元格中输入前两个学生的流水号，然后填充。2、如图二，在学籍列（这一列先不要设置成文本格式，设置成常规或数据格式。）I3单元格中输入“=G3&D3&H3”，注意中文双引号不要输入，是在英文状态下输入双引号中间的内容，两个“&”字符之间是在英文下输入两个双引号。输入完后回车或鼠标点编辑栏上的输入按钮（即那个“”）完成公式的输入，就会将G3、D3、H3这三个
3、单元格的文本或数据按指定的顺序合并到I3单元格中，然后向下填充，即完成了所有学生学籍号的输入。处理完后即可将刚才插入的两列删除。在合并的时候一定要注意合并的顺序，在输入公式时一定要按合并的顺序依次输入。二、身份证输入身份证也是由18位数组成，它的输入大致与学籍号相同，这里要特别说说出生年月的输入。在填身份证号前先完成学生的出生年月填写，学生出生年月这列要求设置成文本格式。这里先不要把它设置成文本格式，要不然下面不好处理。第一步，将格式设成数字自定义，在类型框中输入“yyyy-mm-dd”（引号不要输入），即将出生年月设置成八位（如：2008-02-05），然后将学生的出生年月输入；第二步，将学
4、生出生年月这一列中所有数据格式设成“yyyymmdd”格式（如：20080205），将所有数据复制到记事本或WORD中。如果复制到WORD中一定不要直接粘贴，要用选择性粘贴，选无格式文本。此举的目的是去除这些数据的格式。第三步，将去除格式的数据又复制回EXCEL中来，注意不要覆盖学生出生年月这一列，可复制到后面不用的列中，数据格式设置成常规、数值（小数位数0）或文本都可以。这样，身份证的输入就只需输入最后四位，然后用EXCEL文本和数据功能就可以将几列数据合并到一列中了。下面再说说如何将刚才的学生出生年月这一列设置成文本格式，如果在EXCEL中设置是无论如何不行的，不信你试试。我的做法是又将格
5、式设置成“yyyy-mm-dd”，然后复制到记事本中，再复制回来。在填充柄的右下方有一个粘贴选项图标，点图标上的三角形会出现两个选项，点选“使用文本导入向导”，一共有三个步骤，步骤三的时候在“列数据格式”下点文本，然后点击完成就将学生出生年月设置成文本格式了。Excel中快速输入有相同特征的数据我们经常会输入一些相同特征数据比如学生的学籍号、准考证号、单位的职称证书号等都前面几位相同只后面的数字不一样。有简单的方法只输后面几位前面相同的几位让计算机自动填充呢？下面笔者以10位数的的学籍号（前面都252303）为例给大家讲讲。方法一假如要输入的数据放在A列从A2单元格开始在下面的单元格输入学籍号
6、后面几位数字所有的数据输入完毕后在B2单元格中输入公式“=252303&&A2”然后回车这样B2单元格的数据在A2的基础上就自动加上了252303。鼠标放到B2位置双击单元格的填充柄（或者向下拉填充柄）瞬间B列全部加上了252303至此所有的数据都改好了。方法二1.选定要输入共同特征数据的单元格区域单击鼠标右键在弹出的快捷菜单中选择“设置单元格格式”命令打开“单元格格式”对话框（也可依次选择“格式单元格”菜单命令打开）。图1图22.选择“数字”选项卡选中“分类”下面的“自定义”选项然后在“类型”下面的文本框中输入2523030000（注意：后面有几位不同的数据就补几个0）单击确
7、定按钮即可。3.在单元格中只需输入后几位数字如“2523034589”只要输入“4589”系统就会自动在数据前面添加“252303”。也可以先输入数字再选中单元格区域设定数据格式可以得到相同的效果。1.条件格式设置的妙用手工填写的成绩册上，教师通常将不及格的成绩用红色笔填写。如何在Excel的成绩表中实现这一功能呢？我们可以借助Excel中的“条件格式”功能实现。具体步骤为：全选成绩表，单击“格式”菜单中的“条件格式”命令，打开如图1所示的对话框。设置条件为“单元格数值小于60”，单击格式按钮，从弹出的“单元格格式”对话框中将颜色设为“红色”，确定即可。我们会发现分值小于60的单元格的数值
8、自动变成了红色。而且这样设置的好处是：如果有学生的分数统计有错误，更改分数后，及格了的成绩将会自动取消红色的标记，不及格的成绩会自动加上红色的标记。2.对多张工作表设置页面打印Excel工作表时，需要对打印工作表分别进行页面设置。其实，在实际操作过程中，若页面设置的参数相同，可以一次选中多张工作表，同时对它们进行页面设置操作。具体步骤为：按住“Ctrl”键不放，分别单击要打印的工作表标签名称，使打印的工作表同时处于被选中状态，单击“文件”菜单中的“页面设置”命令，设置参数，确定后就可以直接进行打印操作了。3.快速输入无序数据在Excel数据表中，我们经常要输入大批量的数据，如学生的学籍号、身
9、份证号等。这些数值一般都无规则，不能用“填充序列”的方法来完成。通过观察后我们发现，这些数据至少前几位是相同的，只有后面的几位数值不同。通过下面的设置，我们只要输入后面几位不同的数据，前面相同的部分由系统自动添加，这样就大大减少了输入量。例如以学籍号为例，假设由8位数值组成，前4位相同，均为0301，后4位为不规则数字，如学籍号为03010056、03011369等。操作步骤如下：选中学籍号字段所在的列，单击“格式”菜单中的“单元格”命令，在“分类”中选择“自定义”，在“类型”文本框中输入“03010000”(如图2)。不同的4位数字全部用“0”来表示，有几位不同就加入几个“0”，确定退出
10、后，输入“56”按回车键，便得到了“03010056”，输入“1369”按回车便得到了“03011369”。身份证号的输入与此类似。4.设置顶端标题行和打印选定区域用Excel分析处理成绩是每一次考试后教师们要完成的工作，最后要打印出各班的成绩册，要求每页都有表头和顶端标题行，各班的成绩册要打印在单独的纸张上。事实上，纸张大小设置好后，在预览时会发现：各班学生的名册有的刚好在一张纸上，有的则不在一张纸上，很多教师通过插入空行和复制顶端标题行的方法来进行打印操作，但如果添加或删除几行记录，整个版面就乱了。下面的操作步骤也许会给您带来惊喜：(1)设置顶端标题行：打开“页面设置”对话框中的“工作
12、结束文字的输入。当前行自动改变尺寸以容纳两行文本。将此单元格文本左对齐，然后在第一行文字中加适当空格使其右对齐。在此单元格上单击鼠标右键，选择“设置单元格格式”命令。在“单元格格式”对话框中，单击“边框”选项卡，选取所需要的斜线方式，如下图所示，单击“确定”按钮，完成表头斜线的添加。7.如何将姓与名分开？有这样一个问题，一个数据表中，A列是由姓和名组成了，如何将姓和名分开呢？一个简单的方法是应用Left函数，此函数可以返回文本串中的第一个或前几个字符。Left函数的语法形式为：LEFT(text,num_chars)其中：Text：是包含要提取字符的文本串。Num_chars：要提取的字符
13、数量，这个值必须大于或等于0；如果num_chars大于文本长度，则返回所有文本；如果忽略num_chars，则假定其值为1。下面我们看一下这个例子，要将姓分开，且例子中都是单姓的，所以我们可以在B1中添入“=left(A1)”，然后利用自动填充功能，完成下面单元格公式的复制。我们再看一个例子，某些会计程序在显示负数时会在数值的右边添加负号()。如果导入的文件是在按此方法保存负数的程序中创建的，则MicrosoftExcel会将这些数值作为文本导入。要将此文本串转换为数值，必须返回除最右边字符（即负号）以外的所有文本串字符，然后乘以1。对于num_chars参数，可使用LEN函数计算文本串
14、中字符的个数，然后减去1。例如，如果单元格A1中的值为“234”，我们可以在B1中输入“LEFT(A1,LEN(A1)1)*1”。按回车后B1中就显示为“234”。同样，我们可以利用自动填充的功能完成其余数据的转换。好，Left函数的功能就讲这些，与之相对的还有个“right”函数，可以返回文本串中后一个或几个字符，你可以放手一用了！8.分列功能的妙用上一个例子中，我们用left函数将姓名中的姓和名分开了，说实话，这个方法比较笨，因为EXCEL中提供了分列功能。我们可以看下面这个例子，原始数据中含有编号，而且随着行数的增加，编号位数也在增加，这时就不能用Left函数来解决问题了。我们可
15、以分列功能将编号和文本分开。选中此列，单击“数据”菜单中的“分列”命令，弹出“文本分列向导”对话框。在对话框中提供了两类数据分割方法，一是按固定宽度，一是按分隔符号。将姓与名分开的问题就可以通过选择“固定宽度”项来解决，当前这个例子可以选择“分隔符号”项，单击“下一步”。这里要选择分隔符号，因为例子中的编号和文本中间都有“.”，所以我们可以选择“其他”复选框，并在后面的文本框中输入“.”，再单击“下一步”。单击“完成”按钮，编号和文本就被分开了。9.巧用转置功能粘贴数据我们手头有这样一个数据表，行表示学生姓名，列表示学生的各科成绩。如果我们想得到一个以行表示各科成绩，以列表示学生姓名的数
16、据表，应该怎样做呢？其实很简单，EXCEL为我们提供了转置功能。先选中要进行转换的数据区A1：D10，按下Ctrl+C将其复制，再将光标定位在另一个工作表的A1单元格中，然后选择“编辑”菜单中的“选择性粘贴”命令。在“选择性粘贴”对话框中，选中“转置”复选框，单击“确定”。看，数据已经符合我们的要求了。10.快速输入技巧在Excel2000的工作表中，如果在多个单元个中输入同一个公式，多次填写某一个字符或某一个有规律数字，一个一个输入是很麻烦的，掌握一些技巧是可以快速输入的。用组合键Ctrl+Enter在多个单元格中输入同一个公式选定要在多个单元格中输入同一个公式的这一区域，在某一单元
17、格中输入公式后安组合键Ctrl+Enter，那么所选区域那的所有单元格中就都输入了同一公式。用REPT工作表函数在某一单元格中多次填写某一字符REPT工作表函数的语法为：REPT(text,number_timers)。其中，text为需要重复显示的字符串，不能多能多于255个字符；number_timers为指定文本进行重复的次数，为正数，否则将截尾取整数。例如，要在某一单元格中重复显示“”30次，则输入REPT(,10)，回车即可。另外，用REPT工作表函数还可以清楚的告诉您在此单元格中次字符的总数。如图一。图一用填充柄自动填充工作表在Excel2000工作表中，如果需要在一行或一列
18、单元格中填入安顺序排列的项目序号，用Excel2000的自动填充功能可以帮助您快速输入这些数据序列，而且还不容易出错。你不会不知道什么是控制柄吧？选中一个表格，其右下角有一个实心的小方块，它就是控制柄，当鼠标放上去的时候便会变成实心的“”。其方法：在第一单元格那输入其实数据，在下一个单元格那输入第二个数据，选定这两个单元格，将光标指向单元格右下方的填充柄，沿着要填充的方向拖动填充柄，托过的单元格中会自动的按Excel2000内部规定的序列进行填充。如（下图二），在B3中输入“第1名”，然后拖动控制柄往下拉，松开鼠标时所拉过的区域就自动填充了“第2名、第3名”。在拖动控制柄的过程中我们也可以在
19、鼠标的右边小说明中看到所填充的内容。图二如果使用鼠标右键拖动单元格填充柄，也可以实现自动填充。其方法是：在某单元格内输入数据，按住鼠标右键，沿着要填充的方向拖动填充柄，此时就会弹出包含下列各项的快捷菜单(如图三)：复制单元格、以序列方式填充、以格式填充、以值填充、以天数填充、以工作日填充、以年填充、等差序列、等比序列。此时，您可以根据需要进行选择填充方式。显然，这种方法更有灵活性。图三另外，双击填充柄自动填充工作表也是一个不错的方法自动填充数字序列和文本序列也可以不拖动填充柄通过单元格区域，而采用双击填充柄的方法实现：对于数字序列的填充，要选定包含初始值单元格在内的两个单元格，然后双击填充
20、柄。而对于文本序列的填充，只需选定初始值单元格，仍然后双击填充柄。例如：要想在B2:B11中输入数字序列“1、2、3.10”，只须在B2中输入“1”，选定B2:B11，双击填充柄即可。如果需要在“C2:C7”中输入文本序列“第1名、第2名、.第6名”，只需要在C2中输入“第1名”，选定C2单元格，双击填充柄即可。双击填充柄自动填充是一种更为快速的方法，要填充的序列的单元格区域越大，如超过一屏的大区域，越能体现他的优越性。要注意的是，自动产生的序列数由A2向下直到遇到空白单元格为止的单元格个数决定。例如,A9为空白单元格，那么此法仅在B2:B8中产生序列“1、2、3、.7”。同样，若B5为空白
21、单元格，那么仅在C2:C4中产生序列“第1名、第2名、第3名”。快速输入学籍号(excel)在excel中如何快速输入学籍号？方法很多，现只介绍一种：如：县三中09级，第1个学生号是：091301030001第一步：第二步：将鼠标移到A2单元格右下角显示黑色十字时，按左键不放往下拉。如下图：第三步：最终结果如下图：在Excel中采用数据合并生成学生学籍号放暑假这几天天气不仅炎热还有点发闷，更郁闷的是上级安排给我们一个艰巨的任务，对全校学生进行学籍信息采集。如果正在做这项工作的教师们肯定一定吃苦不少。学生的学籍号太长了吧，连电子表格都装不下了，只能用科学计数法了，把表格设成“文本”格式倒可以显示
23、，我这里是用一个条件函数，从H列的性别中自动判断。如图所示：内容为：“=IF(H2=”1男”,1,2)”，意思是说：如果H2单元格=”1男”，输出结果为“1”，反之输出结果为“2”。E2输入班代码按年级分班两位数，要用文本格式才能输入，也可以在数字前加一个“”号强制为文本方式。F2输入顺序号可以用鼠标拖动填充柄实现自动序列数，同样要求用文本格式。在G2列中输入公式：“CONCATENATE(A2,B2,C2,D2,E2,F2)”，这段函数的意思是：把22单元格的数据合并，这样就生成了我们要的学籍号。如图：进行完上面的工作后，下面就是进行复制公式了。特别提示：进行公式复制时用鼠标拖动填充柄
25、如n60001，然后拖动排序到n60378，排好序后，用查找替换法，将所有的n替换成32048341009200”这个办法我早就试过了，还是不行。呵呵！告诉你一个方法！60001前边的数字用个字母来代替！比如n60001，然后拖动排序到n60378，将其粘到word中，然后，用查找替换法，将所有的n替换成32048341009200320483410092006000132048341009200600023204834100920060003320483410092006000432048341009200600053204834100920060006320483410092006000
26、73204834100920060008320483410092006000932048341009200600103204834100920060011320483410092006001232048341009200600133204834100920060014不是太明白等高手来吧回答者：yaji_ya|二级|2006-9-1107:24同意，直接在EXCEL里用替换法回答者：肖本武是爱猪|二级|2006-9-1108:091、先将A列设为文本格式，在A1单元格输入001，用填充柄向下复制到378。2、在B1单元格输入公式：=CONCATENATE(32
27、04834100920060,A1)将公式用填充柄向下复制到A列相应的行。3、选定B列，点“复制”，在A1单元格点鼠标右键，点“选择性粘/数值”，点“确定”。4、删除B列。回答者：qinqh_yl|八级|2006-9-1108:09这个既然前面若干长都是一致的为什么不分段处理？末尾变量单独处理，分置两个列，需要时用&就可以了回答者：bondhit|二级|2006-9-1108:471，在输入的数字3204834100920060001前面加上上单引号（半角）-即在单元格如A1中输入3204834100920060001回车2，把其中的320
28、48341009200变成n3，向下拖动填充4，用Excel的替换功能，把所有的n替换成32048341009200补充说明加上单引号是把数值型字符变为字符型，如果是数值型字符，就无法实现。回答者：minami_1977|四级|2006-9-1109:19燕归巢-高级魔法师七级的方法是可行的,只是n替换成32048341009200时在32048341009200前要加一个单引号回答者：翠玉仙姑|四级|2006-9-1110:451、在A1单元格输入3204834100920060(前面有一英文单引号）2、在B1单元格输入001（前面有一
29、个英文单引号），然后鼠标指向B1单元格右下角，向下拖动鼠标进行复制，即得001、002、003378序列号3、在C1单元格输入=$A$1&B1,然后鼠标指向C1单元格右下角，向下拖动鼠标进行复制，即得你所需要的序列号4、选中C列，复制选择性粘贴，“数值”5、删除A、B列Excel和Access实现学生学籍、成绩的信息化管理2008-05-2415:17一、用Excel建立学生、学籍成绩数据清单要对学生的学籍、成绩实现计算机管理，首先要将学生的基本信息录入计算机，建立相应的数据清单。学年初将全校学生的花名册录入Excel中建立一个工作薄（取名为学生花名册），在这个工作薄中以每一个班为单位分
31、借读等），新来的学生则直接加在学生花名册的后面，并注明原因（转入、复学、外来借读等）。当花名册返回教务处后，全校学生的异动生花名册自然就很容易清理出来了。（2）、用Excel中的函数Countif及Counta分别实现男女及总人数的统计。函数Countif是计算某个区域中满足给定条件的单元格的个数，所以用它来统计男、女的人数是非常适合的，具体形式如下：Countif（c2:c49,”男”）。函数Counta是计算参数表中非空单元格的个数（不用Count是它计算出来的单元格个数包括空白单元格），具体形式如下：Counta（c2:c49）。（3）、报表输出-学籍卡打印：在Access中新建一
32、个数据库，取名为“学籍”，然后在“文件”菜单中“获取外部数据”，选“导入”或“链接”，在此对话框中的类型中选“MicrofficeExcel”中相应目录中的“学生花名册”文件，然后用鼠标依次点击“下一步”，完成导入表（导入的应该是“一年级工作表”，学籍卡的建立都是新生入学时进行）的工作。再建立窗体，选“新建”后用鼠标依次点击“下一步”（在表格类型中选纵栏，这样才可能有比较多的学籍信息），然后在进行“设计”，在此“视图”中将采集到的学生信息，设计成你所需要的学籍卡样式（调整各种信息栏的大小和位置）。还可以使用数码相机将学生的相片录入学籍档案中。2、学期末的成绩管理期末考试后，将学生的成绩录
33、入在相应班级相应学生的学科栏内（整个工作薄都按相同的学科顺序）。（1）、成绩分析：用Excel函数实现成绩统计及分析计算学生的总分及对学生的总分及某个学科进行排序。在学科最后增加一个合计栏，先选中某生这次考试所有学科的成绩，然后使用Excel中的“”函数，在该生后面的合计栏内鼠标点击即可。要在全班或全年级进行排序，等全部学生成绩计算好后，选中合计栏或某个学科栏，鼠标点击Excel中的A-Z或A-Z函数即可。计算各学科的平均分，及格率，优生率等。平均分的计算：Average（h2:h49）或者用/Counta(h2:h49)；及格率的计算：Countif(h2:h49,”=60”)/Coun
34、ta(h2:h49)；优生率的计算：Countif(h2:h49,”=80”)/Counta(h2:h49)；利用Excel函数还可实现其他人们所要求的分析计算。（2）、报表输出-成绩通知单：利用建立学籍卡的方法，可以实现学生成绩通知单的报表输出，只是学籍卡是建立窗体，而通知单是建立报表，在设计视图中各字段大小调整后，将页眉中标题字段剪下粘贴到主体中，这样每个学生成绩单上都有标题。注意列宽应比页面宽度小，否则有空页。用同样的方法可以将“普九”档案中的户口花名册录入Excel中建立另一个工作薄，分13岁、14岁、15岁和17岁建立工作表（普九档案既要打印户口花名册又要打印分年龄分班级的花名册
35、）。然后打印各年龄段的户口花名册，并实现计算机计数，避免人工出错。在Excel中确定少年户口花名册的学校班级（打开户口花名册，选中某人，再打开在校生花名册，使用“编辑”中的“查找”或“数据”中的“记录单”功能，将户口花名册中的少年落实到班级），并按学校班级排序，实现打印在校生分年龄段花名册，计数男女及总人数。当然，Excel和Access具有非常强大的功能，我们可以在工作中不断实践，使它能更好地为人类服务，大大地提高我们的工作质量和效率。Excel、Access、VB的结合应用2010年11月22日下午10:54江苏省南通市学田新村杨伟民-微软公司的Office系列办公软件相信已是众所周
36、知，其中Excel强大的统计制表功能、Access功能完备的数据处理能力深受众多用户所喜爱。VisualBsaic更是微软公司又一有力的产品，它简单易学，在Windows编程中的应用十分广泛。本文通过介绍数据处理及复杂表格的打印，来讨论VB与Excel及Access的结合运用。-由于笔者所在的公司员工众多，在进行职工养老保险缴费的计算工作时，若使用劳动局编制的软件（用Foxbase编写），无论是在管理或维护方面均显得力不从心。于是在公司领导的强烈要求下，决定由笔者构思重新编制。基本思路是：1.将所有员工资料输入Access进行处理，以便于维护。2.在Excel中预先制成有表头的空表（A
37、ccess相对欠缺处理复杂表格的能力），对需要进行金额汇总或其他运算的单元格可直接输入公式。3.在VB中编写程序代码，从Access中提取数据填入Excel对应表格相应的单元格，并输出至打印机。-部分窗体及源程序代码如下：-1程序主模块-定义Excel、Access对象变量，显示系统启动画面，进入系统主程序界面。强调一下，在编写程序之前须加入对Excel及Access库函数的引用，具体操作是：选择菜单栏工程引用，将可使用的引用列表框内MicrosoftAccess8.0ObjectLibrary和MicrosoftExcel8.0ObjectLibrary两项前的复
38、选框标为选中，按确定返回。mdsMain.bas定义数据库记录集及Excel对象变量PublicexAsNewExcel.ApplicationPublicexwbookAsExcel.WorkbookPublicexsheetAsExcel.WorksheetPublicmydatabaseAsDatabasePublicmyrecordset1AsRecordset定义记录集PublicOptAsInteger报表选项Opt为frmSelreport.frm返回值PublicisYNAsBooleanSubMain()LoadfrmSpla
39、shfrmSplash.ShowfrmSplash.Label2.Caption=系统正在加载Access数据库.Setmydatabase=OpenDatabase(c:sbdasbda.mdb)Setmyrecordset1=mydatabase.OpenRecordset(报表打印(一)此处对记录集赋值frmSplash.Label2.Caption=系统正在加载Excel电子表格.Setex=CreateObject(excel.application)Setexwbook=ex.Workbooks.Open(c:sbdasbda.xls)Load
40、FrmInput将数据输入窗体加载到内存中UnloadfrmSplashLoadFrmMain将主程序界面加载到内存中EndSub-2报表打印模块-其中ExcelDoForVB1()是一子程序，由prnProess()调用，作用是从Access中提取所需数据资料，填入Excel对应工作表（Worksheet）的相应单元格（Cells）中，然后打印已填入数据的表格；prnProess()则负责实现对VB通用对话框（CommomDialog）中打印功能的控制。mdlPrint.basOptionExplicit定义循环计数变量PublicnRowAsInteger,nC
41、olAsInteger,nBtoEAsInteger定义变量接收打印对话框返回值PublicBeginPage,EndPage,NumCopies程序运行时需进行判断的各种标志Publicnflag,Flag,ifNum数据记录集中指针移动数PublicPageNAsInteger,nAsIntegerbar1为进度条Publicbar1AsObjectSubprnProess()控制通用对话框打印功能Setbar1=FrmPrint.PgsBar1进度条OnErrorGoToerrhandle:IfFlag=0Then
42、当打印对话框中选全部时SelectCaseOpt选择需要打印的表格Case1nflag=1myrecordset1.MoveFirstmyrecordset1.MovePreviousPageN=1DoWhilenflag=1CallExcelDoForVB1数据填入Excel单元格打印PageN=PageN+1LoopCase2EndSelectElseIfFlag=2Then当打印对话框中选页时IfEndPage-BeginPage=0ThenifNum=0ElseIfEndPage-BeginPage0ThenifNum=1ElseifNum=2EndIfEndIfSelectCaseifNumCase2ExitSubCase0SelectCaseOpt选择需要打印的表格Case1myrecordset1.MoveFirstn