2017-08-09 115 views
1

我无法在Excel中使用Visual Basic执行杀死函数。当我运行的代码杀人,我得到无法执行杀死函数VBA - 运行时错误'13'

“运行时错误‘13’类型不匹配”

没有任何人有什么想法?我已经试过

Kill("pathname") 

Kill "pathname" 

我试过不同的文件类型在不同的位置,总是最终得到相同的错误。

编辑 - 我现在已经恢复了尝试最简单的宏和我仍然得到错误瞬间:

Sub KillFile() 
    Dim filetokill As String 
    filetokill = "C:\Users\thomas.bennett\Desktop\test.txt" 
    VBA.Kill filetokill 
End Sub 

enter image description here

enter image description here

+1

我不喜欢使用'Kill'​​命令,但只是为了澄清,'pathname'是一个变量,其中包含文件名?如果是这样,尝试'杀死(路径名)' – Zac

+1

是路径名变量,或者你实际上是在你的代码中写道? – RealCheeseLord

+0

我已经尝试了两个。我已经为路径名分配了一个String变量,并试图杀死它。我也试图直接在杀死功能中输入路径名称。还应该注意的是,我试图从在线论坛复制工作代码,我仍然会得到相同的错误消息。 – TomB

回答

0

这两个应该工作,删除一个来自例如你的桌面的文件。

Sub killfile1() 

Dim filetokill As String 
filetokill = "C:\Users\yourusername\Desktop\test.txt" 
Kill filetokill 

End Sub 

Sub killfile2() 

Kill "C:\Users\yourusername\Desktop\test.txt" 

End Sub 

我有,但..你还没有创建一个名为Function或Sub Kill有你的想法?我刚刚创建一个,并没有禁止它:

Function kill(filename As Integer) 

End Function 

如果是现在,我运行的是我的榜样宏时得到完全相同的错误(13)你。请检查您的代码是否有其他用途Kill

+0

我试过这两个都没有成功。同样的错误不断出现。 – TomB

+0

我现在在全新的工作表中运行此代码以帮助查找原因,但即使在新的工作簿中也会出现此问题 – TomB

+0

我考虑了命名错误,但OP指出甚至显式调用'VBA.Kill'​​也会引发相同的问题错误... –