DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Function fnTabletoExcel()
Dim xlApp As New Excel.Application
'Dim xlApp As Object
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet
Dim Name As String
Name = CurrentProject.Path & "\sablon.xls"
Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open Name
xlApp.Visible = True
Dim rec As Recordset, db As Database, i%
Dim looper As Integer
Dim RowCellPos As Integer
Dim ColCellPosNum As Integer
Dim ColCellPosText As String
Dim OrigCell As String
Dim ColPos As String
Dim ColPos2 As String
Dim colpos3 As String
Dim PastePos As String
Dim testcellref As String
Dim intCounter As Integer
Set db = CurrentDb
Set rec = db.OpenRecordset("beep")
If rec.EOF Then rec.Close: Exit Function
rec.MoveLast: rec.MoveFirst
Set xlWB = xlApp.ActiveWorkbook
xlWB.Sheets("Sayfa1").Activate
Set xlWS = xlWB.ActiveSheet
For i = 0 To (rec.Fields.Count - 1)
xlWS.Cells(4, (i + 1)) = rec(i).Name '8(1) sekizinci satır,3(1) c sütunu başlığın yeri
Next i
rec.MoveFirst
For i = 2 To rec.RecordCount + 1
For looper = 0 To (rec.Fields.Count - 1)
xlWS.Cells(i + 3, (looper + 1)) = rec(looper)
Next looper
rec.MoveNext
Next i
End Function