1.在表格页面中找到上方插入选项,点击该选项进入插入页面,如下图所示。
2..在插入页面中找到上方对象选项,点击该选项进入对象选择页面,如下图所示。
3.在对象选择页面中找到右侧从文件创建选项,点击该选项进入下一页面,如下图所示。
4.在新弹出的页面中找到自己想要插入的表格,点击该表格进入下一页面,如下图所示。
5.在新弹出的页面中核对自己的表格信息,核对无误后点击下方确定即可完成如何将excel表格导入word,如下图所示。
怎么把做好的Excel电子表格导入到Word里面去啊?建议你这样试试看:
1、在word任务栏点击“插入”,然后选择“对象”,点击“对象”;
2、点击对象之后会自动跳出插入对象的对话框,选中“由文件创建”选项,然后点击浏览;
3、然后在电脑的文件中选择你要插入的excel文件,然后点击确定;
4、点击确定之后你的Excel电子表即可插入到Word中;
5、在Excel中插入Word步骤类似,在Excel任务栏中找到“插入”,然后点击“对象”;
6、然后同样选中“由文件创建”然后点击浏览,选择要插入的Word文件;
7、然后点击确定既可将Word文件插入到Excel表格中。
如何将excel表格批量导入word表格用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
怎样把做好的表格插入到word文档里?1、选择word功能区的【插入】-【对象】功能。
2、选择【由文件中创建】并点击浏览要插入的Excel文件。
3、选择到Excel文件后勾选【链接到文件】,然后点击【确定】按钮。
4、操作完毕后,在word中就插入了excel表格,双击可进入编辑和修改。
怎样将Excel数据批量导入到word表格中
举例说明。
例如有excel表格如图:
第一步:在excel中建立一张对照表。指定excel中需要插入表格的范围,以及word中需要插入的位置。如图:
第二步:创建一个vba宏。代码如下:
Sub 插入表格()
Dim SS As String
Dim wdoc As New Word.Application
Dim 当前路径, 导出路径文件名, i, j
Dim Str1, Str2, Str3
Dim tarr(1 To 100, 1 To 3)
Dim filepathname As String
当前路径 = ThisWorkbook.Path
最后行号 = Sheets("数字表格").Range("B30").End(xlUp).Row
判断 = 0
' 导出文件名 = "报告作品.doc"
filepathname = 当前路径 & "\" & Tfile
If Dir(filepathname) = "" Then
'文件不存在
FileCopy 当前路径 & "\" & Sfile, 当前路径 & "\" & Tfile
End If
Sheets("数字表格").Select
For i = KShh To 最后行号
tarr(i - KShh + 1, 1) = Sheets("数字表格").Cells(i, 1)
tarr(i - KShh + 1, 2) = Sheets("数字表格").Cells(i, 2)
tarr(i - KShh + 1, 3) = Sheets("数字表格").Cells(i, 3)
Next i
j = i - KShh '记录需替换文本个数
导出路径文件名 = 当前路径 & "\" & Tfile
With wdoc '打开word文档
.Documents.Open 导出路径文件名
.Visible = True
End With
For i = 1 To j
Str1 = tarr(i, 1)
Str2 = tarr(i, 2)
Str3 = tarr(i, 3)
Range(Str3).Select
Application.CutCopyMode = False
Selection.Copy
With wdoc
.Selection.HomeKey Unit:=wdStory '光标置于文件首
If .Selection.Find.Execute(Str1) Then '查找到指定字符串
.Selection.Text = "" '替换字符串
.Selection.PasteExcelTable False, False, False '粘贴为表格
.Selection.WholeStory
.Selection.Font.Size = 12
With .Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth050pt
.DefaultBorderColor = wdColorAutomatic
End With
.Selection.Tables(1).PreferredWidthType = 3
.Selection.Tables(1).PreferredWidth = .CentimetersToPoints(15)
End If
' wdoc.Documents.Save
' wdoc.Quit
' Set wdoc = Nothing
End With
Next i
With wdoc '存盘后关闭WORD文档
wdoc.Documents.Save
wdoc.Quit
Set wdoc = Nothing
End With
Sheets("首页").Select
End Sub
第三步:创建一个测试的word文档。如图:
第四步:运行宏。得到的word文档如图:
如何把EXCEL中的数导入到WORD的表格中?word里的邮件合并功能:
以“某某.xls“和“某某某.doc“为例:
一、建立“某某某.doc“模板
首先利用Word制作一个模板并保存为““某某某.doc“”,将其中要插入数据(例如:数据1、数据2……)的不同位置先空出;
二、用Excel建立相应数据库
在Excel表格中设置要插入word文档的数据(数据1、数据2)等相关信息并保存为“某某.xls”;
三、关联数据库与奖状
打开“某某某.doc”,选择邮件—>开始邮件合并-->电子邮件—>使用现有列表—>选中你需要向word导入数据的电子表格并选好工作表—>确定;
然后点击插入合并区域—>选中表格中数据列,点击合并即可;
利用邮件合并功能可以非常方便地将Excel数据与Word文档关联起来,如果数据有变动,只要在Excel表格中修改就可以了。利用该功能,还可以非常方便地制作和打印成绩单、工资条、奖状等。
怎样在word中插入完整的excel表格word插入Excel做好的表格有3种方式:
1、在Excel中复制已做好的表格,然后直接粘贴在Word中,然后可以对表格进行适当调整;
2、在Excel中复制已做好的表格,然后点击“编辑”(word2003)执行选择性粘贴,2007及以上版本就在开始下面有粘贴选项,下拉箭头可执行选择性粘贴,选中第一项“excel工作表对象”后确定;
3、直接从word中点击插入对象,选择由文件创建,浏览找到已做好的表格文件,点确定。
建议使用第二种方式,这种方式相对来说方便,可双击后进入Excel中编辑,如果有简单的计算函数,可以自动计算,比较方便。第3种方式其实和第2中类似,但可能会出现多余的单元格,只是在插入时更方便,不需要复制粘贴,不建议使用第3种。
第1种方式的方便之处在于,拷贝进来的表格如果有需要格式的调整时比较方便,比如单元格的大小,行高,合并、表格线的粗细等。
已经导入到WORD中的Excel表格 如何编辑?如何导出?这样弄表格是不会散的,在word中选择“插入”菜单——“对象...”在“对象”对话框中选择“由文件创建”——"浏览"选择你要插入的excel文件,确定后就进来了。双击可以进行编辑,编辑好后“”文件——“另存为”就可以保存下来
转载请注明出处51数据库 » excel表格插入到word 如何将excel表格导入word
- 0
- 0
- 0
- 0
- 0
更多推荐
excel表格插入到word 如何将excel表格导入word
发布评论