怎样把excel弄的表移到word里啊?

插入--对象--XLS文件

用word控件，同文件夹的Excel表复制A~F列
Private Sub CommandButton1_Click()

Dim lj, a As String
Dim uswork As Excel.Workbook
lj = ActiveDocument.Path
Set uswork = GetObject(lj & "\某EXCEL表.xls")
For i = 1 To uswork.Sheets(1).[A65536].End(xlUp).Row
a = a & Chr(10) & uswork.Sheets(1).Range("A" & i) & "; --- " & uswork.Sheets(1).Range("B" & i) & "; --- " & uswork.Sheets(1).Range("C" & i) & "; --- " & uswork.Sheets(1).Range("D" & i) & "; --- " & uswork.Sheets(1).Range("E" & i) & "; --- " & uswork.Sheets(1).Range("F" & i)
Next
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=a

uswork.Close False

End Sub

直接复制即可。