[+yassen+]

مرحباً أصدقائي
هذه مشاركتي الأولى في هذا المنتدى 
أنا في صدد أن أعمل برنامج يتعامل مع برنامج الإكسل عن طريق الفيجول ستوديو - كيف أستطيع أن أحفظ محتويات مربع النص في خلايا معينه في الإكسل كا خلية A1 مثلاً

[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 


[+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

[Rabeea Qbaha]

عليك اضافة Microsoft.Office.Interop الى ال reference في المشروع 

اذا اردت ان تقوم باستخراج بيانات من datagridview فهي طريقه اخرى

[+yassen+]

Rabeea Qbaha كتب : كتب : كتب : كتب :عليك اضافة Microsoft.Office.Interop الى ال reference في المشروع 

اذا اردت ان تقوم باستخراج بيانات من datagridview فهي طريقه اخرى

أردت أن أسند قيمة لحقل في العمود الثاني  بناء على قيمة في العمود الأول بالإكسل

مثلاً يبحث عن الرقم القومي في العمود الأول ويدرج أمامه مثلاُ الجنس في العمود الثاني - الجنس هنا هو قيمة نص التكست


دخلت على  reference  ثم الخيار com ولم تظهر معي  Microsoft.Office.Interop  ؟   إصدار الفيجول 2015 و الأوفس 2007