以黄门镇黄湾村某一扶贫文档为例——将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 文档一直是一个大问题. 很多项目不写文档,即使写文档,对于开发人员来说也是非常痛苦的. 不写文档的缺点自不用多少,手动写文档的缺点也显而易见: 非常浪费时间,而且会出错. ...
随机推荐
- （转）Nandflash读写
------------------------------------------------------------------------------------------文章1------- ...
- spring cloud: Hystrix（四）：feign类似于hystrix的断容器功能:fallback
spring cloud: Hystrix(四):feign使用hystrix @FeignClient支持回退的概念:fallback方法,这里有点类似于:@HystrixCommand(fallb ...
- gitignore有时候为啥过滤不了文件或目录
一.问题介绍 使用Git过程中,有时候我们想过滤项目中的部分文件,在.gitignore中加入该文件名称或该文件所在目录的名称,比如我们的项目日志文件(.log文件) 但是有时候发现不管用.不好使. ...
- salt相关
salt安装 https://docs.saltstack.com/en/latest/topics/installation/index.html#quick-install salt远程 ...
- 第一章：IPsecVPN
第一章 一.VPN(virtual private Network,虚拟专用网)的基本概念 VPN连接模式分为两种,分别是传输模式和隧道模式 传输模式:在整个VPN传输中,ip包头并没有被封装进去 隧 ...
- 廖雪峰网站：学习python基础知识—判断（三）
一.判断 1.条件判断 age = 18 if age >= 18: print('your are is', age) print('adult') age = 3 if age >= ...
- 2018 USP Try-outsF - Optimizing Transportation in Portugal
题意:给你一副无向图,求使s到t删掉一条的最短路最大的长度 题解:先预处理s,t到每个点的最短路,二分答案,对于一条边,如果选中这条边,那么对于s->u+u->v+v->t或者s-& ...
- 【转】Entity Framework教程(第二版)
源起 很多年前刚毕业那阵写过一篇关于Entity Framework的文章,没发首页却得到100+的推荐.可能是当时Entity Framework刚刚发布介绍EF的文章比较少.一晃这么多年过去了,E ...
- Oracle awr报告生成操作步骤
1.登录主机切换到oracle用户 ssh root@192.168.220.128 su - oracle 2.以sysdba身份登录数据库 sqlplus / as sysdba 3.执行@?/r ...
- VSS迁移详细教程
本文默认迁移机和目标机已是安装好VSS服务,如果没装好参见VSS+SourceAnywhere for VSS搭建版本控制系统教程 如果你只想以最快的速度迁移库而并不关心VSS的一些操作使用,那么可直 ...