Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Jun 20th, 2012  |  syntax: None  |  size: 0.77 KB  |  hits: 14  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. Set objWorkbook = WScript.GetObject("d:\tmp\sample.xls")
  2. Set objApp = objWorkbook.Application
  3. sheetName = "Sheet1"
  4. objApp.DisplayAlerts = False
  5.  
  6. count = objWorkbook.Worksheets.Count
  7. for i=count to 1 step -1
  8.   if objWorkbook.Worksheets(i).Name <> sheetName then
  9.     objWorkbook.Worksheets(i).Select
  10.     objWorkbook.Worksheets(i).Delete
  11.   else
  12.     msgbox "Don't kill me"
  13.   end if
  14. next
  15.  
  16. msgbox "Done."
  17.  
  18. objWorkbook.Worksheets(sheetName).Select
  19. objWorkbook.Worksheets(sheetName).Visible= -1 'xlSheetVisible
  20.  
  21. Set app = objWorkbook.Application
  22. app.Windows(1).Visible=True
  23.  
  24. msgbox cstr( objWorkbook.Worksheets.Count )
  25. ' It does saved.
  26. 'objWorkbook.SaveAs "d:\tmp\output.csv", 6
  27. objWorkbook.SaveAs "d:\tmp\output.xls", -4143 ' save as normal
  28.  
  29. objWorkbook.Close
  30. Set objWorkbook = Nothing
  31. objApp.Quit
create a new version of this paste RAW Paste Data