GetObject(MyFile)为何出错

tina_sun

我要将一个文件夹下的所有文件不用打开，自动将所有文件中的sheet（除了“说明”这张sheet）拷贝到一个excel文件中，试着写了下面的代码，但是执行到 GetObject(MyFile)就报错，不知道为什么，求高手！多谢！

Private Sub CommandButton1_Click()

Dim cnn As Object
      Application.ScreenUpdating = False

    MyPath = ThisWorkbook.Path & "\"
    MyFile = Dir(MyPath & "*.xls")

    Do While MyFile <> ""
        If MyFile <> ThisWorkbook.Name Then

                 Set cnn = GetObject(MyFile)
            With cnn
                For Each sh In .Sheets
                    If sh.Name <> "说明" Then
                      .sh.Copy before:=ActiveSheet
                      .Close
                    End If
                 Next

            End With

        End If
        MyFile = Dir()
    Loop


    Application.ScreenUpdating = True

End Sub

james.wan

请楼主最好上传附件这样更好有针对性解决问题．

战战如疯

要写完整路径，mypath & myfile

tina_sun

战战如疯 发表于 2012-12-29 15:07
要写完整路径，mypath & myfile

多谢，就是这个问题。
那往下面执行又遇到问题了，如何判断我要读取的那个excel文件的sheet名是“说明”，如果是“说明”我就不拷贝，其他的全部拷贝到主文件中。
不好意思，因为我现在公司网络问题，不能上传附件，不知道能否明白我的意思。多谢哦！

tina_sun

james.wan 发表于 2012-12-29 15:07
请楼主最好上传附件这样更好有针对性解决问题．

不好意思，因为现在公司网络问题，不能上传附件，所以麻烦帮忙看看，下面怎么判断sheet名为 “说明”的问题吧！

战战如疯

tina_sun 发表于 2012-12-29 15:41
多谢，就是这个问题。
那往下面执行又遇到问题了，如何判断我要读取的那个excel文件的sheet名是“说明” ...

你上面的那个不行吗？。。。。

zhaogang1960

短信收到
第一个问题，如果GetObject(MyFile)不加明确路径，则要指明默认路径：
ChDrive Split(MyPath, ":")(0)
ChDir MyPath
第二个问题

1. Private Sub CommandButton1_Click()
   
2.     Dim wb As Object, sht As Worksheet
   
3.     Application.ScreenUpdating = False
   
4.     Set sht = ActiveSheet
   
5.     MyPath = ThisWorkbook.Path & ""
   
6.     MyFile = Dir(MyPath & "*.xls")
   
7.     ChDrive Split(MyPath, ":")(0)
   
8.     ChDir MyPath
   
9.     Do While MyFile <> ""
   
10.         If MyFile <> ThisWorkbook.Name Then
    
11.             Set wb = GetObject(MyFile)
    
12.             For Each sh In wb.Sheets
    
13.                 If sh.Name <> "说明" Then sh.Copy before:=sht
    
14.             Next
    
15.             wb.Close False
    
16.         End If
    
17.         MyFile = Dir()
    
18.     Loop
    
19.     Application.ScreenUpdating = True
    
20. End Sub

复制代码

tina_sun

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

非常感谢！
还有一个问题，现在读出来的sheet名称跟源文件中的一样，有很多重复的，现在我想加一个操作，源文件的工作薄名称类似为：供应商1交货计划，供应商2交货计划。。。源文件的sheet名称类似为：项目1，项目2.。。
那希望在汇总的文件中，sheet名称为供应商1项目1，供应商1项目2，供应商2项目1，供应商2项目2。。。。
就是将文件名称和sheet名称结合体现在汇总表的sheet中，这个可以做到吗？

zhaogang1960

tina_sun 发表于 2012-12-29 16:20
非常感谢！
还有一个问题，现在读出来的sheet名称跟源文件中的一样，有很多重复的，现在我想加一个操作， ...

1. Private Sub CommandButton1_Click()
   
2.     Dim wb As Object, sht As Worksheet, wbn$
   
3.     Application.ScreenUpdating = False
   
4.     Set sht = ActiveSheet
   
5.     MyPath = ThisWorkbook.Path & ""
   
6.     MyFile = Dir(MyPath & "*.xls")
   
7.     ChDrive Split(MyPath, ":")(0)
   
8.     ChDir MyPath
   
9.     Do While MyFile <> ""
   
10.         If MyFile <> ThisWorkbook.Name Then
    
11.             wbn = Replace(MyFile, ".xls", "")
    
12.             Set wb = GetObject(MyFile)
    
13.             For Each sh In wb.Sheets
    
14.                 If sh.Name <> "说明" Then
    
15.                     sh.Copy before:=sht
    
16.                     ActiveSheet.Name = wbn & sh.Name
    
17.                 End If
    
18.             Next
    
19.             wb.Close False
    
20.         End If
    
21.         MyFile = Dir()
    
22.     Loop
    
23.     Application.ScreenUpdating = True
    
24. End Sub
    
25. 
    

复制代码

tina_sun

zhaogang1960 发表于 2012-12-29 16:25

不好意思，刚刚使用中发现问题，就是文件夹中有30个源文件，汇总运行的时候就出错了
错误提示为：
类 worksheet的copy方法无效

麻烦老师看看是什么原因，多谢！