大虾求救,,怎么能把其它几个表里的内容自动放到一个表里面做总汇

幽雅人生 · 发表于 2006-8-16 22:25

UmkK2V99.rar (86.27 KB, 下载次数: 62)

因为每天都要录入东西,一天做一份EXCEL,一个月就有30份表了,还要放入一个表里做总汇.

有没有什么好的宏可以把其它表里面的内容自动放入要总汇的表里面呢?

我上传了份文件,怎么能把AAA文件夹里的3个表里的内容自动放入总汇表里呢?

高手们帮帮忙了

[em03]

爱歌学习 · 发表于 2006-8-16 22:45

跟这里有什么不同？http://club.excelhome.net/viewthread.php?tid=182293&replyID=485237&skin=0

幽雅人生 · 发表于 2006-8-16 22:52

他那个做得太复杂,他表里面有很多个小的表格,总汇在一个表里空了很多行.我的是要全都连在一起的

cmbjx111 · 发表于 2006-8-16 23:16

http://hi.baidu.com/cmbjx333

爱歌学习 · 发表于 2006-8-17 08:58

Sub CommandButton1_Click()
    Dim sName$, Sql$, strTbl$, filecount%, sheetcount%
    Dim Filename As Variant

    指定数据区域.Hide
    Filename = Application.GetOpenFilename("Microsoft Office Excel Files (*.xls), *.xls", , "请选取文件", , MultiSelect:=True)
    If Not IsArray(Filename) Then Exit Sub

    [a7:iv7000].ClearContents
    filecount = 0: sheetcount = 0
    For Each fn In Filename
        Application.ScreenUpdating = False        '不显示处理过程
        sName = Dir(fn)                            '从文件的全路径中取出文件名
        Workbooks.Open fn                          '打开文件以进行表遍历
        Set cn = CreateObject("ADODB.Connection")               '（1）
        cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;IMEX=1;HDR=NO';Data Source=" & fn
        For Each sh In ActiveWorkbook.Worksheets
            strTbl = sh.Name                         '当前表的名称
            rowend = ThisWorkbook.Sheets("subdetail").[a65536].End(xlUp).Row + 1
            Sql = "Select * FROM [" & strTbl & "$" & TextBox1.Text & TextBox2.Text & ":" & TextBox3.Text & TextBox4.Text & "] where f1 is not null "
            ThisWorkbook.Sheets("subdetail").Range(TextBox1.Text & rowend).CopyFromRecordset cn.Execute(Sql)
            sheetcount = sheetcount + 1
        Next
        cn.Close
        Workbooks(sName).Close False
        filecount = filecount + 1
    Next
    [M3] = filecount: [M4] = sheetcount
    Set cn = Nothing
    Application.ScreenUpdating = True
End Sub

pMMR8SHZ.rar (99.93 KB, 下载次数: 136)

幽雅人生 · 发表于 2006-8-17 18:11

非常感谢

[em17]

		自动登录	找回密码
密码			免费注册