VBA：访问.csv的创builddate

我正在使用插件来简化电子表格中可用的原始数据的报告创build。 可用的原始数据是一个.xlsx文件，现在在.csv中可用。

作为跟踪数据来自哪里的一部分我使用以下代码来访问电子表格的创builddate。

Dim ReportBook as Workbook Dim DataBook as Workbook Set ReportBook = Workbooks("Report.xlsx") Set DataBook = Workbooks("Data.csv") With ReportBook.Worksheets("Admin") .Cells(1, 1) = Format(DataBook.BuiltinDocumentProperties("Creation Date"), "dd/mm/yyyy hh:mm") End With 

我已经检查过ReportBook和DataBook是否正确引用了他们想要的文件。

当我试图使用.csv文件作为DataBook我得到了一个自动化错误和未指定的错误。 我可以看到这与DataBook现在是.csv而不是.xlsx有关。 任何想法为什么？

Answer 1

这可能会失败，因为CSV文件不包含相同的元数据作为适当的Excel工作簿。 尝试使用作为Scripting库一部分的FileSystemObject：

http://www.mrexcel.com/forum/excel-questions/73458-read-external-file-properties-date-created-using-visual-basic-applications.html

编辑：

链接中列出的代码版本：

 Sub Test() MsgBox CreationDate(Workbooks("Data.csv").FullName) End Sub Public Function CreationDate(FullPath As String) As Date CreationDate = CreateObject("Scripting.FileSystemObject").GetFile(FullPath).DateCreated End Function