Veri aktarımı ama her ay dosya ismi değişiyor ?

[gcanlar2012]

Herkese merhabalar arkadaşlar.
benim sorunum şu
(daha olayın mantığını kuramdığım için örnek dosyam yok)
bir excel dosyamız var(1).bu excel dosyasına başka bir excel dosyasında(2) bir veri alacam şimdi 2 nolu dosya sabit adı mizan.xls 1 nolu dosyanın adı her ay değişecek ocak.xls şubat xls şeklinde.Mesela ocak.xls tamam ben bu dsoyayı kopyalayıp adını şubat yapacam yapacam ama içindeki makro ocak.xls yi arayacak.Bilmiyorum anlatabildim mi buna bir çözüm önerebilirmisiniz.mesela ocak dosyasının içine herhangi bir hücreye şubat yazsam (yada dosya adını) bunu makroda nasıl yerleştiririm.

Yardımlarınızı bekliyorum şimdiden teşekkür ederim.

 

[alpi]

merhaba

Dosyaya başvururken dosya adını değilde şu şekilde yazabilirsiniz

ocak ve şubat adlı dosyanızın c klasöründe olduğunu varsayarsak

önce istediğiniz bir yere textbox kontrolü koyun ve aşağıdaki kodları yazın

workbook.open "c:\" & textbox1 & ".xls"

bu kod c klasöründeki textbox1 kutusunda ismi yazılı excel dosyasını açacaktır

 

[gcanlar2012]

Teşekkür ederim .deneyelim bakalım.
kolay gelsin

 

[gcanlar2012]

Windows("burası değişken olabilirmi?").Activate

Herkese merhabalar ,

Sn. alpi bir cevap yazmışsınız ama benim isteğime cevap olmuyor çünkü,

Benim açık olan ocak(değişken).xls dosyam var.yani benim tekrardan workbook.open "c:\" & textbox1 & ".xls" yazmam yanlış olur gibi geliyor bana.Ben bu dosya içinde c:\mizan.xls açıp içinden veri alıp açık olan ocak.xls ye yapıştırıyorum.bu bağlamda Windows("ocak.xls").Activate bu ocak.xls değişken yapmak.Sebebide ben kendim kullansam açarım vbe değiştiririm sorun olmaz ama bana bağlı kalmasınlar istiyorum.
Yardımlarınız için teşekkür ederim.


Saygılar.

 

[gcanlar2012]

Bir fikri olan yokmu ?
:? :? :?
Yoksa ben düzgün anlatamadım mı ?

Lütfen Olur yada olmaz deyin.
:dua: :dua: :dua:
Saygılar,
:yardim: :yardim: :yardim:

 

[alpi]

dim AyAdı(1 TO 12) as string

AyAdı(1)="OCAK"
AyAdı(2)="ÞUBAT"
AyAdı(3)="MART"
AyAdı(4)..... Bu şekilde AyAdı değişkeninin tamamını tanımlayın

İçinde bulunduğumuz ay adlı dosyayı aktif yapmak için

Windows(AyAdı(month(now)) & ".xls").Activate

Hayırlı çalışmalarınızda başarılar. :hey: