不兼容

xuxinwen 2006-12-21 01:07:52
Set newxls = CreateObject("Excel.Application")

newxls.Visible = False
newxls.Workbooks.Open filename:=Text1.Text

If (Val(newxls.Application.Version) >= 8) Then
Set newsheet = newxls.ActiveSheet
Else
Set newsheet = newxls
End If
==================================
以上代码在win2000 server上可以,在win2000 professional 下不可以
为何?

...全文
118 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
jam021 2006-12-21
  • 打赏
  • 举报
回复
office版本一样吗?
xuxinwen 2006-12-21
  • 打赏
  • 举报
回复
程序死掉
yangao 2006-12-21
  • 打赏
  • 举报
回复
怎么个不可以法?

2,462

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧