自己来答吧,感谢ah_2056的提示! Dim xlapp1 As Excel.Application 'Excel对象 Dim xlapp2 As Excel.Application Dim xlbook1 As Excel.Workbook '工作簿 Dim xlbook2 As Excel.Workbook Dim xlsheet1 As Excel.Worksheet '工作表 Dim xlsheet2 As Excel.Worksheet Dim D As Excel.Range Dim i, j As Integer j = 1 xlapp1 = CreateObject("Excel.Application") '创建EXCEL对象 xlapp2 = CreateObject("Excel.Application") xlbook1 = xlapp1.Workbooks.Open("D:\test1.xlsx") '打开已经存在的D:\test.xlsx工件簿文件 xlbook2 = xlapp2.Workbooks.Open("D:\test2.xlsx") xlapp1.Visible = False '设置EXCEL对象可见(或不可见) xlapp2.Visible = False xlsheet1 = xlbook1.Worksheets("sheet1") xlsheet2 = xlbook2.Worksheets("sheet1") For i = 1 To 10 D = xlsheet1.Cells(i, 1) If D.Text = "2013-1-1" Then xlsheet2.Cells(j, 1) = xlsheet1.Cells(i, 1) xlsheet2.Cells(j, 2) = xlsheet1.Cells(i, 2) j = j + 1 End If Next xlsheet1.SaveAs("C:\test1.xlsx") xlsheet2.SaveAs("C:\test2.xlsx") xlapp1.Quit() xlapp2.Quit() xlapp1 = Nothing xlapp2 = Nothing MsgBox("完成")
Dim xlapp2 As Excel.Application
Dim xlbook1 As Excel.Workbook '工作簿
Dim xlbook2 As Excel.Workbook
Dim xlsheet1 As Excel.Worksheet '工作表
Dim xlsheet2 As Excel.Worksheet
Dim D As Excel.Range
Dim i, j As Integer
j = 1
xlapp1 = CreateObject("Excel.Application") '创建EXCEL对象
xlapp2 = CreateObject("Excel.Application")
xlbook1 = xlapp1.Workbooks.Open("D:\test1.xlsx") '打开已经存在的D:\test.xlsx工件簿文件
xlbook2 = xlapp2.Workbooks.Open("D:\test2.xlsx")
xlapp1.Visible = False '设置EXCEL对象可见(或不可见)
xlapp2.Visible = False
xlsheet1 = xlbook1.Worksheets("sheet1")
xlsheet2 = xlbook2.Worksheets("sheet1")
For i = 1 To 10
D = xlsheet1.Cells(i, 1)
If D.Text = "2013-1-1" Then
xlsheet2.Cells(j, 1) = xlsheet1.Cells(i, 1)
xlsheet2.Cells(j, 2) = xlsheet1.Cells(i, 2)
j = j + 1
End If
Next
xlsheet1.SaveAs("C:\test1.xlsx")
xlsheet2.SaveAs("C:\test2.xlsx")
xlapp1.Quit()
xlapp2.Quit()
xlapp1 = Nothing
xlapp2 = Nothing
MsgBox("完成")