excel表格插入到word 如何将excel表格导入word

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