“获取文件基础名称”代码出错（已解决）

hhzjxss

Public Sub 获取文件基础名称()
    Dim fso As Scripting.FileSystemObject
    Dim myfile As String
    myfile = ThisWorkbook.Path & "\技巧18-028.xls"
    Set fso = New Scripting.FileSystemObject   '这句老出错，说控件不能创建对象
    MsgBox "该文件的基础名称为:" & fso.GetBaseName(myfile)
    Set fso = Nothing
End Sub

是不是要引用什么控件，还是什么原因？？

 

问题已得到398老师解答，答案在6楼！

[此贴子已经被作者于2008-2-21 19:56:38编辑过]

hhzjxss

WHO Cancel HELP ME !?

element

Retry register dll file: C:\WINDOWS\system32\scrrun.dll
, and make sure u have full authority.
Hope help.

hhzjxss

QUOTE:

以下是引用element在2008-2-21 10:20:00的发言：
Retry register dll file: C:\WINDOWS\system32\scrrun.dll
, and make sure u have full authority.
Hope help.

英国历史！[em03]

let me try!

[em07]

hhzjxss

文件虽找到了，怎么确认我有没有权限呢？

“获取文件基础名称”代码出错

element

先注册，【开始】【运行】

"RegSvr32 C:\WINNT\SYSTEM32\scrrun.dll"

hhzjxss

OK,搞定了，不是拜个师好多了！[em17]

我说怎么在VBE里引用了没有效果！[em06]

老师能说说这个东东到底是啥东东吗？

element

微软列举了出现429错误的可能性
但咱们是无法知道什么时候发生这种编译错误，原因在哪

因此，只能先注册DLL文件，再做进一步的判断

hhzjxss

QUOTE:

以下是引用element在2008-2-21 13:17:00的发言：
微软列举了出现429错误的可能性
但咱们是无法知道什么时候发生这种编译错误，原因在哪

因此，只能先注册DLL文件，再做进一步的判断

429错误，汗，他们都没告诉我呀！

再帮忙看看这个，那里不对！

http://www.excelpx.com/forum.php?mod=viewthread&tid=38202&replyID=&skin=1

hhzjxss

问题已得到398老师解答，答案在6楼！