VBA中Kill命令无法删除含特殊字符č的文件如何解决？

我们在Excel中使用如下VBA脚本：

Sub TestDelete()
    Dim CurrentSheet As Worksheet
    Dim TempFilePath As String
    Dim TempFileName As String
    

    ' Set the current worksheet
    Set CurrentSheet = ActiveSheet
        
    ' Define the temporary file path and file name
    TempFilePath = Environ$("temp") & "\"
    TempFileName = "BBK_" & ModulNr & "_" & CurrentSheet.Range("D3").Value
    
    CurrentSheet.Copy
    ActiveWorkbook.SaveAs TempFilePath & TempFileName & ".pdf"
    ActiveWorkbook.Close False
    
    Kill TempFilePath & TempFileName & ".pdf"
End Sub

该脚本对D3单元格的大多数取值都能正常运行，但当D3包含特殊字符“č”时，Kill命令无法删除已生成的PDF文件（文件确实按指定名称创建成功了），请问需如何调整Kill参数？

解决方案 #

问题根源 #

VBA原生的Kill命令默认采用ANSI编码解析文件名，而Windows系统实际以Unicode编码存储文件名。当文件名包含“č”这类非ANSI字符时，编码不匹配会导致Kill无法定位到目标文件。

修改方案：改用Unicode兼容的Windows API #

使用支持Unicode的DeleteFileW API函数替代Kill，它能正确识别包含特殊字符的文件路径。

修改后的完整代码：

' 模块顶部声明API函数（兼容64位Excel）
Private Declare PtrSafe Function DeleteFileW Lib "kernel32" (ByVal lpFileName As LongPtr) As Boolean

Sub TestDelete()
    Dim CurrentSheet As Worksheet
    Dim TempFilePath As String
    Dim TempFileName As String
    Dim FullFilePath As String

    ' 设置当前工作表
    Set CurrentSheet = ActiveSheet
        
    ' 定义临时文件路径和文件名
    TempFilePath = Environ$("temp") & "\"
    TempFileName = "BBK_" & ModulNr & "_" & CurrentSheet.Range("D3").Value
    FullFilePath = TempFilePath & TempFileName & ".pdf"
    
    CurrentSheet.Copy
    ActiveWorkbook.SaveAs FullFilePath
    ActiveWorkbook.Close False
    
    ' 使用DeleteFileW替代Kill
    DeleteFileW StrPtr(FullFilePath)
End Sub

关键说明 #

1. DeleteFileW是Windows内核提供的Unicode版本文件删除接口，StrPtr函数负责将VBA字符串转换为Unicode指针，确保API能正确识别文件路径。
2. 若使用32位Excel，可将PtrSafe保留，LongPtr替换为Long以保持兼容性。
3. 该方案支持所有Unicode特殊字符，不会再出现因编码不匹配导致的文件删除失败问题。

内容的提问来源于stack exchange，提问作者theking2