Acsess Excel
Tarih
15/02/2013 11:08
Konu Sahibi
sedat76
Yorumlar
6
Okunma
2399
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



Çözüldü 
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ı ?

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
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


fatih karagöl
Aktif Üye
Kullanici Avatari
Aktif Üye
167
05/10/2010
88
Edirne
-
15/12/2015,17:38
Çözüldü 
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


mhmtogz
Aktif Üye
Kullanici Avatari
Aktif Üye
M....
163
10/01/2013
9
Çanakkale
Ofis 2003
03/03/2016,18:00
Çözüldü 
dosyayı ekleyebilirmisiniz? faydalanmamız açısından...
Cevapla


Çözüldü 
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


mhmtogz
Aktif Üye
Kullanici Avatari
Aktif Üye
M....
163
10/01/2013
9
Çanakkale
Ofis 2003
03/03/2016,18:00
Çözüldü 
sedat bey bende örneği eklediğin an size çok teşekkür edeceğim Img-grin
Cevapla


fatih karagöl
Aktif Üye
Kullanici Avatari
Aktif Üye
167
05/10/2010
88
Edirne
-
15/12/2015,17:38
Çözüldü 
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







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü vb acsess update sorunu kokotuna 8 2.334 17/04/2014, 12:39 kokotuna
Çözüldü Ole nesnesi ile excel kitabı acmak ggoker 3 2.169 08/02/2010, 03:10 maytas


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya