AccessTr.neT
Acsess Excel - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Acsess Excel (/konu-acsess-excel.html)

Sayfalar: 1 2


Acsess Excel - sedat76 - 15/02/2013

Aşağıdaki kot vb'deki verileri excele atıyor ama sorunum şu attığım veriler örn : Tarihi sayı olarak atıyor excele tarih olarak atmıyor. Bir bilginiz varmı ?


On Error Resume Next
Dim I As Integer

If Adodc10.Recordset.RecordCount = 0 Then
MsgBox "KAYIT YOK"
Exit Sub
End If
Dim ExcelNesne As Object
Set ExcelNesne = CreateObject("Excel.SHEET")
ExcelNesne.Application.Visible = True



ExcelNesne.Application.Cells(1, 1).Font.Size = 11
ExcelNesne.Application.Cells(1, 1).Font.Bold = True
ExcelNesne.Application.Cells(1, 1).Font.Underline = True

ExcelNesne.Application.Cells(1, 1).Font.Color = vbBlue
ExcelNesne.Application.Cells(1, 1).ColumnWidth = 40
ExcelNesne.Application.Cells(1, 1).Value = "REQUEST"

ExcelNesne.Application.Cells(1, 1).Font.Size = 11
ExcelNesne.Application.Cells(1, 1).Font.Bold = True
ExcelNesne.Application.Cells(1, 1).Font.Underline = True

ExcelNesne.Application.Cells(2, 1).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 1).ColumnWidth = 15

ExcelNesne.Application.Cells(2, 1).Value = "TALEP NO"



ExcelNesne.Application.Cells(2, 2).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 2).ColumnWidth = 16
ExcelNesne.Application.Cells(2, 2).Value = "REFERANS NO"


ExcelNesne.Application.Cells(2, 3).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 3).ColumnWidth = 10
ExcelNesne.Application.Cells(2, 3).Value = "REVİZE NO"


ExcelNesne.Application.Cells(2, 4).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 4).ColumnWidth = 19
ExcelNesne.Application.Cells(2, 4).Value = "TARIH"



ExcelNesne.Application.Cells(2, 5).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 5).ColumnWidth = 19
ExcelNesne.Application.Cells(2, 5).Value = "CEVAP TARIHI"


ExcelNesne.Application.Cells(2, 6).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 6).ColumnWidth = 26
ExcelNesne.Application.Cells(2, 6).Value = "FIRMA "



ExcelNesne.Application.Cells(2, 7).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 7).ColumnWidth = 26
ExcelNesne.Application.Cells(2, 7).Value = "PROJE"

ExcelNesne.Application.Cells(2, 8).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 8).ColumnWidth = 20
ExcelNesne.Application.Cells(2, 8).Value = "ULKE"

ExcelNesne.Application.Cells(2, 9).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 9).ColumnWidth = 10
ExcelNesne.Application.Cells(2, 9).Value = "TESLIM SEKLI"

ExcelNesne.Application.Cells(2, 10).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 10).ColumnWidth = 15
ExcelNesne.Application.Cells(2, 10).Value = "STANDARD"

ExcelNesne.Application.Cells(2, 11).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 11).ColumnWidth = 15
ExcelNesne.Application.Cells(2, 11).Value = "CELIK KALITE"

ExcelNesne.Application.Cells(2, 12).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 12).ColumnWidth = 15
ExcelNesne.Application.Cells(2, 12).Value = "IC KAPLAMA"

ExcelNesne.Application.Cells(2, 13).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 13).ColumnWidth = 15
ExcelNesne.Application.Cells(2, 13).Value = "DIS KAPLAMA"



ExcelNesne.Application.Cells(2, 14).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 14).ColumnWidth = 15
ExcelNesne.Application.Cells(2, 14).Value = "CAP"


ExcelNesne.Application.Cells(2, 15).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 15).ColumnWidth = 15
ExcelNesne.Application.Cells(2, 15).Value = "ET KALINLIGI"



ExcelNesne.Application.Cells(2, 16).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 16).ColumnWidth = 15
ExcelNesne.Application.Cells(2, 16).Value = "METRAJ"

ExcelNesne.Application.Cells(2, 17).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 17).ColumnWidth = 15
ExcelNesne.Application.Cells(2, 17).Value = "MIKTAR(TON)"

ExcelNesne.Application.Cells(2, 18).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 18).ColumnWidth = 10
ExcelNesne.Application.Cells(2, 18).Value = "CR"

ExcelNesne.Application.Cells(2, 19).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 19).ColumnWidth = 19
ExcelNesne.Application.Cells(2, 19).Value = "CEVAP SEKLI"







ExcelNesne.Application.Cells(2, 20).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 20).ColumnWidth = 17
ExcelNesne.Application.Cells(2, 20).Value = "VERILEN TEKLIF"



ExcelNesne.Application.Cells(2, 21).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 21).ColumnWidth = 10
ExcelNesne.Application.Cells(2, 21).Value = "KISI"



ExcelNesne.Application.Cells(2, 22).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 22).ColumnWidth = 28
ExcelNesne.Application.Cells(2, 22).Value = "ACIKLAMA"







I = 2
Adodc10.Recordset.MoveFirst
Do While Not Adodc10.Recordset.EOF = True
I = I + 1

ExcelNesne.Application.Cells(I, 1).Value = Adodc10.Recordset.Fields("talep_no")
ExcelNesne.Application.Cells(I, 2).Value = Adodc10.Recordset.Fields("referans_no")
ExcelNesne.Application.Cells(I, 3).Value = Adodc10.Recordset.Fields("revize")
ExcelNesne.Application.Cells(I, 4).Value = Adodc10.Recordset.Fields("tarih")
ExcelNesne.Application.Cells(I, 5).Value = Adodc10.Recordset.Fields("cevap_trh")
ExcelNesne.Application.Cells(I, 6).Value = Adodc10.Recordset.Fields("firma")
ExcelNesne.Application.Cells(I, 7).Value = Adodc10.Recordset.Fields("proje")
ExcelNesne.Application.Cells(I, 8).Value = Adodc10.Recordset.Fields("ulke")
ExcelNesne.Application.Cells(I, 9).Value = Adodc10.Recordset.Fields("teslim_sekli")
ExcelNesne.Application.Cells(I, 10).Value = Adodc10.Recordset.Fields("standard")
ExcelNesne.Application.Cells(I, 11).Value = Adodc10.Recordset.Fields("kalite")
ExcelNesne.Application.Cells(I, 12).Value = Adodc10.Recordset.Fields("ic_kaplama")

ExcelNesne.Application.Cells(I, 13).Value = Adodc10.Recordset.Fields("dis_kaplama")
ExcelNesne.Application.Cells(I, 14).Value = Adodc10.Recordset.Fields("cap")
ExcelNesne.Application.Cells(I, 15).Value = Adodc10.Recordset.Fields("etkalinligi")

ExcelNesne.Application.Cells(I, 16).Value = Adodc10.Recordset.Fields("metraj")

ExcelNesne.Application.Cells(I, 17).Value = Adodc10.Recordset.Fields("miktar")

ExcelNesne.Application.Cells(I, 18).Value = Adodc10.Recordset.Fields("cr")
ExcelNesne.Application.Cells(I, 19).Value = Adodc10.Recordset.Fields("cevap_sekli")
ExcelNesne.Application.Cells(I, 20).Value = Adodc10.Recordset.Fields("verilen_teklif")
ExcelNesne.Application.Cells(I, 21).Value = Adodc10.Recordset.Fields("kisi")
ExcelNesne.Application.Cells(I, 22).Value = Adodc10.Recordset.Fields("aciklama")

Adodc10.Recordset.MoveNext
Loop
MsgBox "Veriler Excelle aktarildi.", vbOKOnly, "SONUÇ"



End Sub



Cvp: Acsess Excel - fatih karagöl - 15/02/2013

formatlama yapmalısınız
bu şekilde deneyin, cells kodlarının başına ekleyin

ExcelNesne.Application.Columns("DLol").NumberFormat = "m/d/yyyy"


Cvp: Acsess Excel - mhmtogz - 15/02/2013

dosyayı ekleyebilirmisiniz? faydalanmamız açısından...


Cvp: Acsess Excel - sedat76 - 15/02/2013

Fatih abi fatih beeeyyyyyy Lol Size varya ne kadar teşekkür etseeem azdır haraldee yaaaa Lol Ahahahhaha Lol oldu yaa oldu Lol +rep


Cvp: Acsess Excel - mhmtogz - 15/02/2013

sedat bey bende örneği eklediğin an size çok teşekkür edeceğim Img-grin


Cvp: Acsess Excel - fatih karagöl - 15/02/2013

Rica ederim, bu kadar elzem olduğunu bilseydim daha önce yazardım Img-grin
Ama toparlanmış hali ile örnek eklemeniz diğer arkadaşlarında arşivleyebilmesi açısından iyi olacaktır.