Çalışma kitaplarını set etme nasıl olmalı?

[hsayar]

..........

           Set Akt_wb = Workbooks(ActiveWorkbook.Name)
Set Akt_s1 = Akt_wb.Sheets("koru01"): Set Akt_s2 = Akt_wb.Sheets("koru02")
Set Akt_s4 = Akt_wb.Sheets("koru03"): Set Akt_s3 = Akt_wb.Sheets("koru04")
Set Akt_s5 = Akt_wb.Sheets("koru05")
'>>>>>D E Ğ İ Ş K E N L E R
Akt_Kit_Ad = ThisWorkbook.Name                                           ' Aktif çalışma kitabının adı
Akt_Dzn_Ad = ThisWorkbook.Path                                           ' Aktif çalışma kitabının dizini
isl_tar = Akt_s1.Range("a1").Value
kay_Yol_ad = ThisWorkbook.Path & "\"                                     ' Dizin yoksa oluşturulacağı yol (path)
Kay_Kit_ad = WorksheetFunction.Text(isl_tar, "mmyyyy") & "_test"  ' Kaydedilecek yeni çalışma kitabının adı
kay_dzn_ad = WorksheetFunction.Text(isl_tar, "yyyy")              ' Kaydedilecek yeni çalışma kitabının dizini
HedefDizin = kay_Yol_ad & kay_dzn_ad
HdfDznDsy = HedefDizin & "\" & Kay_Kit_ad & ".xls"                                    ' Tam Yol İleri, yelkenler Fora
HdfDznDsy_kont = Fs.FileExists(HdfDznDsy)
       [color="red"]Set Ars_wb = Workbooks(Kay_Kit_ad)
       'Bu satır hata veriyor, Değişken adı ile Workbokk nasıl set edilir.?[/color]

 

[Ferhat Pazarçevirdi]

Merhabalar,

Eğer yeni bir çalışma kitabı yaratıp bu kitabı bir değişkene set etmek istiyorsanız

Dim YeniKitap as Workbook
Set YeniKitap=Workbooks.Add

komutunu kullanmalısınız.

Bu anda, bu set edilmiş nesneye bir dosya adı veremezsiniz. Dosya adı, kaydetme ile birlikte gerçekleştir. Ama Değişken tanımı ile geçici olarak (kod yürütüldüğü müddetçe) her türlü işlemi yapabilrsiniz.

 

[hsayar]

Vermiş olduğunuz yöntemi forumda ararken öğrendim istediği
daha evvel oluşturulmuş olan
HedefDizin & "\" & Kay_Kit_ad & ".xls" değişkenlerindeki dosyayı set etmek istiyorum. Yani
c:test\2007\012007.xls adlı Çalışma kitabı
nı set etmek

 

[hsayar]

................