我正在嘗試打開一個 excel 檔案，填充一些單元格，然后將其保存在一個新檔案夾中。
問題是，生成的檔案包括今天的日期，而日期包括句點。例如，如果檔案名是“Template_Name_01.01.2022”，則檔案格式更改為 .2022
我的代碼如下所示：
Dim OriginalFileName As String
fileName = "Template_" & Nz(rs!Street, "Address") & "_" & Date
OriginalFileName = fileName
Dim fileNumber As Integer
fileNumber = 1
Do Until nameFree = True
nameCheck = Dir("G:\Argus\_Deal Tracker 3.0\Deals_Inv Mgmt\" & fileName)
If nameCheck = "" Then
xlBook.SaveAs fileName:="G:\Argus\_Deal Tracker 3.0\Deals_Inv Mgmt\" & fileName, FileFormat:=xlOpenXMLStrictWorkbook
nameFree = True
Else
fileName = OriginalFileName
fileName = fileName & " (" & fileNumber & ")"
fileNumber = fileNumber 1
End If
Loop
即使我確定了 fileFormat 它仍然將檔案保存為 .2022
保存的檔案
如果我在檔案名中添加“.xlsx”擴展名，它適用于我但不適用于其他 PC，我猜這是因為它們隱藏了檔案擴展名。
如果他們運行該功能，他們會收到此錯誤。
錯誤資訊
那么，如果名稱中出現句點，有沒有辦法防止檔案格式發生變化？
謝謝
uj5u.com熱心網友回復：
您需要格式化Date以從檔案名中洗掉正斜杠/，因為它們是不允許的。您還需要在路徑中提供檔案擴展名。
所以，改變這個：
fileName = "Template_" & Nz(rs!Street, "Address") & "_" & Date
對此：
fileName = "Template_" & Nz(rs!Street, "Address") & "_" & Format(Date, "dd.mm.yyyy") & ".xlsx" 'change to your extension
uj5u.com熱心網友回復：
從腳本執行另存為，您必須構建整個檔案名，包括擴展名。
基本上你必須添加類似的東西：
fileName = "Template_" & Nz(rs!Street, "Address") & "_" & Date & ".csv"
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/490350.html