başka bi dosyadan bilgi almak

[bekotime]

dostlar benim sorunum hakkında çok yazı var ama istediğimi bulamadım.
Benim elimde 500 tane doldurulmuş kişi bilgi formu var bunlarda anket şeklinde karışık düzende kişi bilgileri var. ve ben bunları birleştirmek ve normal bir veri tabanı dosyasına çevirmek istiyorum. Yani formlardaki aynı değerdeki (ad, soyad, adre her formda var)yaklaşık 35 kalem bilgi sütunbaşlıkları olcak ve 500 kişinin bilgisi altta sıralacak. Biliyom çok şey istiyom ama yapmam gerek. çok azda olsa makro yazma döngü kurma biliyom. Dosyaların adlarını a (1).xls, a (2).xls, a (3).xls gibi devam eden yaptım ama başka sheet tamamda dosyadan alacak döngüyü kuramadım, başka dosyanın adresni nasıl yazarım. Benim döngümün ortası şöyle
dosya= 1 to 30
ad=file(a ("dosya").xls).sheets(1).Cells(1, 1)
Ad = Sheets(1).Cells(1, 1)
ama tabiki olmadı yardım eden olursa çok mutlu olurum
iyi çalışmalar

 

[bekotime]

arkadaşlar olayı biraz kurtardım son nokta adresin içide değişkeni nasıl kullancam
alttaki kodda dosya değikenini adresin içine yazdım tabiki yine yemedi

Sub Autpen()
For dosya = 1 To 5


MyWB = "C:\Documents and Settings\server\Desktop\forms\a (dosya).xls"
Set NewXL = New Excel.Application
NewXL.Workbooks.Open MyWB
ad = NewXL.Workbooks(Dir(MyWB)).Sheets(1).Range("B9")
NewXL.Workbooks(Dir(MyWB)).Close SaveChanges:=True
NewXL.Quit
Set NewXL = Nothing
Sheets(1).Range("A5") = ad
Next

End Sub

 

[ALPEN]

Sayın bekotime,

"ama tabiki olmadı", "ama tabiki yine yemedi" gibi şahsınıza münhasır hata kodları yerine programın verdiği hata kodunu, hangi satırda hata verdiğini yazarsanız çok daha hızlı yanıt alırsınız.

Size cevap vermek isteyecek arkadaş şimdiki durumda hatanın nerede olduğunu anlamak için yukarıdaki dosyaları baştan oluşturmak zorunda kalacak.

Açıkçası böyle bir şey için ben uğraşmam.

 

[Haluk]

MyWB = "C:\Documents and Settings\server\Desktop\forms\a (" & dosya & ").xls"

 

[bekotime]

Teşekürler