请老师给看看这个汇总表错哪了

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位老师,请看看这个汇总表错哪了,每次打开总提示错误(见截图)

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：汇总表 老师 汇总表

我这里提示如下：

我自己不懂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上运行正常