将日期转换为数字

时间:2014-06-03 14:36:20

标签: excel excel-vba vba

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

例如,如果我在单元格中提供20140522,则会打开文件" C:\ Files \ 20140522.csv"。

但是,如果我将其提供为22/05/2014或更普遍的今天日期,而不是以上述格式提供,我如何在vba脚本本身中将其转换为上述格式?这是因为我的所有文件都采用的格式仅为示例。以下是我的宏代码

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

End Sub

2 个答案:

答案 0 :(得分:3)

您可以使用格式:

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

答案 1 :(得分: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