如题所述
ActiveWorkbook.Path
当前工作簿的路径
追问这个没什么问题了
d1 = ActiveWorkbook.Path
Set wd2 = workebooks.Open(d1 & "\生产记录")
但是这个没办法执行
报错说是“要求对象”
生产记录后面加个拓展名吧，不知道你的是什么版本的
生产记录.xls 或生产记录.xlsx之类的
温馨提示：答案为网友推荐，仅供参考
