تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التعامل مع برنامج الإكسل عن طريق الفيجول ستوديو
#1
مرحباً أصدقائي
هذه مشاركتي الأولى في هذا المنتدى 
أنا في صدد أن أعمل برنامج يتعامل مع برنامج الإكسل عن طريق الفيجول ستوديو - كيف أستطيع أن أحفظ محتويات مربع النص في خلايا معينه في الإكسل كا خلية A1 مثلاً
الرد
تم الشكر بواسطة:
#2
PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles 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 
الرد
تم الشكر بواسطة: elgokr
#3
(21-11-18, 06:36 PM)Rabeea Qbaha كتب :
PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles 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
الرد
تم الشكر بواسطة:
#4
عليك اضافة Microsoft.Office.Interop الى ال reference في المشروع 

اذا اردت ان تقوم باستخراج بيانات من datagridview فهي طريقه اخرى
الرد
تم الشكر بواسطة: elgokr
#5
Rabeea Qbaha كتب : كتب : كتب : كتب :عليك اضافة Microsoft.Office.Interop الى ال reference في المشروع 

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تحويل مشروع فيجوال بيسك الى برنامج exe Simo1991 1 58 اليوم, 01:43 AM
آخر رد: محمد كريّم
Sad محتاج برنامج تشفير قوى Mohamed Magdy 4 128 15-12-18, 03:40 PM
آخر رد: Mohamed Magdy
  سؤال بخصوص البحث باستخدام التاريخ عن طريق WebService masry4u 3 83 08-12-18, 08:36 PM
آخر رد: masry4u
Heart سؤال عن حساب السن (العمر) عن طريق تاريخ الميلاد ahmadpal 10 190 07-12-18, 04:52 PM
آخر رد: ahmadpal
  [VB.NET] أريد مساعدتي في عمل برنامج يستطيع التعرف علي وجه انسان داخل فديو اوصورة ؟ PeterGhattas082460 1 99 07-12-18, 01:54 AM
آخر رد: محمد كريّم
  مساعدة ضرورية بخصوص برنامج Aminsoft 4 181 04-12-18, 06:40 AM
آخر رد: asemshahen5
  [سؤال] عايز دورة انشاء برنامج مثل الهين والامبراطورية من فضلكم omarzerrouki 4 924 03-12-18, 06:27 AM
آخر رد: mhs
Rainbow سيريال تفعيل فيجوال ستوديو 2017 DK-x 2 92 01-12-18, 05:04 PM
آخر رد: Rabeea Qbaha
  التقارير في برنامج متعدد اللغات Rabeea Qbaha 15 246 29-11-18, 12:12 AM
آخر رد: Rabeea Qbaha
  ألأكسل + الفيجول +yassen+ 8 144 28-11-18, 09:31 PM
آخر رد: حريف برمجة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم