Question

我需要一个宏来保存excel表，只要在桌面上打开工作簿名称和当前日期。此外，如果桌面上有相同的名称，即工作簿名称和当前日期宏不应运行（以避免覆盖）。

请帮助编辑我的以下代码：

Sub SaveInFormat()
    Application.DisplayAlerts = False
    Workbooks.Application.ActiveWorkbook.SaveAs Filename:="I:\CAP_Profile\Desktop\" & Format(Date, "yyyymm") & "DB" & ".xls", leFormat:=51
    Application.DisplayAlerts = True
End Sub

Answer 1

要在打开工作簿时保存它，请使用Workbook Open子目录：

Private Sub Workbook_Open()

End Sub

然后要获取桌面路径，请使用特殊文件夹。

Dim path As String
path = CreateObject("WScript.Shell").specialfolders("Desktop")

要检查桌面上是否存在该文件，请使用以下内容（DirFile是文件的确切路径的字符串）：

If Len(Dir(DirFile)) = 0 Then
    ''Go ahead and save it
Else
    End
End If

在桌面上强制保存工作簿名称和当前日期的工作簿

1 个答案: