Bilgisayardaki Excel Sayfalarını Başka Bir Dosyaya Nasıl Aldırabilirim.

[ahmed_ummu]

Merhaba arkadaşlar.

Aşağıdaki kod ile üzerinde çalıştığım dosyadan bazı sayfaları bilgisayara kaydediyorum. Bazı durumlarda bu sayfaları tekrar dosyama aldırmam gerekiyor. Bu sayfaları dosyadaki mevcut sayfaların yerine nasıl aldırabilirim. Dosyadaki sayfa isimleri ile aldıracağım sayfa isimleri aynı. Dosyadaki sayfayı silip yerine aldırdığım sayfaları getirecek.

Bide sadece aktisa sayfayı nasıl kaydedebilirim. Thisworkbook.Save ile tüm sayfaları kaydettiği için uzun sürüyor. Sadece değişiklik yapılan sayfayı yani aktif sayfayı nasıl kaydederim.

Sheets("Veri").Save
Activesheet.Save Gibi bunlarda hata veriyor.

Yardımcı olursanız sevinirim.

Set fso = CreateObject("scripting.filesystemobject")
Set wbmevcut = ActiveWorkbook
Sheets(Array("PA", "PA_EK", "LÜZUMBELGESİ", "MKTT")).Copy
Set wbkopya = ActiveWorkbook

yol = Environ("USERPROFILE") & "\Desktop\SATINALMA"
If Not fso.FileExists(yol) Then
On Error Resume Next
MkDir (yol)
On Error GoTo 0
End If

isim = Sheets("MKTT").Range("b5").Value & " " & Sheets("MKTT").Range("b6").Value & " " & Sheets("MKTT").Range("b7").Value & " " & Sheets("MKTT").Range("b8").Value

Application.DisplayAlerts = False
wbkopya.SaveAs yol & "\" & isim & ".xls", FileFormat:=56
Application.DisplayAlerts = True
wbkopya.Close