visual basicten exc...
 
Bildirimler
Hepsini Temizle

visual basicten excele aktarım yaparken saatin aktarılamaması  

  RSS
 Anonim

merhaba arkadaşlar

 visual basic 2010 kullanmaktayım. form üzerinde 4 tane listbox mevcut. listbox1 ve listbox2 deki verileri aktarabiliyorum. listbox3 ve listbox4 te saat bilgisi kayıtlı örneğin 17:41:00 şeklinde değişik veriler var. excele aktarma yapamıyorum. (program hata vermiyor. excele aktarım yaparken hücreler boş kalıyor. hiçbir veri yok.) kodları inceleye bilir misiniz. nerede hata yapıyorum acaba?

 

  On Error Resume Next

        Dim excel_uygulamasi As Excel.Application
        excel_uygulamasi = CreateObject("excel.application")
        excel_uygulamasi.Visible = True
        Dim yeni_kitap As Excel.Workbook
        yeni_kitap = excel_uygulamasi.Workbooks.Add
        Dim tablo As New Excel.Worksheet
        tablo = excel_uygulamasi.ActiveWorkbook.ActiveSheet()

        Dim i As Long
        Dim i2 As Long
        Dim i3 As Long
        Dim i4 As Long
       
        For i = 1 To ListBox1.Items.Count
            tablo.Cells(i, 1).Value = ListBox1.Items.Item(i - 1)
        Next

        For i2 = 1 To ListBox2.Items.Count
            tablo.Cells(i2, 2).Value = ListBox2.Items.Item(i2 - 1)
        Next

        For i3 = 1 To ListBox3.Items.Count
            tablo.Cells(i3, 3).Value = ListBox3.Items.Item(i3 - 1)
        Next

        For i4 = 1 To ListBox4.Items.Count
            tablo.Cells(i4, 4).Value = ListBox4.Items.Item(i4 - 1)
        Next

        tablo.Cells(1, 1) = "Bant No:"
        tablo.Cells(1, 2) = "Tarih:"
        tablo.Cells(1, 3) = "Saat:"
        tablo.Cells(1, 4) = "Saat2:"

        tablo.Application.Cells(1, 1).columnwidth = 6.43 'excel sütün genişliği
        tablo.Application.Cells(1, 2).columnwidth = 15
        tablo.Application.Cells(1, 3).columnwidth = 11
        tablo.Application.Cells(1, 4).columnwidth = 11

Alıntı
Gönderildi : 26/05/2011 20:45
Rahmi DILLI
(@rahmidilli)
Tecrübeli Üye

[quote user="zekeriya1678"]

merhaba arkadaşlar

 visual basic 2010 kullanmaktayım. form üzerinde 4 tane listbox mevcut. listbox1 ve listbox2 deki verileri aktarabiliyorum. listbox3 ve listbox4 te saat bilgisi kayıtlı örneğin 17:41:00 şeklinde değişik veriler var. excele aktarma yapamıyorum. (program hata vermiyor. excele aktarım yaparken hücreler boş kalıyor. hiçbir veri yok.) kodları inceleye bilir misiniz. nerede hata yapıyorum acaba?

 

  On Error Resume Next

        Dim excel_uygulamasi As Excel.Application
        excel_uygulamasi = CreateObject("excel.application")
        excel_uygulamasi.Visible = True
        Dim yeni_kitap As Excel.Workbook
        yeni_kitap = excel_uygulamasi.Workbooks.Add
        Dim tablo As New Excel.Worksheet
        tablo = excel_uygulamasi.ActiveWorkbook.ActiveSheet()

        Dim i As Long
        Dim i2 As Long
        Dim i3 As Long
        Dim i4 As Long
       
        For i = 1 To ListBox1.Items.Count
            tablo.Cells(i, 1).Value = ListBox1.Items.Item(i - 1)
        Next

        For i2 = 1 To ListBox2.Items.Count
            tablo.Cells(i2, 2).Value = ListBox2.Items.Item(i2 - 1)
        Next

        For i3 = 1 To ListBox3.Items.Count
            tablo.Cells(i3, 3).Value = ListBox3.Items.Item(i3 - 1)
        Next

        For i4 = 1 To ListBox4.Items.Count
            tablo.Cells(i4, 4).Value = ListBox4.Items.Item(i4 - 1)
        Next

        tablo.Cells(1, 1) = "Bant No:"
        tablo.Cells(1, 2) = "Tarih:"
        tablo.Cells(1, 3) = "Saat:"
        tablo.Cells(1, 4) = "Saat2:"

        tablo.Application.Cells(1, 1).columnwidth = 6.43 'excel sütün genişliği
        tablo.Application.Cells(1, 2).columnwidth = 15
        tablo.Application.Cells(1, 3).columnwidth = 11
        tablo.Application.Cells(1, 4).columnwidth = 11

[/quote]

Değişken tipleriyle ilgil olabilir. Zaman içeren değişkeni date olarak yapmayı denediniz mi?

CevapAlıntı
Gönderildi : 29/05/2011 15:38
Paylaş: