[已解决]为什么产生自动化(Automation)错误

爱疯

Sub test()
    Dim objshell As
  Object, objfolder As
  Object
    Dim Mypath As
  String, Myfile As
  String
    Dim r As
  Integer

    '得到合并路径(Mypath)
    Set objshell = CreateObject("Shell.Application")
    Set objfolder = objshell.BrowseForFolder(0, "选择文件夹", 0, 0)
    If objfolder Is
  Nothing
  Then
        End
    Else
        Mypath = objfolder.self.Path & "\"
    End
  If
    Set objfolder = Nothing
    Set objshell = Nothing


    Workbooks.Add
    Myfile = Dir(Mypath & "\*.txt")
    Do
  While Myfile <> ""

        If r = 0 Then
            r = 1    '首次
        Else
            r = Range("A1").End(xlDown).Row + 1    '不是首次
        End
  If

        With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Mypath & Myfile, Destination:=Cells(r, 1))
            .TextFileOtherDelimiter = "|"
            .TextFileColumnDataTypes = Array(2, 1, 1)
            .Refresh BackgroundQuery:=False
        End
  With

        Myfile = Dir
    Loop
End
  Sub
 

 

1. 在03下，还没报错。
2. 在07下，莫名其妙报错，报错后，啥也没改，F8检查时，却又不报错了？！

03.xla和07.xlam的内容都是一样，test()。GIF有些长，就保存在附件了。请问，好解决么？谢谢！

 

kEgUHAYE.rar (527.16 KB, 下载次数: 84)

2010-4-9 12:18 上传

点击文件名下载附件
为什么产生自动化(Automation)错误

[此贴子已经被作者于2010-4-9 12:18:14编辑过]

最佳答案

月排行榜 / 总排行榜

amulee

2010-4-9 15:48

Mypath = objfolder.self.Path & "\"
Myfile = Dir(Mypath & "\*.txt")

这两句是否多了一个"\"

跳转到最佳答案楼层

和气生财

爱疯用07了？

我还在03这儿呆着呢，帮不到你了。

爱疯

QUOTE:

以下是引用和气生财在2010-4-9 13:18:00的发言：

爱疯用07了？

我还在03这儿呆着呢，帮不到你了。

[em01]希望能知道为什么

amulee

Mypath = objfolder.self.Path & "\"
Myfile = Dir(Mypath & "\*.txt")

这两句是否多了一个"\"

爱疯

QUOTE:

以下是引用amulee在2010-4-9 15:48:00的发言：

Mypath = objfolder.self.Path & "\"
Myfile = Dir(Mypath & "\*.txt")

这两句是否多了一个"\"

谢谢阿木！

试了几下，好像没事了[em04]

如果多了1个"\"算错，奇怪怎么F8能通过[em11]

开辆小富康

F8不是自动的，嘿，所以没自动化错误。蒙的

爱疯

QUOTE:

以下是引用开辆小富康在2010-4-9 16:56:00的发言：
F8不是自动的，嘿，所以没自动化错误。蒙的

这样的理由也想得到[em06]

不过，我感觉有点点对

[em04]