Question

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

例如，如果我在单元格中提供20140522，则会打开文件＆＃34; C：\ Files \ 20140522.csv＆＃34;。

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

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

将日期转换为数字

2 个答案: