新建工作簿,创建日期请教

少如

我刚刚新建了一个工作表, 看下属性, 创建日期竟然是1996-12-17
这是怎么回事?  如何更正为今天的日期呀?
谢谢!

少如

请各位路过的老师教教我吧,
谢谢!

闻启学

少如 发表于 2014-9-4 10:38
请各位路过的老师教教我吧,
谢谢!

检查一下自己系统日期是否是这个

如果是的 直接在系统日期修改

这个文件就删除吧 应该是无数据的

dqhtju

从网上找一个小软件，修改创建日期的软件。
或者自己用VBA写一个代码。

lfspecter

1. Option Explicit
   
2. Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
   
3. Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
   
4. Declare Function SetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FileTime, lpLastAccessTime As FileTime, lpLastWriteTime As FileTime) As Long
   
5. Declare Function SystemTimeToFileTime Lib "kernel32" (lpSystemTime As SYSTEMTIME, lpFileTime As FileTime) As Long
   
6. Type SYSTEMTIME
   
7.   wYear As Integer
   
8.   wMonth As Integer
   
9.   wDayOfWeek As Integer
   
10.   wDay As Integer
    
11.   wHour As Integer
    
12.   wMinute As Integer
    
13.   wSecond As Integer
    
14.   wMilliseconds As Integer
    
15. End Type
    
16. Type FileTime
    
17.   dwLowDateTime As Long
    
18.   dwHighDateTime As Long
    
19. End Type
    
20. Type OFSTRUCT
    
21.   cBytes As Byte
    
22.   fFixedDisk As Byte
    
23.   nErrCode As Integer
    
24.   Reserved1 As Integer
    
25.   Reserved2 As Integer
    
26.   szPathName(128) As Byte
    
27. End Type
    
28. '***************************************************************************************
    
29. '功能：修改文件时间
    
30. '参数：fnm 文本型 文件的完整路径及名称
    
31. '      crtt/mdft/acct 分别为创建时间/修改时间/访问时间 日期型 可选（不选默认为不修改）
    
32. '说明：修改成功返回0，失败返回非0。
    
33. '      注意，本函数不判断文件的只读特性，如文件是只读的，不修改，返回0。
    
34. '***************************************************************************************
    
35. Function ModifyFileTime(ByVal fnm As String, Optional ByVal crtt As Date, Optional ByVal mdft As Date, Optional ByVal acct As Date) As Boolean
    
36.   On Error Resume Next
    
37.   Dim fhd&
    
38.   Dim ofs As OFSTRUCT
    
39.   Dim st1 As SYSTEMTIME, st2 As SYSTEMTIME, st3 As SYSTEMTIME
    
40.   Dim ft1 As FileTime, ft2 As FileTime, ft3 As FileTime
    
41.   If Dir(fnm) = "" Then
    
42.     ModifyFileTime = 1
    
43.     Exit Function
    
44.   End If
    
45.   fhd = OpenFile(fnm, ofs, 2)
    
46.   If crtt <> TimeValue("0:00:00") Then
    
47.     With st1
    
48.       crtt = crtt - TimeSerial(8, 0, 0)
    
49.       .wYear = Year(crtt)
    
50.       .wMonth = Month(crtt)
    
51.       .wDay = Day(crtt)
    
52.       .wHour = Hour(crtt)
    
53.       .wMinute = Minute(crtt)
    
54.       .wSecond = Second(crtt)
    
55.     End With
    
56.     SystemTimeToFileTime st1, ft1
    
57.   End If
    
58.   If mdft <> TimeValue("0:00:00") Then
    
59.     With st2
    
60.       mdft = mdft - TimeSerial(8, 0, 0)
    
61.       .wYear = Year(mdft)
    
62.       .wMonth = Month(mdft)
    
63.       .wDay = Day(mdft)
    
64.       .wHour = Hour(mdft)
    
65.       .wMinute = Minute(mdft)
    
66.       .wSecond = Second(mdft)
    
67.     End With
    
68.     SystemTimeToFileTime st2, ft2
    
69.   End If
    
70.   If acct <> TimeValue("0:00:00") Then
    
71.     With st3
    
72.       acct = acct - TimeSerial(8, 0, 0)
    
73.       .wYear = Year(acct)
    
74.       .wMonth = Month(acct)
    
75.       .wDay = Day(acct)
    
76.       .wHour = Hour(acct)
    
77.       .wMinute = Minute(acct)
    
78.       .wSecond = Second(acct)
    
79.     End With
    
80.     SystemTimeToFileTime st3, ft3
    
81.   End If
    
82.   SetFileTime fhd, ft1, ft2, ft3
    
83.   CloseHandle (fhd)
    
84. ext:
    
85.   ModifyFileTime = Err.Number > 0
    
86.   Err.Clear
    
87. End Function
    
88. Sub aTest()
    
89.    ModifyFileTime "d:\ls.txt", Now
    
90. End Sub
    

复制代码

lfspecter

http://club.excelhome.net/thread-171227-2-1.html