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