Vb 6.0 ile Excelden başka excel dosyasına sayfa kopyalama sorunu

[sensolum]

Ana.xls dosyasına istediğimiz bir dosyadan (kopyalanan.xls) istediğimiz sayfayı kopyalama
Ana.xls dosyasından fazla olan sayfaları siler, veri çalışma sayfasını ekler.
kodlar excelden çalışıyordu. VB 6.0 yazdığım kodlarda
SecilenDosya = Application.GetOpenFilename("Excel Dosyası (*.xls;*.xlsx), *.xls;*.xlsx")
ve
Kitap.Workbooks(KopyalananKitap).Activate hata veriyor yardımcı olursanız se
dosya ektedir.

Private Sub Command1_Click()

Set Kitap = CreateObject("Excel.application")

KitapYolu = App.Path + "\Ana.xls"
Kitap.Workbooks.Open (KitapYolu)
SayfaSonu = Kitap.Worksheets.Count + 1
SayfaKontrol = 3
'Fazla Sayfaları siler
For SayfaSayisi = 1 To SayfaSonu
SayfaSonu = Kitap.Worksheets.Count
If SayfaSonu > SayfaKontrol Then
If (Kitap.Worksheets(SayfaSayisi).Name = "Sayfa1") Or (Kitap.Worksheets(SayfaSayisi).Name = "Erkek") Or (Kitap.Worksheets(SayfaSayisi).Name = "Kiz") Then
Else

' Application.DisplayAlerts = False
Kitap.Application.DisplayAlerts = False
Kitap.Worksheets(SayfaSayisi).Delete
SayfaSayisi = SayfaSayisi - 1
End If
Else: SayfaSayisi = SayfaSayisi + 1
End If
Next SayfaSayisi
Excel.Application.Quit
SecilenDosya = Application.GetOpenFilename("Excel Dosyası (*.xls;*.xlsx), *.xls;*.xlsx")

VeriSayfasi = InputBox("Veri Sayfasının İsmini Giriniz Örneğin Sayfa1...")
Workbooks.Open (SecilenDosya)

ProgramSayfa = "Sayfa1"
KopyalananSayfa = VeriSayfasi
KopyalananKitap = SecilenDosya
Kitap.Workbooks(KopyalananKitap).Worksheets(KopyalananSayfa).Visible = True
Kitap.Workbooks(KopyalananKitap).Activate
Kitap.Workbooks(KopyalananKitap).Worksheets(KopyalananSayfa).Visible = True
Kitap.Workbooks(KopyalananKitap).Sheets(KopyalananSayfa).Activate
Kitap.Workbooks(KopyalananKitap).Sheets(KopyalananSayfa).Select
Kitap.Workbooks(KopyalananKitap).Sheets(KopyalananSayfa).Copy After:=Workbooks(ProgramKitap).Sheets(ProgramSayfa)
Kitap.Workbooks(ProgramKitap).ActiveSheet.Name = "Veri"

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

 

[Zeki Gürsoy]

Merhaba,

Seçilendosya değişkeninde geçen Application yerine Kitap.GetOpenFilename olarak değiştirin.

 

[sensolum]

ilginiz için teşekkürler
ama bu sefer de
Kitap.Workbooks(KopyalananKitap).Worksheets(KopyalananSayfa).Visible = True hata veriyor

 

[Orion1]

kopyalanansayfa içine değer yok.boş gözüküyor.önceden bu değişkene sayfa adı atamalısınız.

 

[sensolum]

kopyalanansayfa içine değer yok.boş gözüküyor.önceden bu değişkene sayfa adı atamalısınız.

kardeş kodda iki ifade senin dediklerini karşılıyo

VeriSayfasi = InputBox("Veri Sayfasının İsmini Giriniz Örneğin Sayfa1...")
ve
KopyalananSayfa = VeriSayfasi
sorun başka bir şey ama ben çözemedim