Удалить рабочий лист из Access 2010 VBA

Question

У меня есть форма, которая экспортирует и редактирует файлы excel для пользователей. У меня проблема при попытке удалить мой код из существующего листка из моего кода VBA Access 2010.

Мой код:

Private Sub Command0_Click() 

Dim xl As Excel.Application 
Dim wb As Excel.Workbook 
Dim sht As Excel.Worksheet 

Set xl = CreateObject("Excel.Application") 
Set wb = xl.Workbooks.Open("C:\Users\Me\Desktop\Document.xlsx") 

For Each sht In wb.Worksheets 
    If sht.Name = "DeleteSheet" Then 
    wb.Worksheets("DeleteSheet").Delete 
    End If 
Next sht 

wb.Save 
wb.Close 
xl.Quit 

End Sub 

Когда я запускаю код, нет никакой ошибки. Однако лист не удаляется. Я знаю, что sht.Name читает имя листа «DeleteSheet», позволяя запустить оператор if. Таким образом, я считаю, что это сводится к методу сохранения или к этой строке: wb.Worksheets("DeleteSheet").Delete. ТИА!

Answer 1

Вы можете удалить рабочий лист непосредственно, т.е.

Вместо

wb.Worksheets ("DeleteSheet"). Удалить

Использование

sht.Delete

Answer 2

Может вам попробуй что-нибудь подобное, Райан?

Dim xl As Object 
Dim wb As Excel.Workbook 
Dim sht As Excel.Worksheet 

Set xl = CreateObject("Excel.Application") 
Set wb = xl.Workbooks.Open("C:\Users\Me\Desktop\Document.xlsx") 

For Each sht In wb.Worksheets 
    If sht.Name = "DeleteSheet" Then 
    wb.Worksheets("DeleteSheet").Select 
    xl.ActiveSheet.Delete 
    End If 
Next sht 

wb.Save 
wb.Close 
xl.Quit