[sooriaty03]

الاسم ثم العنوان ثم الرقم . ثم يحفظ وينتقل للسطر الذي بعده يسجل الاسم والعنوان والرقم

السلام عليكم
تفضل أخي الحبيب
هذا هو الكود

كود :

Imports Microsoft.Office.Interop
Public Class Form1
    Dim exl_app As Excel.Application = CreateObject("Excel.Application")
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim exl_wrk As Excel.Workbook
        Dim exl_wst As Excel.Worksheet
        exl_wrk = exl_app.Workbooks.Open("c:\Book2.xls")
        exl_wst = exl_wrk.Worksheets(1)
        With exl_wst
            Dim Index As Integer = .UsedRange.Rows.Count + 1
            .Range("A" & Index).Value = TextBox1.Text
            .Range("B" & Index).Value = TextBox2.Text
            'جعل خانة الرقم = نص
            .Range("C" & Index).NumberFormat = "@"
            .Range("C" & Index).Value = TextBox3.Text
        End With
        exl_wrk.Save()
        exl_app.Quit()
    End Sub
End Class

بالتوفيق