从Excel向word写数据

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