请问老师们，文件路径用变量表示怎么写

王正林

If Len(Month(Date)) = 1 And Len(Day(Date)) = 1 Then
    x = Right(Year(Date), 2) & "0" & Month(Date) & "0" & Day(Date)
        ElseIf Len(Month(Date)) = 1 And Len(Day(Date)) = 2 Then
            x = Right(Year(Date), 2) & "0" & Month(Date) & Day(Date)
                ElseIf Len(Month(Date)) = 2 And Len(Day(Date)) = 1 Then
                    x = Right(Year(Date), 2) & Month(Date) & "0" & Day(Date)
                        ElseIf Len(Month(Date)) = 2 And Len(Day(Date)) = 2 Then
                            x = Right(Year(Date), 2) & Month(Date) & Day(Date)

End If
Application.EnableEvents = False
y = "C:\Users\Desktop\2019\abc" & x & "\.xlsx"

Set wb = GetObject(y)
提示自动化操作时文件名或类名未找到

liulang0808

楼主的abc是文件夹的话
y = "C:\Users\Desktop\2019\abc\" & x & "\.xlsx"
如果不是，就看看x变量对应的字符结合前面的文件是否存在吧

王正林

Set wb = GetObject("C:\Users\Desktop\2019\abc20191011.xlsx")直接用这句是没问题的

liulang0808

王正林 发表于 2019-10-11 20:10
Set wb = GetObject("C:%users\Desktop\2019\abc20191011.xlsx")直接用这句是没问题的

所以检查下在路径部分x变量是什么值

王正林

20191011啊

王正林

谢谢！我取到的是19

大灰狼1976

.xlsx前面那个反斜杠是不需要的。
另外，使用format一句话就能解决日期格式问题，不需要这么多判断。
还有，用LEN来判断数字看着别扭。