如何解决在Excel中使用VBA为目录名执行Workbook.open时,如何使用通配符?
我正在使用workbooks.open转到目录中的excel文件,该目录的名称会根据修订版本而更改。我将把这个excel工作簿中的某些单元格放入我的活动工作簿中。
我需要转到的当前文件在以下目录中:
d:\masters\777\software\7770123 Rev A\7770123.xlsx
对xlsx文件进行修订时,7770123 Rev A文件夹有时会更改。
当7770123 Rev A更改为7770123 Rev B时,7770123 Rev A文件夹将替换为7770123 Rev B文件夹。
该7770123 Rev A文件夹将在目录中删除。 xlsx文件是7770123 Rev中唯一的文件?文件夹。
这是我为固定目录结构所做的工作。需要知道如何/是否可以使用通配符?
Dim wbkFrom,wbkTo As Workbook
Set wbkTo = ActiveWorkbook
Set wbkFrom = Workbooks.Open("d:\masters\777\software\7770123 Rev A\7770123.xlsx")
wbkFrom.Sheets("Jigs").Range("A1:H500").Copy
wbkTo.Sheets("Jigs").Range("A1").PasteSpecial (xlPasteValues)
解决方法
仅更改文件夹路径,如下所示: 设置wbkFrom = Workbooks.Open(“ d:\ masters \ 777 \ software \ 7770123 Rev”&Sheets(“”)。Range(“ A1”)。value&“ \\ 7770123.xlsx”) 其中Sheets(“”)。Range(“ A1”)。value可以为“ A”或“ B”,或将表单中的任何其他单元格用于此输入
,@Randy Withcomb:您的有效工作簿
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。