Kapalı Dosyadan Sayfa Silmek

[bluefalcon]

Arkadaşlar merhaba,

Nasıl olsa yaparım diyerek sona bıraktığım ve son rotuşları yaparken takıldığım bir noktada desteğinizi rica ediyorum. Elimde ekteki dosya var ve bu dosya içerisine kapalı haldeyken yine kapalı olan farklı dosyadan sayfa kopyalanıyor ve ismi "Filo" olarak atanıyor. Kapalı vaziyette işlemler bitince "Filo" isimli bu dosyanın silinmesi gerekiyor. Aşağıdaki kod satırlarını kullanarak işlemi yapmaya çalıştım ve hatta fonksiyon oluşturdum (iki tane alt sayfa olmasına rağmen) ama başarılı olamadım. Yardımcı olabilir misiniz ben bu dosyayı nasıl sildirebilirim?

Sub Workatclose()
Dim ATS As New Excel.Application
Dim nwb As New Excel.Workbook
Application.DisplayAlerts = False
yenidosya = "06-Haziran_2019"
konum = "K:\MesaiDisi\Lists"

dosya = yenidosya & ".xlsx"

Set nwb = ATS.Workbooks.Open(konum & "\" & dosya)

nwb.Sheets("Filo").Delete

Application.DisplayAlerts = True

End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu kullanın.

Sub Workatclose()
    Dim nwb As Excel.Workbook
    Dim yenidosya As String
    Dim konum As String
    Dim dosya As String
    Application.DisplayAlerts = False
    yenidosya = "06-Haziran_2019"
    konum = "K:\MesaiDisi\Lists"
    dosya = yenidosya & ".xlsx"
    Set nwb = Workbooks.Open(konum & "\" & dosya)
    nwb.Sheets("Filo").Delete
    nwb.Close True
    Application.DisplayAlerts = True
End Sub

 

[bluefalcon]

Sayın dalgalikur desteğiniz için teşekkür ederim. Kod çalıştı ve ihtiyacımı karşılıyor. Merak işte sormak istedim. Dosyayı açmadan sildirebilir miydik? ADO mu kullanmak lazım bunun için?

 

[Haluk]

.............
.... Merak işte sormak istedim. Dosyayı açmadan sildirebilir miydik? ADO mu kullanmak lazım bunun için?

ADO ile Excel dosyasından bir sayfayı silemezsiniz.

.

 

[bluefalcon]

Teşekkür ederim Haluk Bey.