AccessTr.neTVisual Basic .NETVisual Basic .NET Cevaplanmış Soruları

Nesne başvurusu bir nesnenin örneğine ayarlanmadı. hatası

22/05/2014, 11:36

Gorkemku

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 Sub

iyi günler Excel e kayıt yaparken ilk başta çalışan kodum şimdi konu başlığında belirttiğim hatayı veriyor yardımcı olursanız sevinirim. Şimdiden teşekkür ederim
22/05/2014, 11:46

alpeki99

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.
23/05/2014, 17:54

alpeki99

Sayın Gorkemku konu hakkında lütfen olumlu veya olumsuz geri bildirimde bulunun.
23/05/2014, 20:51

Gorkemku

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
02/06/2015, 23:01

drmet

http://i.hizliresim.com/PqGoXv.jpg

bende benzer bir hata alıyorum grid wiev den veri çekerken oluyor !