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
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