sub
打开其他工作簿()
dim
路径$,
ak
as
workbook
application.screenupdating
=
false
路径
=
thisworkbook.path
set
ak
=
workbooks.open(路径
&
"/bbb.xlsm")
'打开符合要求的文件
sheets("oooo_click()").range("a1")
=
"百度知道"
workbooks("bbb.xlsm").close
savechanges:=true
'关闭bbb并保存
application.screenupdating
=
true
end
sub
这个我以前也遇到过,查了一下结果是不能,因为VBA已经不属于excel范畴了,应该属于VB插件了,而且现在excel开发jar包中已经提供了大量的方法实现比较强大的功能了,只能是重新用java中实现VBA中的功能了。