不兼容
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 下不可以
为何?