Question

如何将Excel 的文字自动导入 word的表格中

Answer 1

这个可能要用到Excel vb功能， 自动复制、粘贴、

'Excel 2007 开发工具栏在“常规”栏，勾选。Excel 2010 开发工具栏在“自定义功能区”右侧栏，勾选。
'【开发工具】【VisualBasic】 或Alt+F11
'【插入】【模块】
' 在右上侧粘贴以下代码即可
' 使用注意事项：
' 1. 默认word文件存在，在d:\我的文档\提交企化部短信通报格式内容0720.docx
' 2. xls文件各sheet表名必须与代码中一致，可自行修改。如Worksheets("终端登网（前日数据）").Activate
' 3. 要复制的数据所在的位置必须与代码中一致，可自行修改。如Range("H80: M91").Copy
' 以后执行代码，Alt+F8，选“短信日报”点击右侧执行即可。执行前请关闭word文件。
' %% 替换为前日
' && 替换为昨日

Dim appWD As Word.Application, doc As Object, 昨天, 前天

昨天 = DateAdd("d", -1, Date)
前天 = DateAdd("d", -2, Date)
'打开Word文件
Set appWD = CreateObject("Word.Application")
appWD.Visible = True
Set appWD = GetObject(, "Word.Application")
Set doc = GetObject("d:\我的文档\通报格式内容0720.docx")
appWD.Visible = True
appWD.Selection.WholeStory
appWD.Selection.Delete Unit:=wdCharacter, Count:=1
'*******************************************************
'终端登网（前日数据）

appWD.Selection.Collapse Direction:=wdCollapseStart
appWD.Selection.TypeText Text:="1、%%日新增登网终端情况(排名/单位/日新增终端量/日新增智能终端量/当月累计新增终端量/当月累计新增智能终端量)"
'插入空段落
appWD.Selection.TypeParagraph
Worksheets("终端登网（前日数据）").Activate
'Range("H80: M91").Select
'Selection.Copy
Range("H80: M91").Copy
'粘贴内容到Word指定位置
appWD.Selection.PasteAndFormat wdFormatPlainText
appWD.Selection.TypeParagraph
'appWD.Selection.PasteSpecial DataType:=wdPasteText
'粘贴为excel表格
'appWD.Selection.PasteExcelTable False, False, True
'粘贴为包含制表符的文本
'查找指定文本
'With appWD.Selection.Find
'.Text = "日控完成率"
'.Wrap = wdFindContinue
'End With
'appWD.Selection.Find.Execute
'appWD.Selection.MoveRight Unit:=wdCharacter, Count:=1
'With appWD.Selection.Find
'.Text = "本地网"
'.Wrap = wdFindContinue
'End With
'appWD.Selection.Find.Execute
'appWD.Selection.MoveLeft Unit:=wdCharacter, Count:=1
'选中上期数据 (Extend:=wdExtend向下选择)并删除
'appWD.Selection.MoveDown Unit:=wdLine, Count:=12, Extend:=wdExtend
'appWD.Selection.Delete

'保存word文件
'appWD.Quit (wdSaveChanges)
End Sub