Question

我最近问过一个问题，我在Excel VBA中找不到错误53'文件'。我试图通过在新脚本中切入BS来提炼这个问题的本质。这是脚本中最简化的版本，我仍然遇到同样的问题：

Sub Test()
Dim NJ As String, path As String, Oud As String, Archief As String, Nieuw As String

path = "C:\Test" & "\"

Oud = path & "A"
Archief = path & ("Archive") & "\" & "A"
Nieuw = path & "B"

Application.Workbooks.Add
ActiveWorkbook.SaveAs Oud
ActiveWorkbook.SaveAs Archief
ActiveWorkbook.SaveAs Nieuw
Kill Oud

End Sub

我试图通过将其限制为其基本要素来绕过过长路径名的可能性，并且我创建了一个新文件，我给出了一个变量名称，以确保路径名中没有出错。我还与IT人员交谈，以确保我具有更改，编辑和删除文件的适当权限。

我知道当前的脚本没有多大意义（为什么不直接创建Archief和Nieuw？），但我试图理解在另一个脚本中发生的错误，我尝试存档一些文件（比如，“名称2017”）在存档文件夹中，将它们重命名为原始文件中的新年（例如“name 2018”），然后杀死原始2017文件以清理混乱。

我尝试分析这个错误的原因，因为它看起来根本没有意义的文件，我绝对肯定它存在（我刚创建它）无法找到... 任何有用的见解都非常感谢。

Answer 1

请进行以下更改：

1）将这些行添加到您的代码中：

new int[100];

2）替换这些行：

Dim filename As String

filename = "test.xls" 'You can select any name and any excel file format

有了这些：

    Application.Workbooks.Add
    ActiveWorkbook.SaveAs Oud
    ActiveWorkbook.SaveAs Archief
    ActiveWorkbook.SaveAs Nieuw
    Kill Oud

矛盾的错误“VBA中没有文件”

1 个答案: