创建同名Land-DE工作簿自动删旧文件的VBA代码故障排查

我帮你排查下代码里的问题，主要有两处关键错误导致功能失效：

问题分析 #

• 变量赋值错误：path是字符串变量，你用了Set关键字（这个是给对象变量赋值用的），直接去掉Set就行。
• 逻辑漏洞：当目标文件存在并被删除后，你的代码没有执行保存新工作簿的操作——只有文件不存在时才会触发SaveAs，删除旧文件后就跳过了保存步骤，自然看不到新文件。

修正后的代码 #

Sub createwb()
    Dim FSO As Object
    Dim savePath As String
    Dim newWB As Workbook
    
    ' 定义目标路径，避免重复写字符串
    savePath = "D:\Job\Land-DE.xlsx"
    
    ' 创建FileSystemObject实例
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    ' 检查文件是否存在，存在则删除
    If FSO.FileExists(savePath) Then
        FSO.DeleteFile savePath, True ' True表示强制删除只读文件
    End If
    
    ' 创建新工作簿并保存到目标路径
    Set newWB = Workbooks.Add
    newWB.SaveAs savePath
    
    ' 可选：如果不需要保留新工作簿打开，可以关闭它
    ' newWB.Close SaveChanges:=False
End Sub

代码说明 #

1. 先定义好目标路径，避免重复输入路径字符串，降低出错概率。
2. 先处理文件删除逻辑，不管文件是否存在，最后都创建新工作簿并保存——这样就覆盖了所有场景：
   • 如果旧文件存在：删除后保存新文件
   • 如果旧文件不存在：直接保存新文件
3. 用newWB变量引用新创建的工作簿，比依赖ActiveWorkbook更可靠（避免其他工作簿激活导致的错误）。

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