发布网友
共3个回答
热心网友
可以
dim wb as workbook , a&
set wb = getobject("文件的全部路径")
with wb
for a = 1 to wb.sheets.count
if sheets(a).name = " 4月份" then
.sheets(1).range().copy thisworkbook
activesheets.name = " 名称"
```
```
end with
具体操作需要看数据而行了
热心网友
只能给你个几个参考,当然还有其他方法,希望能够帮到你
望采纳
getobject函数
本质是打开的,只是看不到窗口
dim
wb
as
workbook
set
wb
=
getobject(具体路径+文件)
with
wb
.............(operation
on
wb)
end
with
wb.close
false
set
wb=nothing
热心网友
sheets("sheet3").cells(1,2)
为名字为sheet3表单的第一行,第二列单元格的内容