使用Excel VBA提取文件的日期

Question

我在Excel中遇到了日期問題。當我嘗試拉文件夾內的文件日期時，它會拉小時，分鐘和秒，但編碼沒有要求它。最後我發現excel單元格中的異常日期顯示右對齊的數據，而正確的數據顯示左對齊的數據。這會影響排序異常的問題。請幫助和謝謝。

NextRow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row + 0 
For Each objFile In objFolder.files 
Sheets("Sheet1").Cells(NextRow, 1).Value = Format(objFile.DateLastModified, "dd/mm/yyyy") 
NextRow = NextRow + 1 
Next objFile 
Sheets("Sheet1").Range("C1").Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlYes 

Excel中：

的Visual Basic：

Answer 1

更換"dd/mm/yyyy"與"mm/dd/yyyy" - VBA內部使用美國格式！

或者，您可以直接存儲日期值而無需轉換。在內部，Excel會將日期字符串轉換回日期編號！ :-)

因此，簡單地使用這一行：

Sheets("Sheet1").Cells(NextRow, 1) = objFile.DateLastModified