[+yassen+]

(21-11-18, 06:36 PM)Rabeea Qbaha كتب :

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim xlsWorkBook As Microsoft.Office.Interop.Excel.Workbook
    Dim xlsWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
    Dim xls As New Microsoft.Office.Interop.Excel.Application

    Dim resourcesFolder = IO.Path.GetFullPath(Application.StartupPath & "\..\..\Resources\")
    Dim fileName = "book1.xlsx"

    xlsWorkBook = xls.Workbooks.Open(resourcesFolder & fileName)
    xlsWorkSheet = xlsWorkBook.Sheets("Sheet1")

    xlsWorkSheet.Cells(1, 1) = TextBox1.Text

    xlsWorkBook.Close()
    xls.Quit()

    MsgBox("file saved to " & resourcesFolder)
End Sub 


 شكراً لك Rabeea Qbaha 
تساؤول أخر صديقي : لنفرض أن لدي ثلاثة أعمده في الإكسل و قمت بإستيراد بيانات داخل أداة الداتا كردفيو : كيف أحفظ محتوى النص التكست1 مثلاً في العمود الثاني بناءاً على سطر في العمود الأول داخل الإكسل أي حسب السطر المختار.

يضهر لدي خطأ في هذه الأسطر ما حلها
Dim xlsWorkBook As Microsoft.Office.Interop.Excel.Workbook

        Dim xlsWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim xls As New Microsoft.Office.Interop.Excel.Application