[Resolvido]Apagar aba da planilha excel pelo access.

Boa tarde, preciso apagar uma aba da planilha Excel através do Access.

Meu código esta assim no Access:

Dim Excel2 As New Excel.Application
With Excel2
.Workbooks.Open Arquivo
.Visible = False
.Sheets("EXTPDT").Select
.ActiveWindow.SelectedSheets.Delete
.DisplayAlerts = False
.SaveWorkspace
.Workbooks.Close
.Quit
End With

Mas por algum motivo não estou conseguindo excluir.

Alguem pode me ajudar?

Att.

Olá;

Código:

Public Sub DeletaAbaExcel()
Dim xlApp As Object
Dim xlBook As Object
Dim Arquivo$

Arquivo = "C:\SeuLivroExcel.xlsx"

Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(Arquivo)

    xlApp.Sheets("EXTPDT").Select
    xlApp.DisplayAlerts = False
    xlApp.ActiveSheet.Delete
    xlApp.DisplayAlerts = True
    xlApp.Range("A1").Select

xlApp.DisplayAlerts = False
xlBook.Save
xlApp.DisplayAlerts = True

xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
End Sub

Funcionou perfeitamente!!!

Muito obrigado JPaulo, você é o cara!


Abraços.
Att.

Fico feliz.

Obrigado pelo retorno o forum agradece.

Veja este tópico se puder ajudar-nos;
https://www.maximoaccess.com/t32025-neste-natal-ajude-nos