Skip to main content

AccessTr.neT


Excele aktarım hakkında

Excele aktarım hakkında

Çözüldü #1

Dim dosya As New Excel.Application
Dim sayfa As Excel.Workbook = dosya.Workbooks.Open(System.Windows.Forms.Application.StartupPath & "\drmkayıt v2.xls")
dosya.Visible = False
Dim sonsatir As Integer
sonsatir = dosya.WorksheetFunction.CountA(sayfa.Sheets("makbuz listesi").Columns("B"))
sonsatir = sonsatir + 2
sayfa.Sheets("makbuz listesi").Range("B" & sonsatir) = TextBox1.Text ' ad soyad
sayfa.Sheets("makbuz listesi").Range("C" & sonsatir) = TextBox12.Text ' muh ücreti

sayfa.Save()
sayfa.Close()
dosya.Quit()

Bu kod ile Textboxlara girilen değerleri sayfanın "B" sütununa ekliyorum. Yeni veri girildiğinde en alt satırıa ekleme yapıyor.

Sorum şudur: Ben bu veri girişinin "B" sütunundan değilde belirli bi hücresinden başlamasını istiyorum. Mesela "B10" hücresinden başlasın ve veri girildikçe bir alt satıra geçsin

Teşekkürler.
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
B9 hücresinden başlaması için aşağıdaki değişikliği yaparak deneyiniz.
Kolay Gelsin.
Dim dosya As New Excel.Application
Dim sayfa As Excel.Workbook = dosya.Workbooks.Open(System.Windows.Forms.Application.StartupPath & "\drmkayıt v2.xls")
dosya.Visible = False
Dim sonsatir As Integer
sonsatir = dosya.WorksheetFunction.CountA(sayfa.Sheets("makbuz listesi").Columns("B"))
sonsatir=9

if sonsatir> 9 then
sonsatir = sonsatir + 2
end if
sayfa.Sheets("makbuz listesi").Range("B" & sonsatir) = TextBox1.Text ' ad soyad
sayfa.Sheets("makbuz listesi").Range("C" & sonsatir) = TextBox12.Text ' muh ücreti

sayfa.Save()
sayfa.Close()
dosya.Quit()
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da