excel.save造成的问题

Question

代码如下：
dim xlbook as excel.workbook
dim xlsheet as excel.workbookset xlbook = getobject("c:\1.xls")
set xlsheet = xlbook.worksheets(1)xlsheet.save
xlbook.close运行完该段代码后，c:\1.xls再也打不开了，而且重启后也无法打开，这是为何？
xlsheet.save 如果跳过该句的话，就没有这种问题。谢谢大家了～

Answer 1

set xlsheet = xlbook.worksheets(1) '这句话是错误的，你怎么能运行？

Answer 2

不好意思，写错了应该是dim xlsheet as excel.worksheet

Answer 3

试试看 xlsheet.saveas 文件名

Answer 4

Dim exl As New Excel.Application
Dim wbook As Object
exl.SheetsInNewWorkbook = 1
Set wbook = exl.Workbooks.Open("c:\Test.xls")
......exl.DisplayAlerts = False
'exl.ActiveWorkbook.SaveAs "D;\test.xls"
exl.ActiveWorkbook.SaveAs