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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Acsess Excel - Yazar: sedat76 - 15/02/2013, 11:08
Cvp: Acsess Excel - Yazar: fatih karagöl - 15/02/2013, 14:49
Cvp: Acsess Excel - Yazar: mhmtogz - 15/02/2013, 15:50
Cvp: Acsess Excel - Yazar: sedat76 - 15/02/2013, 16:53
Cvp: Acsess Excel - Yazar: mhmtogz - 15/02/2013, 17:28
Cvp: Acsess Excel - Yazar: fatih karagöl - 15/02/2013, 18:24
Cvp: Acsess Excel - Yazar: sedat76 - 20/02/2013, 17:00
Task