怎样将Excel数据批量导入到word表格中

 我来答
来自开心岛有趣的白玉棠
高粉答主

2019-10-04 · 每个回答都超有意思的
知道答主
回答量:932
采纳率:100%
帮助的人:25.4万
展开全部

1、首先打开excel文件,随意复制文件内的一块区域。

2、之后打开word文档, 选中粘贴,然后点击选择性粘贴。

3、之后会自动识别复制区域的原表格文件,选中后,点击下方的确定。

4、之后表格即可粘贴过来。

5、之后点击粘贴格式,然后选择匹配到目标区域表格样式。

6、之后即可成功将excel数据导入到word表格中。

pepe3399
推荐于2019-02-08 · 知道合伙人软件行家
pepe3399
知道合伙人软件行家
采纳数:1259 获赞数:5944
1988年毕业于苏州市职业大学计算机专业 从事软件开发5年 从事生产管理20年

向TA提问 私信TA
展开全部

举例说明。

例如有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文档如图:

本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
泡影果果616
2018-08-04 · 知道合伙人软件行家
泡影果果616
知道合伙人软件行家
采纳数:2005 获赞数:71339
软件技术从上学的时候就在研究,虽没最强大脑那般无敌,但依靠后天的勤奋学习,相信可以很专业的帮助更多人

向TA提问 私信TA
展开全部

工具:wps office 办公软件

步骤:

1、打开wps office 办公软件,先做好表格,接着找到文档中工具栏的“工具”。

2、会弹出一个命令菜单,在其中找到“邮件合并工具栏”,点击“邮件合并工具栏”以后就会出现如下图的一个工具栏了。

3、在这个工具栏中找到如下图的图标,点击打开数据源。

4、接着就会出现一个选择框,选择好需要导入的数据源excel文件,点击确定。

5、点击要导入数据文档表格中的单元格,让光标在这个单元格总闪动,然后点击第二幅图上的图标“插入合并域”。

6、选择要输入的项目,点击确定,就能看到第二幅图中单元格里出现了《姓名》,出生日期和性别也可以用同样的方法输入。

7、点击如下图”合并到新文档“,在合并到新文档设置中选择要导入的数据起始行和结束行,点击确定。excel中的数据全部导入到了文档的表格里完成。

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2016-07-29
展开全部
将excel表格中的数据批量插入到word中的操作方法:
1、单击插入----对象按钮;

2、弹出插入对话框对话框,选择由文件创建对话框,单击浏览按钮;

3、弹出浏览对话框,选择需要插入有Excel文件;

4、单击插入按钮即可。

注:
(1)若选中链接到文件,源文件修改,Word中的表格也随之改变;
(2)若选中显示为图片,则以图标的形式插入到Word,双击可以打开其源文件。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2016-07-29
展开全部
请用邮件合并功能实现 你的要求。
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式