Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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
Son Düzenleme: 22/05/2014, 11:37, Düzenleyen: Gorkemku.
Cevapla
Çözüldü #2
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #3
Sayın Gorkemku konu hakkında lütfen olumlu veya olumsuz geri bildirimde bulunun.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #4
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
Cevapla
#5
http://i.hizliresim.com/PqGoXv.jpg

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

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

Yorum yapmak için üye olmanız gerekiyor

ya da