将date转换为数字

我写了一个macros，它读取单元格内容，并根据单元格值打开相应的文件。

例如，如果我在一个单元格中提供20140522，它将打开文件“C：\ Files \ 20140522.csv”。

不过，如果我提供的是2014年5月22日或更一般的今天的date，而不是以上述格式提供，那么我怎样才能在vba脚本本身中将它转换成上述格式呢？ 这是因为我所有的文件都只是在示例中显示的格式。 以下是我的macros代码

Sub Open() num=Cells(1,1).Value ActiveWorkbook.Open(FileName:="C:\Files\" & num & ".csv") End Sub 

Answer 1

您可以使用格式：

 num = Format(Cells(1,1).Value, "yyyymmdd") 

Answer 2

考虑：

 Sub dural() Dim d As Date, sDate As String d = Date sDate = CStr(Year(d) & Format(Month(d), "00") & Format(Day(d), "00")) ActiveWorkbook.Open Filename:="C:\Files\" & sDate & ".csv" End Sub