解决方案 »

  1.   

    你这个是VB6拷贝到VB.NET里的代码,当然不行
      

  2.   

    自己来答吧,感谢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("完成")