续 EXCEL 函数(另存为)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Byte
ChDrive "F:"
ChDir "F:\★调价单★\"
If Dir(Format(Date, "yyyy.mm")) & "\" = "" Then MkDir Format(Date, "yyyy.mm")
ChDir Format(Date, "yyyy.mm")
If Dir(Format(Date, "yyyy.mm.dd") & ".xls") = "" Then
ThisWorkbook.SaveAs Format(Date, "yyyy.mm.dd") & ".xls"
Else
For i = 1 To 100
If Dir(Format(Date, "yyyy.mm.dd") & "-" & i & ".xls") = "" Then
ThisWorkbook.SaveAs Format(Date, "yyyy.mm.dd") & "-" & i & ".xls"
Exit Sub
End If
Next i
End If
End Sub
以上的函数可以实现我的功能了.

但是我忽略了一点!麻烦帮忙修改下.

另存为的数据表 不包含这个 函数可以不? \者是 查看另存为的表时,关闭是不会自动另存为

总的来说是 另存为的表 不要自动另存为!,麻烦帮忙改下!

给一个思路：在此代码最前面加上一个判断。即对文件名进行判断，如果此工作簿文件名是你需要有另存为功能的工作簿文件名，那么可以继续运行此代码。如果，此工作表名不是需要有另存为功能的工作簿文件名，那么直接跳过此代码。这样就可以实现另存为的工作表不再运行另存为这段宏了。

因为不知道你的原始工作簿名称，所以代码就不写了。应该很简单的代码了