[求助]又一种多工作簿汇总.rar

dfbhy44702

请教zhaogang1960老师：
如何在此处定位到某个具体的SHEET表？我只想获取工作簿中某个特定SHEET中的内容而不是所有SHEET表。谢谢！   
myFile = Dir(myPath & "\*.xls")

zhaogang1960

请参考:
Sub 汇总()
    Dim myPath$, myFile$, sht As Worksheet
    Dim arr, lr As Long, lr2 As Long
    myPath = ThisWorkbook.Path & "\数学\"
    myFile = Dir(myPath & "\*.xls")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Range("e8:h65536").ClearContents
    With ThisWorkbook.Sheets("Sheet1")
        Do While myFile <> ""
            Workbooks.Open myPath & myFile
            Set sht = Sheets(1) '假设特定SHEET为第一个工作表
            lr = sht.Range("d65536").End(xlUp).Row
            lr2 = .Range("e65536").End(xlUp).Row + 1
            arr = sht.Range("d9:g" & lr).Value
            .Range("e" & lr2).Resize(UBound(arr, 1), 4) = arr
            ActiveWorkbook.Close
            myFile = Dir
        Loop
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

dfbhy44702

谢谢！问题解决了。

lbl016

下载测试了非常好

cqr123

先留个记号来消化，以后再来努力

shanchuan

如何在EXCEL2007中用FSO代替FileSearch
如何在EXCEL2007中用FSO代替FileSearch（循环遍历)
如何在EXCEL2007中用FSO代替FileSearch（循环遍历）？
原代码：
With Application.FileSearch
        .LookIn = ThisWorkbook.Path
        .FileType = msoFileTypeExcelWorkbooks
        If .Execute() > 0 Then
            For i = 1 To .FoundFiles.Count
                If .FoundFiles(i) <> ThisWorkbook.FullName Then
                    Workbooks.Open .FoundFiles(i)

shanchuan

原帖由 zhaogang1960 于 2009-5-30 23:22 发表
请参考:
Sub 汇总()
    Dim myPath$, myFile$, sht As Worksheet
    Dim arr, lr As Long, lr2 As Long
    myPath = ThisWorkbook.Path & "\数学\"
    myFile = Dir(myPath & "\*.xls")
    Application.S ...

ThisWorkbook.Path

carlliang

原帖由 zhaogang1960 于 2008-10-2 12:00 发表
请参考：Sub 汇总()&nbsp;&nbsp;&nbsp; Dim myPath$, myFile$, sht As Worksheet&nbsp;&nbsp;&nbsp; Dim arr, lr As Long, lr2 As Long&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' ...

老师，请教如果只提取每个工作表的B3，K5，K7数据如何修改这段代码？谢谢！

carlliang

原帖由 zhaogang1960 于 2009-5-30 23:22 发表
请参考:
Sub 汇总()
    Dim myPath$, myFile$, sht As Worksheet
    Dim arr, lr As Long, lr2 As Long
    myPath = ThisWorkbook.Path & "\数学\"
    myFile = Dir(myPath & "\*.xls")
    Application.S ...

老师，请教如果只提取每个工作表的B3，K5，K7数据如何修改这段代码？谢谢！

d346836673

好贴,留个记号!   相见恨晚啊！