[已解决]谢谢extyg老师和hwc2ycy老师。如何确定动态路径

lhj323323 · 发表于 2012-10-21 11:35

本帖最后由 lhj323323 于 2012-10-21 20:26 编辑

老师：
需求如题，如何根据今天的日期，来找寻以该日期命名的文件夹路径？
同时，如果今天是周六或周日，则提取周五的日期命名的文件夹

动态路径.rar (4.73 KB, 下载次数: 16)

hwc2ycy · 发表于 2012-10-21 11:42

本帖最后由 hwc2ycy 于 2012-10-21 11:43 编辑

MyPath = ThisWorkbook.Path & "\数据源" & format(date,"yyyymmdd")

复制代码

hwc2ycy · 发表于 2012-10-21 11:44

刚上面多打了个m，这是我用msgbox 显示的mypath

hwc2ycy · 发表于 2012-10-21 11:46

这样查，就会按照你的日期来找的。
MyName = Dir(MyPath & "\" & "*.xls")

extyg · 发表于 2012-10-21 12:01

Function myDirectory(dDate As Date) As String
Select Case Weekday(dDate, 2)
      Case 6
         myDirectory = Format(dDate - 1, "yyyymmdd")
      Case 7
         myDirectory = Format(dDate - 2, "yyyymmdd")
      Case Else
         myDirectory = Format(dDate, "yyyymmdd")
End Select
   myDirectory = ThisWorkbook.Path & "\数据源\" & myDirectory
End Function
Sub test()
MsgBox myDirectory(Date)
End Sub

lhj323323 · 发表于 2012-10-21 19:13

本帖最后由 lhj323323 于 2012-10-21 19:19 编辑

extyg 发表于 2012-10-21 12:01
Function myDirectory(dDate As Date) As String
Select Case Weekday(dDate, 2)
Case 6

老师：
按您的方法，MSGBOX把周五的日期显示为18991229，而不是20121018
dDate显示为0:00:00

		自动登录	找回密码
密码			注册

[已解决]谢谢extyg老师和hwc2ycy老师。如何确定动态路径

点评