Question

我想做的是重命名文件。这是我的代码。它返回“找不到文件”。目录正确。我已经检查了两倍和三倍。错误消息仍然存在。这是代码。我在做什么错了？

Sub RenamePictureFileName()

    Dim sPath As String
    Dim oldPrato As String, newPrato As String
    Dim oldName As String, newName As String

    oldPrato = "Migas de Couve.jpeg"
    newPrato = "Mais migas de couve.jpeg"

   sPath = "/Users/victorgameiro/Dropbox/AT Macela/Excel Databases/" & _
        "FICHAS TÉCNICAS/Fotos/Fotos FT/"

    oldName = sPath & oldPrato
    newName = sPath & newPrato
    Debug.Print oldName
    Debug.Print newName
    Name oldName As newName

End Sub

Answer 1

尝试像这样添加驱动器号：

sPath =“ C：/用户/ victorgameiro / Dropbox / AT Macela / Excel数据库/”＆_ “ FICHASTÉCNICAS/ Fotos / Fotos FT /”

如果不是C：将字母替换为文件所在的驱动器。

--- 如果有帮助，请标记答案。

Answer 2

对于未提及我确实在使用Excel for Mac表示歉意，这意味着所指示的路径是标识路径的正确方法。 Mac上没有C：\驱动器。我的代码中指示的路径在其他用途中也可以正常工作。鉴于问题仍然存在，那么代码是否可能在Mac版本的excel上不起作用？

谢谢大家的帮助。

Answer 3

Mac系统不使用字母作为驱动器。如果我确实为驱动器添加了字母，则会显示“找不到驱动器”。我怀疑此功能只是Mac版本的Excel上不起作用的另一功能。在MS决定解决此问题之前，我必须找到解决方法。同时，我将在PC上测试代码，以查看代码是否有效。

感谢您的帮助。

使用名称功能后找不到文件

3 个答案: