Örneği inceledim For a gerek yok altta bulunan kodu yazın ve txt leri b,c,d diye değiştirip çoğatabilirsiniz.
Kolay gelsin.
Kod:
Dim dosya As New Excel.Application
Dim sayfa As Excel.Workbook = dosya.Workbooks.Open(Application.StartupPath & "\deneme.xls")
dosya.Visible = True
Dim sonsatir As Integer
sonsatir = dosya.WorksheetFunction.CountA(sayfa.Sheets("Sayfa1").Columns("A"))
sonsatir = sonsatir + 1
sayfa.Sheets("Sayfa1").Range("A" & sonsatir) = TextBox1.Text
End Sub
Merhaba;
Çalışan örnek ekte yer almaktadır.
Kolay gelsin.