potrebujem s worodvskeho userformu otvorit excel a mazat z neho sheety na zaklade podmienky zatial mam daco taketo ale furt daky error
exclfile je adresa suboru a measur system je hladany vyraz v nazve sheetu
Function delSheets(exclfile As String, measur_system As String)

Dim objXL As Object
Set objXL = CreateObject("Excel.Application")
Dim i As Integer

With objXL
.Workbooks.Open (exclfile)

For Each Worksheet In objXL.Workbook.Worksheets
If Worksheet.name <> "!" & "*" Then
Debug.Print Worksheet.name
Else
objXL.Application.DisplayAlerts = False
Debug.Print Worksheet.name
objXL.Application.DisplayAlerts = True
End If
Next
End With
End Function

//autoeditácia príspevku (29 Máj 2013, 10:29)
Toto je posledna verzia tvari sa ze vsetko spravi ale na konci je komplet dokument ako bol

Function delSheets(sFile As String, M_System As String)

Dim i As Integer
Dim xlApp As Object
Dim xlWrkBk As Object

On Error Resume Next
Set xlApp = CreateObject("Excel.Application")
Set xlWrkBk = xlApp.workbooks.Open(sFile)


For i = 1 To xlWrkBk.sheets.Count
If xlWrkBk.sheets(i).name <> M_System Then
xlWrkBk.sheets(i).Select
End If
Debug.Print i & " - " & xlWrkBk.sheets(i).name
Next i

xlApp.Application.DisplayAlerts = False
xlWrkBk.SelectedSheets.delete
xlApp.Application.DisplayAlerts = True
xlWrkBk.Save
xlWrkBk.Close
xlApp.Close
xlApp.Quit

End Function