从Excel向word写数据

Sub Excel_to_Word()
  Set excel对象 = CreateObject("Excel.Application")   '创建Excel应用对象
  Set 表格 = excel对象.workbooks.Open("c:\信息.xlsx")   '打开Excel表格
  i = 2
  Do While 表格.Worksheets("Sheet1").Range("B" & i) <> "" 
    If 表格.Worksheets("Sheet1").Range("B" & i).Value = "男" Then
      表格.Worksheets("Sheet1").Range("B" & i).Entirerow.Copy
      Selection.Paste   '如果性别为男，就将所在行的数据复制，粘贴到word文档中
    End If
    i = i + 1
  Loop
End Sub