无法执行kill函数VBA - 运行时错误'13'

Question

我无法在Excel中使用Visual Basic执行Kill功能。当我运行代码杀死时，我得到了

  

“运行时错误'13'类型不匹配'

有人有什么想法吗？我试过了

Kill("pathname")

和

Kill "pathname"

我在不同的位置尝试了不同的文件类型，并且总是得到同样的错误。

编辑 - 我现在已经恢复尝试最简单的宏，但我仍然会立即得到错误：

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

Answer 1

这两个都应该有效，例如从桌面删除文件。

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

我已经有了一个想法..你还没有创建一个名为Kill的FUNCTION或SUB吗？我刚刚创建了一个它并没有禁止它：

Function kill(filename As Integer)

End Function

如果存在，我会得到与运行任一示例宏时完全相同的错误（13）。检查您的代码是否有Kill的其他用途。