如何简便地把多个表合并成一个

chao8050

在所要合并汇总的文件夹里新建一个excel文件，录入代码，执行

Sub huizong()
mulu = ThisWorkbook.Path
wj = Dir(mulu & "\*.xls")
Do While wj > ""
  If wj <> ThisWorkbook.Name Then
    Workbooks.Open (mulu & "\" & wj)
    With ActiveWorkbook.Sheets(1)
      .Rows(1).Copy ThisWorkbook.Sheets(1).Rows(1)
      n = .UsedRange.Rows.Count
      For i = 1 To n
        If .Cells(i, 2) <> "" And .Cells(i, 3) = "" Then
          .Rows(i).Delete
          i = i - 1
        End If
      Next
      .UsedRange.Offset(1, 0).Copy ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Offset(1, 0)
      
    End With
    ActiveWorkbook.Close (False)
  End If
  wj = Dir
Loop
End Sub

yu363948701

学习下了，瞅瞅

ctp_119

原帖由 335081548 于 2011-4-9 18:37 发表

这位老师问一下
这个有没有后期绑定的方法

当然有啦，后期绑定用CREATEOBJECT创建即可。我习惯前期绑定，因为在编写程序的时候提供方法属性参数列表。我很少记住那些参数的，全靠提示的。呵呵

aytyxiang

多谢，正在找这个方法呢，比一些软件简单多了。马上研究研究。

njzaq

原帖由 njzaq 于 2011-4-8 12:39 发表
群满加不上喽。

   朋友的推荐立马连加两次人满，可是没有五分钟，就来提示已加入该群，欣喜中与大家交流了一下。可是悲剧出现了，2天后，给T啦，说话少，无语啦。
  
  不错的是在那还认识了一些朋友。
  
  那不留我，自有留我处，还是到老地方看看吧。不差那的呀。多安静。
  在此还是在感谢朋友们的帮助。好好学习，好好工作，天天向上哦！

wwywwy_1971

说实话这是个很实用的需求，以后就不用再辛苦的粘来粘去的啦！