- Katılım
- 14 Şubat 2006
- Mesajlar
- 3,426
- Excel Vers. ve Dili
- (Excel 2016 - İngilizce)
- Altın Üyelik Bitiş Tarihi
- 30-11-2022
Merhaba,
Aşağıki kodlar ile tablodaki verileri excele aktarabiliyorum.
Bu verileri tablo yerine oluşturduğum sorgudan nasıl excele aktarabilirim?
Bulduğum çözümlerde bu kodlar hem tablo, hemde sorgu için gösteriyor. Fakat sorgu ismi yazdığımda "Parametre bekleniyor , 9 ... hatası verdi.
Aşağıki kodlar ile tablodaki verileri excele aktarabiliyorum.
Bu verileri tablo yerine oluşturduğum sorgudan nasıl excele aktarabilirim?
Bulduğum çözümlerde bu kodlar hem tablo, hemde sorgu için gösteriyor. Fakat sorgu ismi yazdığımda "Parametre bekleniyor , 9 ... hatası verdi.
Kod:
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim SQLStr, SQLStr1 As String
Dim SQLOrderBy As String
Set db = CurrentDb
SQLStr = "select * from datatable"
Set rs = db.OpenRecordset(SQLStr)
If rs.RecordCount > 0 Then
Dim oApp As New Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Set oBook = oApp.Workbooks.Add
Set oSheet = oBook.Worksheets(1)
sat = 1
rs.MoveFirst
For i = 1 To rs.RecordCount
oSheet.Cells(sat + i, "a").Value = rs.AbsolutePosition + 1
oSheet.Cells(sat + i, "b").Value = rs(0)
oSheet.Cells(sat + i, "c").Value = rs(1)
rs.MoveNext
Next i
Else
MsgBox "Kayıt bulunamadı", vbInformation + vbDefaultButton1 + vbOKOnly, "Bilgi"
End If
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing