早上好，
目前，我在下面的這段代碼從作業表 5 創建了一些在作業表上具有相同名稱的 Excel 檔案。但是我想將當前日期添加為：“List AA 30.03.2022”。
Sub EXCELS()
'Create excel files
Dim i As Integer
Dim name_file As String
For i = 5 To Sheets.Count
name_file = Sheets(i).Name
Worksheets(i).Copy
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & name_file & ".xlsx",
FileFormat:=xlOpenXMLWorkbook
.Close SaveChanges:=False
End With
Next i
End Sub
我需要添加什么？
uj5u.com熱心網友回復：
嘗試這個 ：
ThisWorkbook.Path & "\" & name_file & " " & Format(Date, "DD.MM.YYYY") & ".xlsx"
uj5u.com熱心網友回復：
將行替換.SaveAs Filename:=ThisWorkbook.Path & "\" & name_file & ".xlsx", FileFormat:=xlOpenXMLWorkbook為
.SaveAs Filename:=ThisWorkbook.Path & "\" & name_file & Format(Date, " dd.mm.yyyy") & ".xlsx", FileFormat:=xlOpenXMLWorkbook
根據您的評論進行編輯
，為了完全替換檔案，您首先需要將舊檔案名保存為變數，然后再將其洗掉。
因此，將整個With塊替換為以下內容；
With ActiveWorkbook
'variable to store the old file name:
Dim OldFileName as String
'assign the file's current name to the variable:
OldFileName = .FullName
'Now save the file with it's new name, then close it:
.SaveAs _
Filename:=ThisWorkbook.Path & "\" & name_file & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook
.Close
End With
'Get rid of the leftover file with the old name:
Kill OldFileName
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/452336.html