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

Question

I would like to create a New workbook and name it as today's date and DE. (Eg : 22.01.2018-DE) Format(Date, "dd/mm/yyyy") & "-DE"

If the workbook is already existed or opened, then delete it or close it. Finally save the workbook. I used the code below but not working. Displaying object defined error . Help me

I need to rename Land-DE to 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

How about this:

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

Try with saving as:

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

Then delete the file with the old name. To make it look better, consider saving "Q:\\Job\\22.01.2018.xlsx" as a String variable.

Answer 3

I believe you are editing the wrong property.

I would simply use ActiveWorkbook.Name = [your desired name]