我这里提示如下：

我自己不懂VBA,这是一网友老师给做的汇总表,我用的是正版2007,软件也重新安装并更新到SP3,运行其它类似的汇总表可以,就这个不行,请老师给看看,多谢了.

因我不懂,老师能帮我恢复下,万分感谢您,下面是代码:
Private Sub CommandButton1_Click()
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  Dim ws As Worksheet, wb As Workbook, fullname As String, docname As String, doc_name As New Collection
  Dim foldername As String, searchname As String, filename As String
  Dim i As Integer, lines As Long
  Dim wj As String, fs As Object
  Sheet1.Range("a3:i65536").ClearContents
  foldername = ThisWorkbook.Path & "\files"
  searchname = "*.xls"
  Set doc_name = Nothing
  docname = Dir(foldername & "\" & searchname)
  Do Until docname = ""
    doc_name.Add Item:=docname
    docname = Dir
  Loop
  
  lines = 3
  For i = 1 To doc_name.Count
    filename = foldername & "\" & doc_name(i)
    Set wb = Application.Workbooks.Open(filename)
    Set ws = wb.Worksheets(1)
    With Sheet1
         .Cells(lines, 1) = ws.Range("B2")
         .Cells(lines, 2) = ws.Range("D2")
         .Cells(lines, 3) = ws.Range("D3")
         .Cells(lines, 4) = ws.Range("F2")
         .Cells(lines, 5) = ws.Range("F3")
         .Cells(lines, 6) = ws.Range("H2")
         .Cells(lines, 7) = ws.Range("H3")
         .Cells(lines, 8) = ws.Range("J2")
         .Cells(lines, 9) = ws.Range("J3")
         .Cells(lines, 10) = ws.Range("L2")
         .Cells(lines, 11) = ws.Range("B15")
         .Cells(lines, 12) = ws.Range("B17")
    End With
    lines = lines + 1
    wb.Close
    Set wb = Nothing
    Set ws = Nothing
  Next i
  
  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
End Sub

看来是版本兼容的问题,在2010上运行正常