如何将excel表格批量导入word表格 怎样将Excel数据批量导入到word表格中
\u600e\u4e48\u628aexcel\u4e2d\u7684\u6570\u636e\u6279\u91cf\u5bfc\u5165\u5230word\u4e2d\u7684\u8868\u683c\u4e2d\u5de5\u5177\uff1awps office \u529e\u516c\u8f6f\u4ef6
\u6b65\u9aa4\uff1a
1\u3001\u6253\u5f00wps office \u529e\u516c\u8f6f\u4ef6\uff0c\u5148\u505a\u597d\u8868\u683c\uff0c\u63a5\u7740\u627e\u5230\u6587\u6863\u4e2d\u5de5\u5177\u680f\u7684\u201c\u5de5\u5177\u201d\u3002
2\u3001\u4f1a\u5f39\u51fa\u4e00\u4e2a\u547d\u4ee4\u83dc\u5355\uff0c\u5728\u5176\u4e2d\u627e\u5230\u201c\u90ae\u4ef6\u5408\u5e76\u5de5\u5177\u680f\u201d\uff0c\u70b9\u51fb\u201c\u90ae\u4ef6\u5408\u5e76\u5de5\u5177\u680f\u201d\u4ee5\u540e\u5c31\u4f1a\u51fa\u73b0\u5982\u4e0b\u56fe\u7684\u4e00\u4e2a\u5de5\u5177\u680f\u4e86\u3002
3\u3001\u5728\u8fd9\u4e2a\u5de5\u5177\u680f\u4e2d\u627e\u5230\u5982\u4e0b\u56fe\u7684\u56fe\u6807\uff0c\u70b9\u51fb\u6253\u5f00\u6570\u636e\u6e90\u3002
4\u3001\u63a5\u7740\u5c31\u4f1a\u51fa\u73b0\u4e00\u4e2a\u9009\u62e9\u6846\uff0c\u9009\u62e9\u597d\u9700\u8981\u5bfc\u5165\u7684\u6570\u636e\u6e90excel\u6587\u4ef6\uff0c\u70b9\u51fb\u786e\u5b9a\u3002
5\u3001\u70b9\u51fb\u8981\u5bfc\u5165\u6570\u636e\u6587\u6863\u8868\u683c\u4e2d\u7684\u5355\u5143\u683c\uff0c\u8ba9\u5149\u6807\u5728\u8fd9\u4e2a\u5355\u5143\u683c\u603b\u95ea\u52a8\uff0c\u7136\u540e\u70b9\u51fb\u7b2c\u4e8c\u5e45\u56fe\u4e0a\u7684\u56fe\u6807\u201c\u63d2\u5165\u5408\u5e76\u57df\u201d\u3002
6\u3001\u9009\u62e9\u8981\u8f93\u5165\u7684\u9879\u76ee\uff0c\u70b9\u51fb\u786e\u5b9a\uff0c\u5c31\u80fd\u770b\u5230\u7b2c\u4e8c\u5e45\u56fe\u4e2d\u5355\u5143\u683c\u91cc\u51fa\u73b0\u4e86\u300a\u59d3\u540d\u300b\uff0c\u51fa\u751f\u65e5\u671f\u548c\u6027\u522b\u4e5f\u53ef\u4ee5\u7528\u540c\u6837\u7684\u65b9\u6cd5\u8f93\u5165\u3002
7\u3001\u70b9\u51fb\u5982\u4e0b\u56fe\u201d\u5408\u5e76\u5230\u65b0\u6587\u6863\u201c\uff0c\u5728\u5408\u5e76\u5230\u65b0\u6587\u6863\u8bbe\u7f6e\u4e2d\u9009\u62e9\u8981\u5bfc\u5165\u7684\u6570\u636e\u8d77\u59cb\u884c\u548c\u7ed3\u675f\u884c\uff0c\u70b9\u51fb\u786e\u5b9a\u3002excel\u4e2d\u7684\u6570\u636e\u5168\u90e8\u5bfc\u5165\u5230\u4e86\u6587\u6863\u7684\u8868\u683c\u91cc\u5b8c\u6210\u3002
1\u3001\u9996\u5148\u6253\u5f00excel\u6587\u4ef6\uff0c\u968f\u610f\u590d\u5236\u6587\u4ef6\u5185\u7684\u4e00\u5757\u533a\u57df\u3002
2\u3001\u4e4b\u540e\u6253\u5f00word\u6587\u6863\uff0c \u9009\u4e2d\u7c98\u8d34\uff0c\u7136\u540e\u70b9\u51fb\u9009\u62e9\u6027\u7c98\u8d34\u3002
3\u3001\u4e4b\u540e\u4f1a\u81ea\u52a8\u8bc6\u522b\u590d\u5236\u533a\u57df\u7684\u539f\u8868\u683c\u6587\u4ef6\uff0c\u9009\u4e2d\u540e\uff0c\u70b9\u51fb\u4e0b\u65b9\u7684\u786e\u5b9a\u3002
4\u3001\u4e4b\u540e\u8868\u683c\u5373\u53ef\u7c98\u8d34\u8fc7\u6765\u3002
5\u3001\u4e4b\u540e\u70b9\u51fb\u7c98\u8d34\u683c\u5f0f\uff0c\u7136\u540e\u9009\u62e9\u5339\u914d\u5230\u76ee\u6807\u533a\u57df\u8868\u683c\u6837\u5f0f\u3002
6\u3001\u4e4b\u540e\u5373\u53ef\u6210\u529f\u5c06excel\u6570\u636e\u5bfc\u5165\u5230word\u8868\u683c\u4e2d\u3002
用vba编制程序来实现。
第一步：创建一个对照表，将excel表格的开始行号、结束行号、开始列号、结束列号以及word文档中表格的序号、开始行号、开始列号输入到对照表。
第二步：编制vba程序，读取对照表信息，根据对照表要求读取excel表格数据，写入到word的对应表格中。
下面是我曾经做过的例子，截取部分对照表信息以及部分程序代码供参考。
1、对照表截图
2、部分程序源码
Sub 导出数据()
S_EXCEL = Cells(4, 3).Text '数据源EXCEL文件名
T_WORD = Cells(7, 3).Text '目标WORD文档名
DZB = Cells(5, 3).Text '对照表工作表名
Call exc_to_word(S_EXCEL, T_WORD, DZB)
End Sub
Sub exc_to_word(S_EXCEL, T_WORD, DZB)
Dim wdoc As New Word.Application
Dim myPath As String
Dim XLAPP, MYS
Dim toolsB '工具工作簿
Dim I, J, K, L As Integer
Dim tableName As String
Dim exc_beginLine As Integer
Dim exc_endLine As Integer
Dim exc_beginColumn As Integer
Dim exc_endColumn As Integer
Dim wod_tableNumber As Integer
Dim wod_beginLine As Integer
Dim wod_beginColumn As Integer
Dim dataArr(1 To 500, 1 To 10)
Dim myDs '需要写入数据的WORD数据表
Dim XM(1 To 100) '存放表格的项目名称
'myPath = "G:\EXCEL学习\猪八戒任务\EXCEL-TO-WORD\20151214\"
toolsB = ThisWorkbook.Name '保存当前工作簿名称
Windows(S_EXCEL).Activate
Set WB = ActiveWorkbook '数据源工作簿
Windows(toolsB).Activate
Set MYS = ActiveWorkbook.Sheets(DZB)
导出路径文件名 = ThisWorkbook.Path & "\" & T_WORD & ".docx"
Set MYDOC = wdoc.Documents.Open(导出路径文件名)
wdoc.Visible = True
I = 2
Do While MYS.Cells(I, 1) > 0
tableName = MYS.Cells(I, 2)
exc_beginLine = MYS.Cells(I, 3)
exc_endLine = MYS.Cells(I, 9)
exc_beginColumn = MYS.Cells(I, 4)
exc_endColumn = MYS.Cells(I, 5)
wod_tableNumber = MYS.Cells(I, 6)
wod_beginLine = MYS.Cells(I, 7)
wod_beginColumn = MYS.Cells(I, 8)
WOD_FILENAME = MYS.Cells(I, 10)
If WOD_FILENAME = T_WORD Then
Set mYs2 = WB.Worksheets(tableName)
For J = 1 To exc_endLine - exc_beginLine + 1
XM(J) = mYs2.Cells(J + exc_beginLine - 1, 1)
For K = 1 To exc_endColumn - exc_beginColumn + 1
dataArr(J, K) = mYs2.Cells(J + exc_beginLine - 1, K + exc_beginColumn - 1)
Next K
Next J
Set myDs = MYDOC.Tables(wod_tableNumber)
L = myDs.Rows.Count '读取WORD表格行数
' If L - wod_beginLine + 1 < exc_endLine - exc_beginLine + 1 Then
' WORD表格插入行，使其同excel表格行数相同 一次插入多行没搞明白，故用此循环
Do While L - wod_beginLine + 1 < exc_endLine - exc_beginLine + 1
'Set myTable = ActiveDocument.Tables(1)
'Set newrow = myTable.Rows.Add(BeforeRow:=myTable.Rows(1))
'Set mylastrow = myDs.Rows.Last - 1 '从倒数第二行开始插入，以保持word格式的一致 走不通！
Set mylastrow = myDs.Rows.Last
myDs.Rows.Add mylastrow
L = myDs.Rows.Count '读取WORD表格行数
Loop
' myDs.Rows.Add (exc_endLine - exc_beginLine + 1) - (L - wod_beginLine + 1)
' myDs.Cell(Row:=L - wod_beginLine + 1, Column:=wod_beginColumn).Select
' Selection.InsertRowsBelow (exc_endLine - exc_beginLine + 1) - (L - wod_beginLine + 1)
For J = 1 To exc_endLine - exc_beginLine + 1
myDs.Cell(Row:=wod_beginLine + J - 1, Column:=1).Range = XM(J)
Next J
' End If
For J = 1 To exc_endLine - exc_beginLine + 1
For K = 1 To exc_endColumn - exc_beginColumn + 1
If Not IsError(dataArr(J, K)) Then
myDs.Cell(Row:=wod_beginLine + J - 1, Column:=wod_beginColumn + K - 1).Range.Text = VBA.Format$(dataArr(J, K), "#,###.00")
End If
Next K
Next J
End If
I = I + 1
Loop
MYDOC.Save
MYDOC.Close False '关闭word文档
Set MYDOC = Nothing '清空工作簿项目
End Sub
方法/步骤
1、打开文字文档以后，先做好表格，接着找到文档中工具栏的“工具”按钮。
2、点击之后，就会弹出一个命令菜单，在其中找到“邮件合并工具栏”，点击“邮件合并工具栏”以后就会出现如下图2的一个工具栏了。
3、在这个工具栏中找到如下图的图标，点击打开数据源。
4、接着就会出现一个选择框，选择好需要导入的数据源excel文件，点击确定。
5、接着鼠标如下图点击要导入数据文档表格中的单元格，让光标在这个单元格总闪动，然后点击第二幅图上的图标“插入合并域”。
6、接着选择要输入的项目，点击确定，就能看到第二幅图中单元格里出现了《姓名》，出生日期和性别也可以用同样的方法输入。
7、然后点击如下图”合并到新文档“，在合并到新文档设置中选择要导入的数据起始行和结束行，点击确定。
8、接着你就会发现excel中的数据全部导入到了文档的表格里。
绛旓細2.鎵撳紑Word鏂囨。,鐐瑰嚮闇瑕瀵煎叆Excel琛ㄦ牸鐨勫湴鏂,鎺ョ潃鐐瑰嚮鈥滅矘璐粹,鍐嶇偣鍑烩滈夋嫨鎬х矘璐粹濄3.杩涘叆鈥滈夋嫨鎬х矘璐粹濈晫闈,閫夋嫨鈥淢icrosoft Excel宸ヤ綔琛 瀵硅薄鈥,鍐嶇偣鍑烩滅‘瀹氣濄4.姝ゆ椂琛ㄦ牸灏卞鍏ュ埌Word鏂囨。涓簡,鍙屽嚮璇ヨ〃鏍煎氨鍙互瀵硅〃鏍煎氨琛岀紪杈戙傝灏咵xcel涓殑鎴愮哗瀵煎叆鍒癢ord琛ㄦ牸涓紝鍙互鎸夌収浠ヤ笅姝ラ鎿嶄綔锛1. ...
绛旓細閭欢锛嶉夋嫨鑱旂郴浜猴紞浣跨敤鐜版湁鍒楄〃鈥濄2銆佸脊鍑虹獥鍙ｏ紝閫夋嫨瑕瀵煎叆鐨EXCEL琛ㄦ牸銆3銆佸脊鍑虹獥鍙ｏ紝鐐瑰嚮宸ヤ綔琛紝鍗曞嚮纭畾銆4銆佺Щ鍔ㄩ紶鏍囧埌WORD琛ㄦ牸閲岀浉搴斾綅缃紝鐐瑰嚮鑿滃崟鏍忎笂鈥滃悎骞跺煙鈥濓紝涓嬫媺閫夋嫨琛ㄦ牸閲岀殑鏁版嵁銆5銆佺偣鍑昏彍鍗曟爮涓娾滃畬鎴愬苟鍚堝苟鈥濄6銆佸脊鍑虹獥鍙ｏ紝鐐瑰嚮鈥滃叏閮ㄢ濄7銆丒XCEL琛ㄦ牸鍐呭鎵归噺濉厖鍒癢ORD鏂囨。閲屻
绛旓細3銆佸湪杩欎釜宸ュ叿鏍忎腑鎵惧埌濡備笅鍥剧殑鍥炬爣锛岀偣鍑绘墦寮鏁版嵁婧愩4銆佹帴鐫灏变細鍑虹幇涓涓夋嫨妗嗭紝閫夋嫨濂介渶瑕瀵煎叆鐨勬暟鎹簮excel鏂囦欢锛岀偣鍑荤‘瀹氥5銆佹帴鐫榧犳爣濡備笅鍥剧偣鍑昏瀵煎叆鏁版嵁鏂囨。琛ㄦ牸涓殑鍗曞厓鏍锛岃鍏夋爣鍦ㄨ繖涓崟鍏冩牸鎬婚棯鍔紝鐒跺悗鐐瑰嚮绗簩骞呭浘涓婄殑鍥炬爣鈥滄彃鍏ュ悎骞跺煙鈥濄6銆佹帴鐫閫夋嫨瑕佽緭鍏ョ殑椤圭洰锛岀偣鍑荤‘瀹氾紝灏辫兘...
绛旓細灏唀xcel琛ㄦ牸涓殑鏁版嵁瀵煎叆word涓殑鏂规硶鍙婃楠わ細棣栧厛鎵撳紑excel 2. 閫変腑鐩爣琛ㄦ牸 3. 鍙抽敭澶嶅埗 4. 鎵撳紑鐩爣word鏂囨。锛屽彸閿夋嫨绮樿创->淇濈暀鐩爣鏍煎紡 5. 杩欐牱灏卞皢excel琛ㄦ牸鎻掑叆鍒皐ord涓
绛旓細灏咵XCEL涓殑鏁版嵁鎵归噺濉啓鑷砏ORD鐨琛ㄦ牸涓殑鍏蜂綋鎿嶄綔姝ラ濡備笅锛1銆侀鍏堢偣鍑绘墦寮word搴旂敤绋嬪簭锛屽湪姝ゆ枃浠剁殑涓婚〉闈㈢偣鍑烩滄彃鍏モ濋夐」鍗★紝鎺ョ潃鐐瑰嚮鈥滄彃鍏モ濋夐」鍗′笅鐨勨滆〃鏍尖濄2銆佹帴鐫鍦ㄥ脊鍑虹殑閫夐」妗嗕腑鐐瑰嚮鈥滄彃鍏ヨ〃鏍尖濋夐」銆3銆佺劧鍚庣偣鍑诲幓鍒拌杩涜鎿嶄綔鐨勨淓xcel鈥濊〃鏍兼枃浠朵腑锛岀敤榧犳爣閫変腑闇瑕佽繘琛屾搷浣滅殑鏁版嵁锛...
绛旓細2銆佷細寮瑰嚭涓涓懡浠よ彍鍗曪紝鍦ㄥ叾涓壘鍒扳滈偖浠跺悎骞跺伐鍏锋爮鈥濓紝鐐瑰嚮鈥滈偖浠跺悎骞跺伐鍏锋爮鈥濅互鍚庡氨浼氬嚭鐜板涓嬪浘鐨勪竴涓伐鍏锋爮浜嗐3銆佸湪杩欎釜宸ュ叿鏍忎腑鎵惧埌濡備笅鍥剧殑鍥炬爣锛岀偣鍑绘墦寮鏁版嵁婧愩4銆佹帴鐫灏变細鍑虹幇涓涓夋嫨妗嗭紝閫夋嫨濂介渶瑕瀵煎叆鐨勬暟鎹簮excel鏂囦欢锛岀偣鍑荤‘瀹氥5銆佺偣鍑昏瀵煎叆鏁版嵁鏂囨。琛ㄦ牸涓殑鍗曞厓鏍锛岃鍏夋爣鍦ㄨ繖涓...
绛旓細2銆佷細寮瑰嚭涓涓懡浠よ彍鍗曪紝鍦ㄥ叾涓壘鍒扳滈偖浠跺悎骞跺伐鍏锋爮鈥濓紝鐐瑰嚮鈥滈偖浠跺悎骞跺伐鍏锋爮鈥濅互鍚庡氨浼氬嚭鐜板涓嬪浘鐨勪竴涓伐鍏锋爮浜嗐3銆佸湪杩欎釜宸ュ叿鏍忎腑鎵惧埌濡備笅鍥剧殑鍥炬爣锛岀偣鍑绘墦寮鏁版嵁婧愩4銆佹帴鐫灏变細鍑虹幇涓涓夋嫨妗嗭紝閫夋嫨濂介渶瑕瀵煎叆鐨勬暟鎹簮excel鏂囦欢锛岀偣鍑荤‘瀹氥5銆佺偣鍑昏瀵煎叆鏁版嵁鏂囨。琛ㄦ牸涓殑鍗曞厓鏍锛岃鍏夋爣鍦ㄨ繖涓...
绛旓細涓嬮潰浠嬬粛涓涓嬩娇鐢ㄢ滈偖浠跺悎骞舵硶鈥鎵归噺瀵煎叆excel鏁版嵁鍒皐ord琛ㄦ牸涓殑鏂规硶锛1. 鎵撳紑闇瑕佽繘琛岄偖浠跺悎骞剁殑word鏂囨。锛屾祻瑙堣鎻掑叆鐨勬暟鎹2. 鍦ㄨ彍鍗曟爮---閭欢鑿滃崟---寮濮嬮偖浠跺悎骞---閭欢鍚堝苟鍒嗘鍚戝锛屽湪鏂囨。鐨勫乏杈瑰嚭鐜扳滈偖浠跺悎骞垛濆璇濇爮銆3. 閫夋嫨鏂囨。绫诲瀷涓衡滀俊鍑解濓紙灏嗕俊鍑藉彂閫佺粰涓缁勪汉锛屽彲浠ヨ缃俊...
绛旓細濡備綍灏word鎵归噺瀵煎叆excel 1銆侀鍏堬紝鎵撳紑濯掍粙宸ュ叿鈥滆浜嬫湰鈥濓紝灏唚ord鏂囦欢閲岄渶瑕佸鍏ョ殑鏁版嵁锛屽鍒剁矘璐村埌璁颁簨鏈綋涓紝鐒跺悗淇濆瓨鎴愪负txt鏂囦欢锛屾湰渚嬩腑灏唗xt鏂囦欢鍙栧悕涓衡滅粡楠.txt鈥濄2銆佹墦寮excel琛ㄦ牸锛岀偣鍑烩滄暟鎹濋夐」鍗★紝鍦ㄢ滆幏鍙栧閮ㄦ暟鎹濆綋涓紝鎵惧埌鈥滆嚜鏂囨湰鈥濄3銆佺偣鍑烩滆嚜鏂囨湰鈥濓紝寮瑰嚭涓嬩竴绐楀彛锛岄夋嫨鍒氭墠...
绛旓細鐐瑰嚮绠ご鎵鎸囩殑鍙﹀瓨涓恒3銆佹枃浠跺悕鑷繁鍛藉悕锛屼繚瀛樼被鍨嬮夋嫨涓哄崟涓枃浠剁綉椤碉紝淇濆瓨绫诲瀷鍙互閫夋嫨涓烘暣涓猠xcel琛ㄦ垨鑰呴夋嫨宸ヤ綔琛紝鐐瑰嚮绠ご鎵鎸囩殑淇濆瓨銆4銆佹墦寮鎴戜滑瑕佷繚瀛excel琛ㄦ牸鐨剋ord鏂囨。銆5銆佸皢鍒氬垰鍙﹀瓨涓虹殑鍗曚釜鏂囦欢缃戦〉鏂囦欢鎵樻媺鍒皐ord鏂囨。涓6銆佹垜浠彲浠ョ湅鍒帮紝excel琛ㄦ牸宸茬粡瀵煎叆鍒皐ord鏂囨。涓簡銆
