GetObject(MyFile)为何出错

zhaogang1960

tina_sun 发表于 2013-1-5 10:06
不好意思，刚刚使用中发现问题，就是文件夹中有30个源文件，汇总运行的时候就出错了
错误提示为：
类 w ...

这个问题确实存在，当复制工作表过多时就会出现，能复制多少个工作表与电脑配置有关，我这里一般最多可以复制500个工作表左右

likewinlike

zhaogang1960 发表于 2012-12-29 15:52
短信收到
第一个问题，如果GetObject(MyFile)不加明确路径，则要指明默认路径：
ChDrive Split(MyPath, " ...

老师，烦请帮忙看下以下代码，其中With GetObject(MyPath & MyName)在公司共享盘上运行报错，本地又OK，是什么原因，多谢！

Sub 合并分表()
Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet, m&
If ActiveSheet.Name <> "汇总" Then
    MsgBox "请选中【汇总】工作表"
    Exit Sub
End If
Sheet1.Range("A2:N6000").Cells.ClearContents       '合并前先清空数据
Set sh = ActiveSheet
MyPath = ThisWorkbook.Path & "\"
MyName = ThisWorkbook.Name
Application.ScreenUpdating = False
With GetObject(MyPath & MyName)

On Error Resume Next
For Each sht In .Sheets                 '循环工作薄中的所有工作表sht
    If sht.Name <> "汇总" And sht.Name <> "透视" Then
        
        If IsSheetEmpty = IsEmpty(sht.UsedRange) Then
            If Sheets("汇总").FilterMode Then Sheets("汇总").ShowAllData
            If sht.FilterMode Then sht.ShowAllData
            n = sht.[b65536].End(xlUp).Row      '将要合并的工作表中数据行数
            m = sh.[b65536].End(xlUp).Row           '合并前【汇总表】工作表中数据行数
            
            arr = sht.Range("a2:m" & n)
            
            sh.Cells(m, 1).Offset(1).Resize(n - 1) = sht.Name
            
            sh.Cells(m, 2).Offset(1).Resize(UBound(arr), UBound(arr, 2)) = arr        

        End If
    End If
Next
End With

Application.ScreenUpdating = True
MsgBox "合并完成"
End Sub