第1个回答 2014-04-17
可以
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
具体操作需要看数据而行了本回答被提问者和网友采纳
第2个回答 2020-02-13
只能给你个几个参考,当然还有其他方法,希望能够帮到你
望采纳
getobject函数
本质是打开的,只是看不到窗口
dim
wb
as
workbook
set
wb
=
getobject(具体路径+文件)
with
wb
.............(operation
on
wb)
end
with
wb.close
false
set
wb=nothing
第3个回答 2014-04-17
sheets("sheet3").cells(1,2)
为名字为sheet3表单的第一行,第二列单元格的内容