Skip to main content

AccessTr.neT


Excele aktarım hakkında

Excele aktarım hakkında

#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

Bu Konudaki Yorumlar
Excele aktarım hakkında - Yazar: drummers - 28/01/2013, 13:28
Cvp: Excele aktarım hakkında - Yazar: Kur@l - 28/01/2013, 15:29