word 代码_Excel表中的数据一键写入Word表中，这组代码太方便

来自Excel之家ExcelHome，侵联系删

又问如何将excel中的数据写入word……

此时此刻，我清醒的意识到，这世界上像我这样好的人已经不多了。勉强害羞脸……

举个例子：

下图是一张excel表。

再下图是word中的一张excel表

两张表一个处于excel，一个处于word，但求同存异有一个非常重要的共同点：

表的布局是一致的，标题的内容和位置一模一样，比如标题都处在第一行等。

示例动画如下：

在excel中使用以下小代码可以将excel中的数据写入word：

Sub ExcelTableToWord()

Dim WdApp As Object

Dim objTable As Object

Dim objDoc As Object

Dim strPath As String

Dim arr As Variant, brr As Variant

Dim k As Long, x As Long, y As Long

Dim i As Long, j As Long, Clny As Long

On Error Resume Next

Set WdApp = CreateObject("Word.Application")

With Application.FileDialog(msoFileDialogFilePicker)

.Filters.Add "Word文件