如何将excel的内容导入到word文档中的制定位置

发布网友 发布时间：2022-04-20 14:14

我来回答

共5个回答

热心网友 时间：2023-06-29 02:18

复制内容，把光标定在word中的指定位置，右键----选择性粘贴 选择你需要粘贴的格式就可以了

热心网友 时间：2023-06-29 02:18

可以用下列代码批量写入：
Sub test()
Filename = Application.GetOpenFilename _
(FileFilter:="word Files (*.doc),*.doc," _
& "Word Files (*.docx),*docx", _
Title:="请选择需要填充数据的word文件")
If Filename = False Then Exit Sub
arr = Sheets(1).[a1].CurrentRegion
Set wdapp = CreateObject("word.application")
wdapp.Visible = True
With wdapp.Documents.Open(Filename)
.Tables(1).Columns(1).Select
For Each cel In .Parent.Selection.Cells
n = n + 1
If cel.Range.Text = Chr(13) & Chr(7) Then
n = n - 1
Exit For
End If
Next
If UBound(arr) = n Then GoTo over
.Tables(1).Rows(n).Select
.Parent.Selection.InsertRowsBelow UBound(arr) - n
For i = n + 1 To UBound(arr)
.Tables(1).Cell(i, 1).Range = i - 1
.Tables(1).Cell(i, 2).Range = arr(i, 1)
.Tables(1).Cell(i, 3).Range = Format$(arr(i, 6), "percent")
Next
over:
.Save
.Close wdSaveChanges
wdapp.Quit
End With
End Sub

热心网友 时间：2023-06-29 02:19

插入-对象-由文件创建，勾上链接文件，然后点浏览，找到要导入的excel文档

热心网友 时间：2023-06-29 02:20

只是内容导入的话直接复制粘贴就可以了。（当然，粘贴后由不少选项可选择）

热心网友 时间：2023-06-29 02:20

直接复制。