+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Nesne başvurusu bir nesnenin örneğine ayarlanmadı. hatası (/konu-nesne-basvurusu-bir-nesnenin-ornegine-ayarlanmadi-hatasi.html)
Nesne başvurusu bir nesnenin örneğine ayarlanmadı. hatası - Gorkemku - 22/05/2014
Kod:
Dim csv As String = "C:\otomasyon"
Dim oExcel As Excel.Application = CreateObject("Excel.Application") 'bunu kullanmazsan excel nesnen oluşmaz.
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
oBook = oExcel.Workbooks.Open(csv & "\son form.xlsx") 'burada açılır dosya
oSheet = oBook.Worksheets("Sayfa1")
'oSheet.Range("A1:I1:J1:A2:B2:C2:D2:E2:F2:G2:H2:J2").Font.Bold = True
'oSheet.Range("A2:B2:C2:D2:E2:F2:G2:H2:J2").Borders.Color = Color.Black
'oSheet.Range("A2:B2:C2:D2:E2:F2:G2:H2:J2").Interior.ColorIndex = 5
'oSheet.Range("A2:B2:C2:D2:E2:F2:G2:H2:J2").Font.Color = Color.White
'oSheet.Range("B2:C2:D2:E2:F2:G2:H2:J2").EntireColumn.AutoFit()
'oSheet.range("A1").cells.Merge.center()
Dim dr As DataRow
Dim i As Int32 = 17
Dim columnsheet As String = ""
oSheet.Range("b7").Value = Today.Date
oSheet.Range("b8").Value = TextBox6.Text
oSheet.Range("b9").Value = TextBox9.Text
oSheet.Range("b10").Value = TextBox3.Text
oSheet.Range("d10").Value = TextBox4.Text
oSheet.Range("e7").Value = TextBox7.Text
oSheet.Range("f10").Value = TextBox17.Text
oSheet.Range("i10").Value = TextBox16.Text
oSheet.Range("i7").Value = MaskedTextBox1.Text
oSheet.Range("i8").Value = TextBox2.Text
oSheet.Range("i9").Value = TextBox20.Text
For Each dr In DT.Rows
oSheet.Range("A" + i.ToString()).Value = dr("stokkodu")
oSheet.Range("C" + i.ToString()).Value = dr("parcaadi")
oSheet.Range("F" + i.ToString()).Value = dr("adet")
oSheet.Range("G" + i.ToString()).Value = dr("toplamtutar")
oSheet.Range("I" + i.ToString()).Value = dr("adet") * dr("toplamtutar")
i = i + 1
Next
MsgBox("AKTARMA İŞLEMİ BAŞARIYLA GERÇEKLEŞTİRİLMİŞTİR", MsgBoxStyle.Information, )
oExcel.Visible = True
connection1.Close()
End SubCvp: Nesne başvurusu bir nesnenin örneğine ayarlanmadı. hatası - alpeki99 - 22/05/2014
Nesnenin başvurduğu nesne hangisi ise o şu anda yok/ulaşılamıyor vs. Bu şekilde kodlardan bunu anlamak zor. Hangi satırda hata veriyor ise o satırdaki nesneleri inceleyin.
Cvp: Nesne başvurusu bir nesnenin örneğine ayarlanmadı. hatası - alpeki99 - 23/05/2014
Sayın Gorkemku konu hakkında lütfen olumlu veya olumsuz geri bildirimde bulunun.
Cvp: Nesne başvurusu bir nesnenin örneğine ayarlanmadı. hatası - Gorkemku - 23/05/2014
kusura bakmayın zaman darlığından kaynaklı olarak siteye giremedim. sorunu çözdüm connection1.Close() kısmını görüp connection1.Open() kısmını göremediğimden kaynaklı olarak sıkıntı yaşıyormuşum bağlantı yapmadan veri çekmeye çalışıyormuş kodla ilgilenen olursa paylaşabilirim teşekkür ederim ilginiz için
Cvp: Nesne başvurusu bir nesnenin örneğine ayarlanmadı. hatası - drmet - 02/06/2015
http://i.hizliresim.com/PqGoXv.jpg
bende benzer bir hata alıyorum grid wiev den veri çekerken oluyor !