请高手指教

wenxueshan

  因工作的原因需要做一个报表，需要提取当月、上月和上年同期的数据，以前    Set wb = Workbooks.Open(具体工作表名称)正常，因工作表名称有时不规则，就想用通配符处理，当运行到    Set wb = Workbooks.Open(Filename)就报错，如何处理，请高手指教。万分感谢。

dim ...........
nian = Val(Left(yf, 4))
   yue = Val(Right(yf, 2))
   dy = nian & "年" & yue & "月"   
   If yue <> 1 Then
    sy = nian & "年" & yue - 1 & "月"
   Else
    sy = nian - 1 & "年" & "12月"
   End If
   sn = nian - 1 & "年" & yue & "月"

    mypath = ThisWorkbook.Path & "\数据信息\"

   Filename = Dir(mypath & dy & "*.xls*")

    Set wb = Workbooks.Open(Filename)

Jaofuan

1. Filename = Dir(mypath & "*" & dy & "*.xls*")

复制代码

试下这样呢

wenxueshan

Jaofuan 发表于 2023-3-9 10:30
试下这样呢

试了一下，还是不行，提示“运行时错误1004，方法 open 作用对象“workbooks 失败””

bqwd36

改成getobject(filename)行吗？

gbgbxgb

猜测应该是漏了工作簿路径了，因为Dir得来的只是文件名称，不含路径，即FileName不是工作簿的FullName（顺带说下，什么变量名不好取，非得取个敏感的变量名FileName）：
Set wb = Workbooks.Open(myPath & Filename)

wenxueshan

gbgbxgb 发表于 2023-3-9 15:33
猜测应该是漏了工作簿路径了，因为Dir得来的只是文件名称，不含路径，即FileName不是工作簿的FullName（顺 ...

非常感谢老师的指导，学到不少东西。非常感谢