[已解决]VBA工作簿合并产生的问题，请各位大师帮助

xujie_nust

现在我想把A工作簿（5个sheet）和B工作簿（6个sheet）汇总到甲工作簿中，我用for……next 和 for……each嵌套写了一段代码，但一直不能运行，请各位帮着给看看，谢谢啦。是不是for……next 和 for……each不能嵌套使用呢。

Sub tt()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        Dim i As Integer, sht As Worksheet
            For i = 1 To Workbooks.Count
                For Each sht In Workbooks(i).Worksheets
                    If Workbooks(i).Name <> ThisWorkbook.Name Then
                        Workbooks(i).sht.Copy before:=ThisWorkbook.Worksheets(1)     
                    End If
                Next
            Next
    Application.DisplayAlerts = ture
    Application.ScreenUpdating = ture
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2014-12-12 21:05

Sub tt()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim i As Integer, sht As Worksheet
    For i = 1 To Workbooks.Count
        If Workbooks(i).Name <> ThisWorkbook.Name Then
            For Each sht In Workbooks(i).Worksheets
                sht.Copy before:=ThisWorkbook.Worksheets(1)
            Next
        End If
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

跳转到最佳答案楼层

ppp710715

ture应为true

xujie_nust

ppp710715 发表于 2014-12-12 16:54
ture应为true

不是这个原因，问题好像出在倒数第7行。

xujie_nust

倒数第七行，显示“438 对象不支持该属性或方法”。

qh8600

xujie_nust 发表于 2014-12-12 17:03
倒数第七行，显示“438 对象不支持该属性或方法”。

3个工作簿都打开了

zjdh

Sub tt()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim i As Integer, sht As Worksheet
    For i = 1 To Workbooks.Count
        If Workbooks(i).Name <> ThisWorkbook.Name Then
            For Each sht In Workbooks(i).Worksheets
                sht.Copy before:=ThisWorkbook.Worksheets(1)
            Next
        End If
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

xujie_nust

zjdh 发表于 2014-12-12 21:05
Sub tt()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

非常感谢