保存excel文件，在本机上都能调试通过，相同的代码在别的机子上就不能通过！！

lyscser

在本机可能是删除失败了才导致运行成功的，Save是覆盖保存，应该是应用于保存已经打开文件的修改，新存是SaveAs的吧
具体函数参见下面这个（截取一个函数的一部分，注意注释）：

1. 
   
2.         Set fObject = CreateObject("Scripting.FileSystemObject")        
   
3.         If         Not fObject.FileExists(appointedFile) Then
   
4.                   Repor micFail,"参数文件不存在：",appointedFile
   
5.                   Set fObject = Nothing
   
6.         End If
   
7.         
   
8.         If        fObject.FileExists(tmpName) Then
   
9.                   fObject.DeleteFile(tmpName)
   
10.         End If
    
11.         
    
12.         Set ExcelApp = CreateObject("Excel.Application")
    
13.         ExcelApp.Application.Visible = False
    
14.         ExcelApp.DisplayAlerts = False
    
15.         Set newBook = ExcelApp.Workbooks.Open (appointedFile,False,True)--只读模式
    
16.         newBook.Worksheets(appointedSheet).Copy
    
17.         Set tempBook = ExcelApp.ActiveWorkbook        
    
18.         tempBook.SaveAs tmpName,1--保存成xls格式
    
19.         Set tempBook = Nothing
    
20.         ExcelApp.Quit
    
21.         Set ExcelApp = Nothing
    
22.         DataTable.AddSheet newSheet
    
23.         DataTable.ImportSheet tmpName,appointedSheet,newSheet
    
24.         
    
25.         If         fObject.FileExists(tmpName) Then
    
26.                   fObject.DeleteFile(tmpName)
    
27.         End If

复制代码

lyscser

tempBook.SaveAs tmpName,1--保存成xls格式