我编写了一个宏来读取单元格内容并根据单元格值打开相应的文件。
例如,如果我在单元格中提供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
答案 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