以黄门镇黄湾村某一扶贫文档为例——将Excel数据填入到已存在的Word模板

傻瓜可以写出机器读得懂代码，但写出让人能读懂的代码的是优秀程序员

作用：通过Excel文件中的一列数据作为文件名创建Word文档，并将Excel中的一行数据填一表，实现自动化

Excel的VBA宏代码

Sub 填充()

    Application.ScreenUpdating = False    'ScreenUpdating 是控制你的excel是否按步骤刷新显示宏执行过程，所有单元格同时执行

    p = ThisWorkbook.Path & "/"           ’本文件所在的目录

    F = p & "附件1贫困户信息采集表.doc"     '本文件的路径

    Dim myWS As Worksheet                 '定义一个Excel

    Set myWS = ThisWorkbook.Sheets()     '将第一个工作表赋给对象myWS

    Dim aRow As Integer                    '

    aRow = myWS.Range("A1").CurrentRegion.Cells.Rows.Count '将本Excel的A列的A1单元格算起的所有行的数量赋值给aRow变量

    For i =  To aRow   '遍历数据行

        FileCopy F, p & "生成的文件/" & i -  & myWS.Cells(i, ).Text & ".doc"     '复制空模板并以第一列单元格的字符作为新产生的文档名称

        Set wd = CreateObject("word.application")        '创建Word程序或调用Word程序

        Set d = wd.documents.Open(p & "生成的文件/" & i -  & myWS.Cells(i, ).Text & ".doc") '打开新文档

        '**************第一个表**************************

        d.tables().Cell(, ) = myWS.Cells(i, ).Text  '*        将Excel中第i行第2列的数据填充到Word中表格的第2行第2列

        d.tables().Cell(, ) = myWS.Cells(i, ).Text  '*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text  '*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text  '*

        'd.tables(1).Cell(3, 4) = myWS.Cells(i, 5).Text '*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text  '*

        'd.tables(1).Cell(4, 2) = myWS.Cells(i, 2).Text '*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text  '*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text  '*

        'd.tables(1).Cell(5, 2) = myWS.Cells(i, 2).Text '*

        'd.tables(1).Cell(5, 4) = myWS.Cells(i, 4).Text '*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text  '*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text  '*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text  '*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text  '*

        '*************************************************

        '*********************第二个表*************************

        d.tables().Cell(, ) = myWS.Cells(i, ).Text      ''''*

        'd.tables(1).Cell(8, 2) = myWS.Cells(i, 4).Text      ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text      ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text     ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text     ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text     ''''*

        'd.tables(1).Cell(13, 2) = myWS.Cells(i, ).Text      ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text      ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text      ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text      ''''*

        d.tables().Cell(, ).Range.Font.Size =            ''''*设置字号

        d.tables().Cell(, ) = myWS.Cells(i, ).Text     ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text     ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text     ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text     ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text      ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text      ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text      ''''*

        '*********************************************************

          '*********************第三个表*************************

        d.tables().Cell(, ) = myWS.Cells(i, ).Text      ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text      ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text      ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text      ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text      ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text      ''''*

        d.tables().Cell(, ).Range.Font.Size =            ''''*设置字号

        d.tables().Cell(, ) = myWS.Cells(i, ).Text      ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text      ''''*

        d.tables().Cell(, ).Range.Font.Size =            ''''*设置字号

        d.tables().Cell(, ) = myWS.Cells(i, ).Text     ''''*

        d.tables().Cell(, ) = myWS.Cells(i, ).Text     ''''*

        '*********************************************************

        d.Close

        wd.Quit

        Set wd = Nothing

    Next i

    Application.ScreenUpdating = True    '所有单元格不同时执行，在本程序中，当所有的文件没有全部生产之前，是不能打开已经生产的文件的

End Sub

将VBA代码改为Visual Basic 2013控制台程序

Imports System.IO

Imports Microsoft.Office.Interop.Excel

Imports Microsoft.Office.Interop.Word

Module Module1

    Sub Main()

        Console.WriteLine("正在执行操作，请等待操作完成…………")

        Dim excelApp As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application

        excelApp.ScreenUpdating = False      'ScreenUpdating 是控制你的excel是否按步骤刷新显示宏执行过程，所有单元格同时执行

        Dim localExcelPath, localDocPath As String

        localExcelPath = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location)           '执行程序所在的目录，也就是项目中bin\debug目录

        localDocPath = localExcelPath & "\附件1贫困户信息采集表.docx"     

        Dim objExcelApp As Microsoft.Office.Interop.Excel._Application = New Microsoft.Office.Interop.Excel.Application() '实例化Excel应用程序

        objExcelApp.Visible = False

        Dim workbook As Microsoft.Office.Interop.Excel._Workbook = objExcelApp.Workbooks.Open(localExcelPath & "\黄湾户表数据1.xlsx")

        Dim worksheet As Microsoft.Office.Interop.Excel._Worksheet = DirectCast(workbook.Sheets(), Microsoft.Office.Interop.Excel.Worksheet) 'DirectCast类似于Ctype,不过要求必须前后的类型一致

        Dim aRowCount As Integer

        Dim wordPageAllRows As Integer =  '

        aRowCount = worksheet.Range("A1").CurrentRegion.Cells.Rows.Count '将本Excel的A列的A1单元格算起的所有行的数量赋值给aRow变量

        For i =  To aRowCount    '遍历数据行

            'FileCopy(localDocPath, localExcelPath & "\生成的文件\" & i - 1 & worksheet.Cells(i, 1).Text & ".docx")

            FileCopy(localDocPath, localExcelPath & "\" & i -  & worksheet.Cells(i, ).Text & ".docx")     '复制空模板并以第一列单元格的字符作为新产生的文档名称

            Dim wordApp As Microsoft.Office.Interop.Word.Application = New Microsoft.Office.Interop.Word.Application

            Dim wordDoc As Microsoft.Office.Interop.Word.Document

            'wordDoc = wordApp.Documents.Open(localExcelPath & "\生成的文件\" & i - 1 & worksheet.Cells(i, 1).Text & ".docx")

            wordDoc = wordApp.Documents.Open(localExcelPath & "\" & i -  & worksheet.Cells(i, ).Text & ".docx")

            '**************第一个表************************************************************************************

            'wordDoc.Tables.Item(1).Cell(2 + wordPageAllRows, 2).Range.Text = worksheet.Cells(i, 2).Text        '*****

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("B" & i).Value     '*****

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("D" & i).Value     '*****

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("F" & i).Value     '*****

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("C" & i).Value     '*****

            'wordDoc(1).Cell(3, 4).Range.Text = worksheet.Cells(i, 5).Text                                      '*****

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("G" & i).Value     '*****

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("AK" & i).Value    '*****

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("E" & i).Value     '*****

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("H" & i).Value     '*****

            'wordDoc(1).Cell(5, 2).Range.Text = worksheet.Cells(i, 2).Text                                      '*****

            'wordDoc(1).Cell(5, 4).Range.Text = worksheet.Cells(i, 4).Text                                      '*****

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("I" & i).Value     '*****

            '*********************************************************************************************************

            '*********************第二个表*****************************************************************************

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("J" & i).Value      ''''*

            'wordDoc.Tables.Item(1).Cell(8, 2).Range.Text = worksheet.Cells(i, 4).Text                           ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("K" & i).Value      ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("L" & i).Value     ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("M" & i).Value     ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("N" & i).Value     ''''*

            'wordDoc.Tables.Item(1).Cell(13, 2).Range.Text = worksheet.Cells(i, ).Text                           ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("O" & i).Value      ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("P" & i).Value      ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("Q" & i).Value      ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Font.Size =                               ''''*设置字号

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("R" & i).Value     ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("U" & i).Value     ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("V" & i).Value     ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("W" & i).Value     ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("X" & i).Value      ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("Y" & i).Value      ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("Z" & i).Value      ''''*

            '*********************************************************************************************************

            '*********************第三个表*******************************************************************************

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("AA" & i).Value      ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("AB" & i).Value      ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("AC" & i).Value      ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("AD" & i).Value      ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("AE" & i).Value      ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("AF" & i).Value      ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Font.Size =                                ''''*设置字号

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("AG" & i).Value      ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Font.Size = 6.5                             ''''*设置字号

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("AH" & i).Value      ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Font.Size =                                ''''*设置字号

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("AI" & i).Value     ''''*

            wordDoc.Tables.Item().Cell( + wordPageAllRows, ).Range.Text = worksheet.Range("AJ" & i).Value     ''''*

            '***********************************************************************************************************

            wordDoc.Save()

            wordApp.Quit()

            wordDoc = Nothing

            wordApp.ScreenUpdating = True    '所有单元格不同时执行，在本程序中，当所有的文件没有全部生产之前，是不能打开已经生产的文件的

            'excelApp.ScreenUpdating = True

        Next i

        workbook.Save()

        workbook.Close()

        excelApp.Quit()

        'excelApp = Nothing

        'excelApp.ScreenUpdating = True    '所有单元格不同时执行，在本程序中，当所有的文件没有全部生产之前，是不能打开已经生产的文件的

        Console.WriteLine("数据操作已完成，共完成" & aRowCount -  & "项数据！！")

        Console.Read()

    End Sub

End Module

'*********************************************************************************************************************

'此实例的作用就是将用户的Word文档“贫困户信息采集表.docx”复制到“生成的文件”文件夹下，复制后的文件名是以Excel中

'第一列的数据作为文件名，前面再加上标号1、2、3、4……  比如说，1张三.docx,2李四.docx,3王五.docx等等。并将Excel中的

'数据填充到所复制后的Word中。

'**************************************************************** ****************************************************

旧代码片段：

            ''**************第一个表*************************************************************

            'wordDoc.Tables.Item(1).Cell(2, 2).Range.Text = worksheet.Cells(i, 2).Text     '*****

            'wordDoc.Tables.Item(1).Cell(2, 4).Range.Text = worksheet.Cells(i, 4).Text     '*****

            'wordDoc.Tables.Item(1).Cell(2, 6).Range.Text = worksheet.Cells(i, 6).Text     '*****

            'wordDoc.Tables.Item(1).Cell(3, 2).Range.Text = worksheet.Cells(i, 3).Text     '*****

            ''wordDoc(1).Cell(3, 4).Range.Text = worksheet.Cells(i, 5).Text                '*****

            'wordDoc.Tables.Item(1).Cell(3, 6).Range.Text = worksheet.Cells(i, 7).Text     '*****

            'wordDoc.Tables.Item(1).Cell(4, 2).Range.Text = worksheet.Cells(i, 37).Text    '*****

            'wordDoc.Tables.Item(1).Cell(4, 4).Range.Text = worksheet.Cells(i, 5).Text     '*****

            'wordDoc.Tables.Item(1).Cell(4, 6).Range.Text = worksheet.Cells(i, 8).Text     '*****

            ''wordDoc(1).Cell(5, 2).Range.Text = worksheet.Cells(i, 2).Text                '*****

            ''wordDoc(1).Cell(5, 4).Range.Text = worksheet.Cells(i, 4).Text                '*****

            'wordDoc.Tables.Item(1).Cell(5, 6).Range.Text = worksheet.Cells(i, 9).Text     '*****

            'wordDoc.Tables.Item(1).Cell(2, 2).Range.Text = worksheet.Cells(i, 2).Text     '*****

            'wordDoc.Tables.Item(1).Cell(2, 4).Range.Text = worksheet.Cells(i, 4).Text     '*****

            'wordDoc.Tables.Item(1).Cell(2, 6).Range.Text = worksheet.Cells(i, 6).Text     '*****

            ''***********************************************************************************

            ''*********************第二个表*******************************************************

            'wordDoc.Tables.Item(1).Cell(7, 2).Range.Text = worksheet.Cells(i, 10).Text      ''''*

            ''wordDoc.Tables.Item(1).Cell(8, 2).Range.Text = worksheet.Cells(i, 4).Text      ''''*

            'wordDoc.Tables.Item(1).Cell(9, 2).Range.Text = worksheet.Cells(i, 11).Text      ''''*

            'wordDoc.Tables.Item(1).Cell(10, 2).Range.Text = worksheet.Cells(i, 12).Text     ''''*

            'wordDoc.Tables.Item(1).Cell(11, 2).Range.Text = worksheet.Cells(i, 13).Text     ''''*

            'wordDoc.Tables.Item(1).Cell(12, 2).Range.Text = worksheet.Cells(i, 14).Text     ''''*

            ''wordDoc.Tables.Item(1).Cell(13, 2).Range.Text = worksheet.Cells(i, ).Text      ''''*

            'wordDoc.Tables.Item(1).Cell(7, 4).Range.Text = worksheet.Cells(i, 15).Text      ''''*

            'wordDoc.Tables.Item(1).Cell(8, 4).Range.Text = worksheet.Cells(i, 16).Text      ''''*

            'wordDoc.Tables.Item(1).Cell(9, 4).Range.Text = worksheet.Cells(i, 17).Text      ''''*

            'wordDoc.Tables.Item(1).Cell(9, 4).Range.Font.Size = 8                           ''''*设置字号

            'wordDoc.Tables.Item(1).Cell(10, 4).Range.Text = worksheet.Cells(i, 18).Text     ''''*

            'wordDoc.Tables.Item(1).Cell(11, 4).Range.Text = worksheet.Cells(i, 21).Text     ''''*

            'wordDoc.Tables.Item(1).Cell(12, 4).Range.Text = worksheet.Cells(i, 22).Text     ''''*

            'wordDoc.Tables.Item(1).Cell(13, 4).Range.Text = worksheet.Cells(i, 23).Text     ''''*

            'wordDoc.Tables.Item(1).Cell(7, 6).Range.Text = worksheet.Cells(i, 24).Text      ''''*

            'wordDoc.Tables.Item(1).Cell(8, 6).Range.Text = worksheet.Cells(i, 25).Text      ''''*

            'wordDoc.Tables.Item(1).Cell(9, 6).Range.Text = worksheet.Cells(i, 26).Text      ''''*

            ''************************************************************************************

            ''*********************第三个表********************************************************

            'wordDoc.Tables.Item(1).Cell(16, 2).Range.Text = worksheet.Cells(i, 27).Text      ''''*

            'wordDoc.Tables.Item(1).Cell(16, 3).Range.Text = worksheet.Cells(i, 28).Text      ''''*

            'wordDoc.Tables.Item(1).Cell(16, 4).Range.Text = worksheet.Cells(i, 29).Text      ''''*

            'wordDoc.Tables.Item(1).Cell(16, 5).Range.Text = worksheet.Cells(i, 30).Text      ''''*

            'wordDoc.Tables.Item(1).Cell(16, 6).Range.Text = worksheet.Cells(i, 31).Text      ''''*

            'wordDoc.Tables.Item(1).Cell(16, 7).Range.Text = worksheet.Cells(i, 32).Text      ''''*

            'wordDoc.Tables.Item(1).Cell(16, 7).Range.Font.Size = 7                           ''''*设置字号

            'wordDoc.Tables.Item(1).Cell(16, 8).Range.Text = worksheet.Cells(i, 33).Text      ''''*

            'wordDoc.Tables.Item(1).Cell(16, 8).Range.Font.Size = 6.5                         ''''*设置字号

            'wordDoc.Tables.Item(1).Cell(16, 9).Range.Text = worksheet.Cells(i, 34).Text      ''''*

            'wordDoc.Tables.Item(1).Cell(16, 9).Range.Font.Size = 8                            ''''*设置字号

            'wordDoc.Tables.Item(1).Cell(16, 10).Range.Text = worksheet.Cells(i, 35).Text     ''''*

            'wordDoc.Tables.Item(1).Cell(16, 11).Range.Text = worksheet.Cells(i, 36).Text     ''''*

            ''*************************************************************************************

以黄门镇黄湾村某一扶贫文档为例——将Excel数据填入到已存在的Word模板的更多相关文章

山东省滕州市木石镇化石沟村QQ群116528924
山东省滕州市木石镇化石沟村QQ群116528924
结对项目(python) 黄浩伟黄飞越
作者:黄浩伟黄飞越一 .Github项目地址: https://github.com/Flying123haha/123.git 二.psp表格: PSP2.1 Personal Softwar ...
ABP 教程文档 1-1 手把手引进门之 ASP.NET Core & Entity Framework Core（官方教程翻译版版本3.2.5）
本文是ABP官方文档翻译版,翻译基于 3.2.5 版本官方文档分四部分一. 教程文档二.ABP 框架三.zero 模块四.其他(中文翻译资源) 本篇是第一部分的第一篇. 第一部分分三篇 1- ...
ABP 教程文档 1-1 手把手引进门之 AngularJs, ASP.NET MVC, Web API 和 EntityFramework（官方教程翻译版版本3.2.5）含学习资料
本文是ABP官方文档翻译版,翻译基于 3.2.5 版本转载请注明出处:http://www.cnblogs.com/yabu007/ 谢谢官方文档分四部分一. 教程文档二.ABP 框架三. ...
黄聪：利用Aspose.Word控件实现Word文档的操作（转）
撰写人:伍华聪 http://www.iqidi.com Aspose系列的控件,功能都挺好,之前一直在我的Winform开发框架中用Aspose.Cell来做报表输出,可以实现多样化的报表设计及 ...
黄聪：利用OpenXml生成Word2007文档（转）
原文:http://blog.csdn.net/francislaw/article/details/7568317 版权声明:本文为博主原创文章,未经博主允许不得转载. 目录(?)[-] 一Op ...
zend studio 函数不提醒小黄图标小黄标
在用 Zend Studio 编写 PHP 项目时发现调用系统函数时调试正常, 但是在编写代码时却提示函数未定义"Call to undefined function ", 在左侧 ...
noip模拟26[肾炎黄·酱累黄·换莫黄]
\(noip模拟26\;solutions\) 这个题我做的确实是得心应手,为啥呢,因为前两次考试太难了 T1非常的简单,只不过我忘记了一个定理, T2就是一个小小的线段树,虽然吧我曾经说过我再也不写 ...
优于 swagger 的 java markdown 文档自动生成框架-01-入门使用
设计初衷节约时间 Java 文档一直是一个大问题. 很多项目不写文档,即使写文档,对于开发人员来说也是非常痛苦的. 不写文档的缺点自不用多少,手动写文档的缺点也显而易见: 非常浪费时间,而且会出错. ...

随机推荐

设计一个带有getmin功能的栈，保证时间复杂度在O(1)
2017-06-22 20:56:10 需要得到最小值,最简单的思路就是遍历一遍求出最小值.但是这样的时间复杂度会是O(n),不满足O(1)的要求.于是想到在建立一个栈来保存最小值. 具体操作是建立 ...
Effective java 系列之避免过度同步和不要使用原生态类型，优先考虑泛型
避免过度同步(67):在一个被同步的方法或代码块中,不要调用哪些被设计成被覆盖的方法或者是由客户端以函数对象的形式提供的方法(21). 有点拗口,书上提供的创建者与观察者模式,add方法太多,看得眼花 ...
LeetCode--374--猜数字大小
问题描述: 我们正在玩一个猜数字游戏. 游戏规则如下: 我从 1 到 n 选择一个数字. 你需要猜我选择了哪个数字. 每次你猜错了,我会告诉你这个数字是大了还是小了. 你调用一个预先定义好的接口 gu ...
javascript使用误区（switch、this）
1.switch 语句会使用恒等计算符(===)进行比较: 以下实例由于类型不一致不会执行 alert 弹窗: var x = "10"; switch(x) { case 10: ...
wordpress +window 走起~
一.安装XAMPP 1 百度搜索xampp后下载安装到D盘(安装时按默认勾选安装即可) 2 安装完后,点击Start来启动Apache和MySQL这两个服务 3 如果Apache服务不能启动,多数 ...
find xss
from :http://blog.sina.com.cn/s/blog_68d342d90100nh7b.html 什么是XSS跨站攻击: http://baike.baidu.com/view/5 ...
『MXNet』第十二弹_再谈新建计算节点
上一节我们已经谈到了计算节点,但是即使是官方文档介绍里面相关内容也过于简略,我们使用Faster-RCNN代码中的新建节点为例,重新介绍一下新建节点的调用栈. 1.调用新建节点参数分为三部分,op_ ...
win7 64安装msyql
https://www.cnblogs.com/orrz/p/5456247.html 1:下载安装包,等待等待的过程,OK,在短暂的等待后,下载完成,解压先,简单起见,解压到D盘吧,D:\mysql ...
python-day73--django课上项目01
from django.db import models # Create your models here. class Book(models.Model): name=models.CharFi ...
hdu-6406-dp+ST表
Taotao Picks Apples Time Limit: 2000/2000 MS (Java/Others) Memory Limit: 131072/131072 K (Java/Ot ...

以黄门镇黄湾村某一扶贫文档为例——将Excel数据填入到已存在的Word模板

傻瓜可以写出机器读得懂代码，但写出让人能读懂的代码的是优秀程序员

以黄门镇黄湾村某一扶贫文档为例——将Excel数据填入到已存在的Word模板的更多相关文章

随机推荐

热门专题