kodla ilgili yardım

[MURATT]

Merhaba aşağıdaki kodu modülde çalıştırıp "Tablo" daki satırları "to" tablosunda arayarak excele çıkmaya çalışıyorum.Benim sorunum şu an sadece tek bir liste çıkmakta. c:\liste1.xls


Tablo'daki bütün listeleri ayrı isimlerde excele nasıl çıkabilirim?
Yani sırano ya bakarak 1.xls , 2.xls 3. xls gibi

Sonuçta bir loop döngüsü var fakat sanıyorum şuraya

"INTO [Sheet1] IN '' [Excel 5.0;HDR=YES;IMEX=2;DATABASE=C:\liste1.xls;] " & _

doğru şeyi yazamadığım için sadece c:\liste1.xls yi oluşturup bırakıyor.


Kod bu gönderdiğim mdb de mevcut
teşekkürler saygılar...


Option Compare Database
Sub yaz()

On Error Resume Next
DoCmd.SetWarnings False

Dim strsql As String

Set db = CurrentDb()
Set ara = db.OpenRecordset("TO")
Set TABLO = db.OpenRecordset("TABLO", dbOpenDynaset)

Do While Not ara.EOF
With ara
strsql = "(" & "SELECT TABLO.* " & _
"INTO [Sheet1] IN '' [Excel 5.0;HDR=YES;IMEX=2;DATABASE=C:\liste1.xls;] " & _
"FROM TABLO " & _
"WHERE [sıra no]='" & ara![sıra] & "'"

DoCmd.RunSQL strsql

.MoveNext
End With
Loop
End Sub

 

[MURATT]

yardımcı olabilirmisiniz?

 

[Taruz]

Merhaba..

Modulü aşağıdaki gibi değiştirin.. Ben 4 adet listeye göre hazırladım.. Dilerseniz siz eksiltir veya çoğaltabilirsiniz.. Kod kümesini çoğaltmanın yanında, sıra numarasına göre liste oluşturmadaki püf noktası .MoveNext

Sub yaz()
On Error Resume Next
DoCmd.SetWarnings False
Dim strsql As String
Set db = CurrentDb()
Set ara = db.OpenRecordset("TO")
Set TABLO = db.OpenRecordset("TABLO", dbOpenDynaset)
Do While Not ara.EOF
With ara
strsql = "(" & "SELECT TABLO.* " & _
"INTO [GiTarBe] IN '' [Excel 5.0;HDR=YES;IMEX=2;DATABASE=C:\örnek 1.xls;] " & _
"FROM TABLO " & _
"WHERE [sıra no]='" & ara![sıra] & "';)"
DoCmd.RunSQL strsql
.MoveNext
strsql = "(" & "SELECT TABLO.* " & _
"INTO [GiTarBe] IN '' [Excel 5.0;HDR=YES;IMEX=2;DATABASE=C:\örnek 2.xls;] " & _
"FROM TABLO " & _
"WHERE [sıra no]='" & ara![sıra] & "';)"
DoCmd.RunSQL strsql
.MoveNext
strsql = "(" & "SELECT TABLO.* " & _
"INTO [GiTarBe] IN '' [Excel 5.0;HDR=YES;IMEX=2;DATABASE=C:\örnek 3.xls;] " & _
"FROM TABLO " & _
"WHERE [sıra no]='" & ara![sıra] & "';)"
DoCmd.RunSQL strsql
.MoveNext
strsql = "(" & "SELECT TABLO.* " & _
"INTO [GiTarBe] IN '' [Excel 5.0;HDR=YES;IMEX=2;DATABASE=C:\örnek 4.xls;] " & _
"FROM TABLO " & _
"WHERE [sıra no]='" & ara![sıra] & "';)"
DoCmd.RunSQL strsql
.MoveNext
End With
Loop
End Sub

 

[MURATT]

öncelikle ilginiz için teşekkürler,

Benim esasında amacım excel dosyasının ismini
(DATABASE=C:\örnek 1.xls)
her sıra nosu için tek tek yazmamak.Çok büyük bir tabloda örneğin sıra no 100 kişiyse bu kodu 100 kez yazmam gerekecek.Excele çıkacak ismi tek kodla sıra no dan alsın şeklinde...

 

[MURATT]

öncelikle ilginiz için teşekkürler,

Benim esasında amacım excel dosyasının ismini
(DATABASE=C:\örnek 1.xls)
her sıra nosu için tek tek yazmamak.Çok büyük bir tabloda örneğin sıra no 100 kişiyse bu kodu 100 kez yazmam gerekecek.Excele çıkacak ismi tek kodla sıra no dan alsın şeklinde...

bu konu hakkında yorumlarınızı alabilirmiyim?

 

[MURATT]

merhaba yukarıdaki konu ile ilgili yorumlarınız varmı acaba?

 

[MURATT]

yardım lütfen?