Bulunan 1 den 5 - Toplam 5
vb.net excel dosya oluşturma ve yazma - - Programlama - Ceviz Forum
  1. #1
    tst
    tst Çevrimdışı
    Ceviz Üyesi
    Üyelik Tarihi
    27-Ocak-2009
    Mesaj
    249

    Varsayılan vb.net excel dosya oluşturma ve yazma

    vb.nette dosya oluşturup listview deki verileri ona yazdırmak istiyorum ama bir türlü olmadı.
    Şimdi iki sorunum var.
    1.si eğer sadece file.create(csv) dersem yani excel kısmını hiç karıştırmasam dosya oluşturuyor fakat şöyle bir hata alıyorum
    Adsız.png
    yani bu hatayı aldıktan sonra excel işlemlerini de yapamıyorum zaten.

    2. hata ise excel dosyasını kendim olusturunca yani csv değişkenini ben belirleyince ve file create etmeyince de boyle bir hata alıyorum
    Adsız1.png


    birde program bir kere işlem yapmaya kalktıktan sonra o işlem yaptığı dosyayı açmaya kalktığımda ise şöyle diyor

    Adsız2.png

    burada kilitlenmiş diyor ama ben burda
    xlWorkBook.Close()
    xlApp.Quit()
    kodlarıyla uygulamayı kapatıyorum.sorun net anlaşılsın diye resimleri ekledim şimdiden teşekkürler

    kodlar


    Imports Excel = Microsoft.Office.Interop.Excel
    Kod:
        Public Sub excelbut_Click(sender As System.Object, e As System.EventArgs) Handles excelbut.Click        Dim xlsdate As String = Date.Now.ToString("ss")
            Dim csv As String = Environ$("USERPROFILE") & "\Desktop\cc.xlsx"
    
    
            Dim xlApp As Excel.Application
    
    
            Dim xlWorkBook As Excel.Workbook
    
    
            Dim xlWorkSheet As Excel.Worksheet
    
    
             
    
    
            xlWorkBook = xlApp.Workbooks.Open(csv)
    
    
            xlWorkSheet = xlWorkBook.Worksheets("Sayfa1")
            For exyaz As Integer = 0 To 5
    
    
                xlWorkSheet.Cells(1, exyaz) = 45
    
    
            Next
    
    
            xlWorkBook.Close()
            xlApp.Quit()
        End Sub

  2. #2
    Ceviz Üyesi aslan.e Üyenin Avatarı
    Üyelik Tarihi
    04-Şubat-2011
    Nereden
    Eskişehir
    Mesaj
    1,193

    Varsayılan

    Kodlarına göre olması gerekenler bunlar.... İlk kod, yeni bir excel oluşturup yazmak için. İkinci kod olan bir dosyayı açıp yazmak için.
    Kod:
            'file.create dosyayı görünürde oluşturur ancak o dosya notepad ile açabileceğin türden bir dosyadır. 
            'İçeriği excel dosyasına uygun olabilmesi için excel clasının dosyayı kendi oluşturması gerekir.
            Dim csv As String = Environ$("USERPROFILE") & "\Desktop"
            Dim xlApp As Excel.Application = CreateObject("Excel.Application") 'bunu kullanmazsan excel nesnen oluşmaz.
            Dim xlWorkBook As Excel.Workbook
            Dim xlWorkSheet As Excel.Worksheet
            Dim x As Object = System.Reflection.Missing.Value 'varsayılan değerleriyle boş bir dosya oluşturmak için
            xlWorkBook = xlApp.Workbooks.Add(x) 'burada oluşur dosya
            xlWorkSheet = xlWorkBook.Worksheets("Sayfa1")
            For exyaz As Integer = 1 To 5 'excel hücreleri 0'dan başlamaz. For exyaz=0 hata verir.
                xlWorkSheet.Cells(1, exyaz) = "45"
            Next
            xlWorkBook.SaveAs(csv & "\xxxz.xlsx")
            xlWorkBook.Close()
            xlApp.Quit()
    Kod:
            Dim csv As String = Environ$("USERPROFILE") & "\Desktop"
            Dim xlApp As Excel.Application = CreateObject("Excel.Application") 'bunu kullanmazsan excel nesnen oluşmaz.
            Dim xlWorkBook As Excel.Workbook
            Dim xlWorkSheet As Excel.Worksheet
    
            xlWorkBook = xlApp.Workbooks.Open(csv & "\xxxz.xlsx") 'burada açılır dosya
            xlWorkSheet = xlWorkBook.Worksheets("Sayfa1")
            For exyaz As Integer = 1 To 5 'excel hücreleri 0'dan başlamaz. For exyaz=0 hata verir.
                xlWorkSheet.Cells(1, exyaz) = "45"
            Next
            xlWorkBook.Save()
            xlWorkBook.Close()
            xlApp.Quit()


  3. #3
    tst
    tst Çevrimdışı
    Ceviz Üyesi
    Üyelik Tarihi
    27-Ocak-2009
    Mesaj
    249

    Varsayılan

    Alıntı aslane Demiş ki: Mesajı Görüntüle
    Kodlarına göre olması gerekenler bunlar.... İlk kod, yeni bir excel oluşturup yazmak için. İkinci kod olan bir dosyayı açıp yazmak için.
    Kod:
            'file.create dosyayı görünürde oluşturur ancak o dosya notepad ile açabileceğin türden bir dosyadır. 
            'İçeriği excel dosyasına uygun olabilmesi için excel clasının dosyayı kendi oluşturması gerekir.
            Dim csv As String = Environ$("USERPROFILE") & "\Desktop"
            Dim xlApp As Excel.Application = CreateObject("Excel.Application") 'bunu kullanmazsan excel nesnen oluşmaz.
            Dim xlWorkBook As Excel.Workbook
            Dim xlWorkSheet As Excel.Worksheet
            Dim x As Object = System.Reflection.Missing.Value 'varsayılan değerleriyle boş bir dosya oluşturmak için
            xlWorkBook = xlApp.Workbooks.Add(x) 'burada oluşur dosya
            xlWorkSheet = xlWorkBook.Worksheets("Sayfa1")
            For exyaz As Integer = 1 To 5 'excel hücreleri 0'dan başlamaz. For exyaz=0 hata verir.
                xlWorkSheet.Cells(1, exyaz) = "45"
            Next
            xlWorkBook.SaveAs(csv & "\xxxz.xlsx")
            xlWorkBook.Close()
            xlApp.Quit()
    Kod:
            Dim csv As String = Environ$("USERPROFILE") & "\Desktop"
            Dim xlApp As Excel.Application = CreateObject("Excel.Application") 'bunu kullanmazsan excel nesnen oluşmaz.
            Dim xlWorkBook As Excel.Workbook
            Dim xlWorkSheet As Excel.Worksheet
    
            xlWorkBook = xlApp.Workbooks.Open(csv & "\xxxz.xlsx") 'burada açılır dosya
            xlWorkSheet = xlWorkBook.Worksheets("Sayfa1")
            For exyaz As Integer = 1 To 5 'excel hücreleri 0'dan başlamaz. For exyaz=0 hata verir.
                xlWorkSheet.Cells(1, exyaz) = "45"
            Next
            xlWorkBook.Save()
            xlWorkBook.Close()
            xlApp.Quit()
    çok teşekkür ederim var olan dosya için sorunsuz çalıştı

    ama birde o an xlsx dosyası olusturup o dosyada işlem yapmak istesem hata veriyor istesem gene resimdeki gibi hata veriyor
    http://forum.ceviz.net/attachments/v...yazma-adsizpng

    bu hata neden olur biliyor musunuz?

  4. #4
    Ceviz Üyesi aslan.e Üyenin Avatarı
    Üyelik Tarihi
    04-Şubat-2011
    Nereden
    Eskişehir
    Mesaj
    1,193

    Varsayılan

    Excel dosyasının formatı ile text dosyalarının formatı birbirinden apayrıdır. Üstte verdiğim kodlardaki gibi oluşturursan yeni dosya oluşur. file.create ile dosya excel dosyası oluşmaz.


  5. #5
    tst
    tst Çevrimdışı
    Ceviz Üyesi
    Üyelik Tarihi
    27-Ocak-2009
    Mesaj
    249

    Varsayılan

    eyvallah çok saolasın

    ben direk 2. kodu yapıstırp denemişim kafam çok dağınık kusura bakma

Konu Bilgileri

Bu Konuya Gözatan Kullanıcılar

Şu anda 1 kullanıcı bu konuyu görüntülüyor. (0 kayıtlı ve 1 misafir)

Benzer Konular

  1. ShortCut oluşturma #KAYNAK#
    Pascal / Delphi / Delphi.NET forum içinde, yazan hmustak
    Cevap: 6
    Son Mesaj: 26-Şubat-2007, 00:39
  2. Macro >> Excel
    Genel Programlama forum içinde, yazan hmustak
    Cevap: 3
    Son Mesaj: 14-Şubat-2003, 12:51
  3. Excel to Dbase
    Veritabanları & SQL forum içinde, yazan hmustak
    Cevap: 9
    Son Mesaj: 05-Şubat-2003, 23:29
  4. PHP ile imaj oluşturma
    PHP forum içinde, yazan greenpage
    Cevap: 7
    Son Mesaj: 13-Ağustos-2002, 18:56
  5. Excel ve PHP ve guestbook
    PHP forum içinde, yazan greenpage
    Cevap: 8
    Son Mesaj: 13-Ağustos-2002, 18:29

Yer İmleri

Mesaj Yetkileriniz

  • Yeni konu açmaya yetkiniz yok
  • Cevap yazmaya yetkiniz yok
  • Eklenti yüklemeye yetkiniz yok
  • Mesajınızı düzeltmeye yetkiniz yok
  •