kapalı olan dosyaya sayfa eklemek veya silmek

[fmt1976]

Selam excel.web.tr ustaları
benim bir soruma iki cevap vermiş olacaksınız. Sorum şu Kapalı olan bir excel dosyasından nasıl sayfa sileriz ve nasıl sayfa ekleriz.

 

[ersoyalan]

C sürücüsündeki Deneme klasöründeki kapalı deneme çalışma kitabının deneme1,deneme2,deneme3,deneme4 sayfalarını siler.


Sub SayfaSil()
Dim silinecek()
Application.ScreenUpdating = False
silinecek = Array("deneme1", "deneme2", "deneme3", "deneme4")
Set xlBook = Workbooks.Open("C:\deneme\deneme.xls")
For Each sira In silinecek
For Each sayfa In xlBook.Worksheets
If sira = sayfa.Name Then
Application.DisplayAlerts = False
sayfa.Delete
Application.DisplayAlerts = True
End If
Next
Next
xlBook.Save
xlBook.Close
Application.ScreenUpdating = True
Set xlBook = Nothing
Msgbox "Bitti"
End Sub

 

[fmt1976]

peki hocam sayfa nasıl eklenir

 

[Zeki Gürsoy]

kapalı dosyada sheet açma

Silmek içinse,

drop table sheet_adı

 

[fmt1976]

hocam sanırım yanlış sordum kapalı olan excel dosyasına açık olan excel dosyasındaki aktif sayfayı nasıl kopyalarız.