这个是我在office 2000下面的代码,一切顺利
Dim xlApp As Excel.Application
Dim wkbOne As Excel.WorkbookSet xlApp = CreateObject("Excel.Application")
Set wkbOne = xlApp.Workbooks.Open(FileName:="d:\Password.xls")With wkbOne
.SaveAs FileName:="d:\test.xls", password:="1234"
End WithwkbOne.Close savechanges:=TrueSet wkbOne = Nothing
xlApp.Quit
Set xlApp = Nothing
MsgBox "OK"可是到了97下面老是说open方法出错了,想请教一下为什么,很急