Skip to main content

AccessTr.neT


Acsess Excel

Çözüldü #1
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
Cevapla
Çözüldü #2
formatlama yapmalısınız
bu şekilde deneyin, cells kodlarının başına ekleyin

ExcelNesne.Application.Columns("DLol").NumberFormat = "m/d/yyyy"
Hayatta listbox kullanmam..
Cevapla
Çözüldü #3
dosyayı ekleyebilirmisiniz? faydalanmamız açısından...
Cevapla
Çözüldü #4
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
Cevapla
Çözüldü #5
sedat bey bende örneği eklediğin an size çok teşekkür edeceğim Img-grin
Cevapla
Çözüldü #6
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.
Hayatta listbox kullanmam..
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task