VBA嘘嘘嘘(1)——将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 ''''*
''*************************************************************************************
VBA嘘嘘嘘(1)——将Excel数据填入到已存在的Word模板表格(实例应用)的更多相关文章
- 以黄门镇黄湾村某一扶贫文档为例——将Excel数据填入到已存在的Word模板
傻瓜可以写出机器读得懂代码,但写出让人能读懂的代码的是优秀程序员 作用:通过Excel文件中的一列数据作为文件名创建Word文档,并将Excel中的一行数据填一表,实现自动化 Excel的VBA宏代码 ...
- 将excel中的数据填入word模板中-VBA
首先将word模板中需要填写excel中数据的空白处用自己独特的字符串标记,比如 数据001 什么的.如下图: 这样,就可以用vba搜寻这些自己独特的标记来根据excel内容填充word了. 第 ...
- vba多条件查询更新EXCEL数据导access数据库
功能:根据项目号和步骤ID,更新指定步骤完成时间.这里里边要匹配两个条件一个是项目ID “”projectID“” 另一个是 “”StepID“” 步骤ID. Sub SaveFini() Dim r ...
- DataGrid表格某单元格数据填入是否正确的验证---MiniUI使用
示例: <div id="datagrid1" class="mini-datagrid" oncellvalidation="onCellVa ...
- excel数据导出新妙招
之前在做项目的时候需要将数据库中的数据导出为excel表格一遍打印查阅,在网上找了很多插件也没有找到自己理想的好用的插件(也就是说没有找到令我满意的插件),最近在学习a标签的相关知识时理解到,a标签不 ...
- jquery银行电子账单表格填入和编辑插件
jquery银行电子账单表格填入和编辑 前段时间做的一个银行表格账单的jquery插件,用于金额写入和编辑的应用,希望对大家有所帮助,发现问题欢迎回复 ;(function($){ function ...
- python 读取excel数据并将测试结果填入Excel
python 读取excel数据并将测试结果填入Excel 读取一个Excel中的一条数据用例,请求接口,然后返回结果并反填到excel中.过程中会生成请求回来的文本,当然还会生成一个xml文件.具体 ...
- 使用VBA将Excel指定单元格数据、字符串或者图表对象插入到Word模板指定书签处
准备工作: 1.首先需要提供一个word模板,并且标记好您要插入书签的位置,定义书签的命名.如图 2.模拟您要插入的Excel原始数据和图表对象 插入代码如下: Private Sub Command ...
- QC学习三：Excel数据导入导出QC操作流程
环境: QC9 WindowsXP Office2007 1. 准备 1.通过Excel导入QC,需要下载Microsoft Excel Add-in: http://update.externa ...
随机推荐
- Android 基础概念了解
Android 的前世今生Android 系统框架Android 主要组成 部分Android 常用的操作 Android 的前世今生 Android 的诞生 2003年10月,有"Andr ...
- 蚁群算法简介(part 1：蚁群算法之绪论)
群算法是Marco Dorigo在1992年提出的一种优化算法,该算法受到蚂蚁搜索食物时对路径的选择策略的启示.蚁群算法作为群体智能算法的一种利用分布式的种群搜索策略来寻找目标函数的最优解.蚁群算法与 ...
- C#解决一个奇怪的，命名空间“XXX”中不存在类型或命名空间名称“xxx”的问题
最近做项目时,引用了一个第三方的程序集,代码层面没有任何语法错误,编译提示:命名空间"System.Net"中不存在类型或命名空间名称"FtpClient".是 ...
- hihoCoder 1427 : What a Simple Research（大㵘研究）
hihoCoder #1427 : What a Simple Research(大㵘研究) 时间限制:1000ms 单点时限:1000ms 内存限制:256MB Description - 题目描述 ...
- maven多模块下使用JUnit进行单元测试
1.选中需要进行测试的service类,右键->new->other->JUnit Test Case,如下图: 2.编写测试代码如下: AppServiceTest.java im ...
- js 作用域
js 作用域 js作用域链查找,子函数能取到父函数中定义的变量. 前段时间误写成如下形式: 这只是普通的函数调用,没有父子的关系,child()函数会在全局查找pi变量,没找到所以报错. 最近发现原来 ...
- 【Java】集合_学习笔记
一.集合 1.集合类也称容器类,主要负责保存.盛装其他数据. 2.集合可以保存数量不确定的数据,保存具有映射关系的数据(也称关联数组). 3.Java5后提供一些多线程安全的集合类,放在java.ut ...
- 浅谈 原生javaScript&&react 实现全局触摸按钮（附带对addeventlistener的了解）
1.采用原生javaACript 实现全局触摸按钮 首先在控制台输出,观察事件有哪些关于触摸的字段可以使用,然后拿这些字段的数据开始来写方法. 因为要做的是全局触摸按钮,我需要拿到的是按钮时时的坐标位 ...
- OCP笔记001
2. View the Exhibit to examine the description for the SALES table. Which views can have all DML ope ...
- MAC usb启动盘制作
1.从App Store 下载OS 2.磁盘工具格式化磁盘默认即可 3. 为啥截图,因为有些是不一样的,建议使用 Tab建, 未命名则是你移动U盘命名的名称. 4.完成:所有的命令完成的话, 终 ...