excel - vba，如何压缩带有特殊字符的文件？

Question

压缩文件夹中的所有文件时出现错误

    '''''Create empty Zip File
    NewZip (FileNameZip)
    Set oApp = CreateObject("Shell.Application")
    '''''Copy the files to the compressed folder

    oApp.Namespace(FileNameZip).CopyHere oApp.Namespace(FolderName).items ''error here

错误:c:...\Jørgen.doc 无法压缩，因为它包含压缩文件夹中无法包含的字符，例如 ø。您应该重命名该文件或目录。

但是，如果我导航到该文件并将其手动复制到 zip 文件夹，那么它就没有问题。有没有办法解决我的 vba 代码中的此错误

Answer 1

这已经是 MacOS 中的标准功能，但在 Windows 10 中您需要执行以下操作:

在“开始”菜单搜索框中键入“区域”

1. 打开区域和语言控制面板

2. 单击顶部的“管理”选项卡

3. 在“非 Unicode 程序的语言”部分中，点击“更改系统区域设置...”。

4. 选中“测试版:使用 Unicode UTF-8 获得全局语言支持。”

5. 重新启动 Windows 并重试。