怎么把当前的sheet 保持为excle

FLY000

Dim src,srcExcel
Set src=CreateObject("Excel.Application")
src.visible=false
Set srcExcel=src.workbooks.open(srcExcelPath)
.....
sheetname=srcExcel.worksheets(srcsheet).name
savePath="E:\CompareExcel\Results1\" & sheetname & ".xls"
src.ActiveWorkbook.SaveAs   savePath

这个会把src所有的sheet都保持为excle，我只想保存当前activate状态的sheet，怎么办？

intothestorm

code comes from CodeSamplesPlus folder.

1. ret = RemoveWorksheet(src, "Book1", "Sheet2")
   
2. ret = RemoveWorksheet(src, "Book1", "Sheet3")
   
3. 
   
4. 'The RemoveWorksheet method removes a worksheet from a workbook
   
5. 'ExcelApp - the excel application which is the worksheet's parent
   
6. 'workbookIdentifier - the worksheet's parent workbook identifier
   
7. 'worksheetIdentifier - the worksheet's identifier
   
8. Function RemoveWorksheet(ExcelApp, workbookIdentifier, worksheetIdentifier) 'As String
   
9.     Dim workbook 'As Excel.workbook
   
10.     Dim worksheet 'As Excel.worksheet
    
11.     On Error Resume Next
    
12.     Err = 0
    
13.     Set workbook = ExcelApp.Workbooks(workbookIdentifier)
    
14.     If Err <> 0 Then
    
15.         RemoveWorksheet = "Bad Workbook Identifier"
    
16.         Exit Function
    
17.     End If
    
18.     Set worksheet = workbook.Sheets(worksheetIdentifier)
    
19.     If Err <> 0 Then
    
20.         RemoveWorksheet = "Bad Worksheet Identifier"
    
21.         Exit Function
    
22.     End If
    
23.     worksheet.Delete
    
24.     RemoveWorksheet = "OK"
    
25. End Function

复制代码