如何在VBA中自动命名新的Excel工作簿

Question

我想创建一个新工作簿并将其命名为今天的日期和DE。 （例如：22.01.2018-DE） Format(Date, "dd/mm/yyyy") & "-DE"

如果工作簿已经存在或打开，则将其删除或关闭。 最后保存工作簿。 我使用下面的代码，但无法正常工作。 显示object defined error 。 帮我

我需要将Land-DE重命名为22.01.2018-DE。

Sub createlandDE()
Dim wb As Workbook
Set wb = Workbooks.add
ActiveWorkbook.Names.add Name:=Format(Date, "dd/mm/yyyy") & "-DE"
Dim path As String
Dim FSO As Object
path = "Q:\Job\Land-DE.xlsx" 'Need to rename the file here
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(path) Then
    On Error Resume Next
        Workbooks("Land-DE").Close False 'Workbook name must automatically come here
        Kill path
        wb.SaveAs path
    Else
    wb.SaveAs path
 End If

Answer 1

这个怎么样：

Sub createlandDE()
Dim wb As Workbook
Set wb = Workbooks.Add
NameValue = Format(Date, "dd-mm-yyyy") & "-DE"
Dim path As String
Dim FSO As Object
delpath = "Q:\Job\Land-DE.xlsx" 'Need to name the file to delete
path = "Q:\Job\" & NameValue & ".xlsx" 'Need to rename the file here

Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(path) Then
    On Error Resume Next
        Workbooks(NameValue).Close False
        Kill delpath
        wb.SaveAs path
    Else
    wb.SaveAs path
 End If
End Sub

Answer 2

尝试另存为：

Workbooks("Land-DE").SaveAs Filename:="Q:\Job\22.01.2018.xlsx"

然后删除具有旧名称的文件。 为了使其看起来更好，请考虑将"Q:\\Job\\22.01.2018.xlsx"为String变量。

Answer 3

我相信您在编辑错误的属性。

我只使用ActiveWorkbook.Name = [您所需的名称]