求助合并82个工作表，标题一致

35072921

82个工作表式PDF转EXCEL产生的。。想要合并成一个工作表

ahzll

你可以试一下本人的EXCEL必备工具箱（完全免费）中的“按工作表汇总功能”

loooop

学习学习来

35072921

能给个链接吗？

LangQueS

http://club.excelhome.net/viewth ... p;page=1#pid2789045

HadesBoss

科目码打印(2009).rar (84.17 KB, 下载次数: 9)

2010-7-19 14:34 上传

点击文件名下载附件

附件代码有误，只统计了12个工作表，更正如下
Sub hades()
    Dim Shname As String, i!, Rs As Range
    Dim conn As ADODB.Connection
    Dim sql As String
    Set conn = New ADODB.Connection
    Sheets("汇总").Range("A2:Z60000").ClearContents
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0';Data Source=" & ThisWorkbook.FullName
    For i = 1 To Sheets.Count
    Shname = Sheets(i).Name
        If ShName <> "汇总" Then
            sql = "select * from [" & Shname & "$] "
            Set Rs = Sheets("汇总").[A65536].End(xlUp)
            Rs.Offset(1, 0).CopyFromRecordset conn.Execute(sql)
        End If
    Next
    conn.Close
    Set conn = Nothing
    Set Rs = Nothing
End Sub

[ 本帖最后由 HadesBoss 于 2010-7-19 14:40 编辑 ]

58976104

看的头大！

100米跳远

很实用的工具，只是我觉得DIY最好不过了！！

100米跳远

二楼的哥们辛苦了！