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中的功能了。Sub Test1()m = "铅模薯3*4*5"槐者码租
s = Evaluate(m)
Debug.Print m &"="
Debug.Print s
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)