请问工作表有没有创建日期这个属性

霍泳康

请问工作表有没有创建日期这个属性，我想要在vba中调用到这个属性。

sobili

工作表创建日期？楼主是想要文件的吧？
看下这个代码可行：

1. Sub ShowFileInfo()
   
2. '
   
3. '作者: 第21支香烟
   
4. '链接：https://www.zhihu.com/question/397134712/answer/1244062860
   
5. '来源: 知乎
   
6. '著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。
   
7. '
   
8. Dim fs, fn, f, cd
   
9. Set fs = CreateObject("Scripting.FileSystemObject")
   
10. 
    
11. '获取当前工作薄的路径和文件名
    
12. fn = ThisWorkbook.Path
    
13. If Right(fn, 1) <> "" Then fn = fn + ""
    
14. fn = fn + ThisWorkbook.Name
    
15. 
    
16. '获取当前工作薄创建时间
    
17. Set f = fs.GetFile(fn)
    
18. cd = "Created: " & f.DateCreated
    
19. MsgBox cd
    
20. 
    
21. End Sub
    

复制代码

这是我从网上下的，希望对你有帮助。 提取文件创建日期.rar (13.2 KB, 下载次数: 3)

2022-1-15 22:14 上传

点击文件名下载附件