منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] طريقة ملء ملف اكسل احادي العمود من خلال ليست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] طريقة ملء ملف اكسل احادي العمود من خلال ليست بوكس (/showthread.php?tid=42278)

الصفحات: 1 2

طريقة ملء ملف اكسل احادي العمود من خلال ليست بوكس - asmarsou - 25-08-22

السلام عليكم و رحمة الله و بركاته
ممكن مساعدة في ايجاد طريقة لملء ملف اكسل و ليست بوكس جيث لديا ليست بوكس يتم اضافة عناصر كقائمة اسماء من خلال تاكست بوكس و زر
ما اريده هو عند اضافة اسم جديد لليست بوكس يتم اضافة نفس العنصر اي الاسم لملف الاكسل الموجود في مجلد المشروع اي الستارب اب باث
مشكورين مسبقا

RE: طريقة ملء ملف اكسل احادي العمود من خلال ليست بوكس - سعود - 26-08-22

و عليكم السلام ورحمة الله و بركاته
بطريقة مباشرة لا اعرف لكن اضافة الى DataTable ثم تصدير الى xml ثم بعد ذلك تشغله عن طريق الاكسل.

RE: طريقة ملء ملف اكسل احادي العمود من خلال ليست بوكس - asmarsou - 26-08-22

(26-08-22, 08:10 AM)سعود كتب : و عليكم السلام ورحمة الله و بركاته
بطريقة مباشرة لا اعرف لكن اضافة الى  DataTable ثم تصدير الى xml  ثم بعد ذلك تشغله عن طريق الاكسل.

جمعة مباركة للجميع
بالفعل التعامل مع الملف لا يتم مباشرة بل يجب انشاء نسخة ثانية بمسمى احر للتعديل عليها
بفد لي جزئية واحدة هي كيفية ملء الملف الاول بمحتوى الملف المنسوخ فكرت في اعادة التسمية عند غلق البرنامج او في حدث الفورم لود
لتعميم الفائدة هذا كود الاضافة للملف الثاني
كود :
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       Dim xlApp As Excel.Application
       Dim xlWorkBook As Excel.Workbook
       Dim xlWorksheet As Excel.Worksheet
       Dim lastRow As Long

       xlApp = New Excel.Application
       xlWorkBook = xlApp.Workbooks.Open((IO.Path.GetDirectoryName(Diagnostics.Process.GetCurrentProcess().MainModule.FileName) & "\NamesList2.xlsx"))
       xlWorksheet = xlWorkBook.Worksheets(1)
       'xlApp.Visible = True

       lastRow = xlWorksheet.Range("A" & xlApp.Rows.CountLarge).End(Excel.XlDirection.xlUp).Row + 1

       With xlWorksheet
           .Range("A" & lastRow).Value = Me.TextBox1.Text
           '.Range("B" & lastRow).Value = Me.ComboBox1.Text
           '.Range("C" & lastRow).Value = Me.textbox2.Text
           '.Range("D" & lastRow).Value = Me.textbox3.Text
           ListBox1.Items.Add(TextBox1.Text)
       End With

       xlWorkBook.Save()
       xlWorkBook.Close()

       releaseObject(xlWorkBook)
       releaseObject(xlWorksheet)
       xlApp.Quit()
       releaseObject(xlApp)
   End Sub
فهل ممكن طريفة لعمل هذا

RE: طريقة ملء ملف اكسل احادي العمود من خلال ليست بوكس - Taha Okla - 26-08-22

وعليكم السلام ورحمة الله وبركاته 

أنا جربت الكود وقام باضافة العنصر الجديد في الليست بوكس وبعد اخر سطر من الاكسل 
فأين المشكلة  ؟؟

RE: طريقة ملء ملف اكسل احادي العمود من خلال ليست بوكس - asmarsou - 26-08-22

(26-08-22, 01:48 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته 

أنا جربت الكود وقام باضافة العنصر الجديد في الليست بوكس وبعد اخر سطر من الاكسل 
فأين المشكلة  ؟؟

المشكله في اضافة العنصر الجديد لملف الاكسل ليس للليست بوكس

RE: طريقة ملء ملف اكسل احادي العمود من خلال ليست بوكس - Taha Okla - 26-08-22

خذ وجرب هذا المشروع 


هل هذا ما تريد ؟؟

RE: طريقة ملء ملف اكسل احادي العمود من خلال ليست بوكس - asmarsou - 26-08-22

(26-08-22, 02:24 PM)Taha Okla كتب : خذ وجرب هذا المشروع 


هل هذا ما تريد ؟؟
بارك الله فيك احي طه و آسف على التأخر بالرد اذ اظكررت للخروح
اما بالنسبة للمرفق الذي ارسلته يبدو نوعا ما هو و لكني لم اتمكن من تشغيله
و في الحقيقة ان الامر كله لا ناقة لي فيه و لا عقال فقط اردت ان اكمل موضوع طرح في فسك الامثلة و المساريع للاح مجمد مسافر في الرابط التالي
http://vb4arb.com/vb/thread-42206.html
فهل لي ان اعطيكه لتكمله عني ؟؟ مع شرح لفكرتي

RE: طريقة ملء ملف اكسل احادي العمود من خلال ليست بوكس - Taha Okla - 26-08-22

دخلت ع الموضوع من قبل ولم اشارك به
لسبب انه يطلب مشروع  مو فكرة
..
هل من المنطقي ارفع مشروع فارغ
واطلب من الاعضاء اضافة ادوات وأكواد على المشروع الفارغ
وانا نائم؟
هل دوري انا فقط استلم ع الجاهز بدون جهد 
ولا أدنى محاولة لتعلم كيف اصنع برنامج بسيط؟
اللي بيحلم بمشروع أمامه طريقين :
اما يكمل نومه عسى يشوف مشروعه بأحلامه...
أو يبدأ بتنفيذ مشروع بجهده وأفكاره، ومش غلط يطلب مساعدة لما يتوقف عند نقطة ما بمشروعه، ولكن يكون كل دوره فقط مشجع؟!!!!
هل هذا منطقي؟

RE: طريقة ملء ملف اكسل احادي العمود من خلال ليست بوكس - asmarsou - 26-08-22

(26-08-22, 03:07 PM)Taha Okla كتب : دخلت ع الموضوع من قبل ولم اشارك به
لسبب انه يطلب مشروع  مو فكرة
..
هل من المنطقي ارفع مشروع فارغ
واطلب من الاعضاء اضافة ادوات وأكواد على المشروع الفارغ
وانا نائم؟
هل دوري انا فقط استلم ع الجاهز بدون جهد 
ولا أدنى محاولة لتعلم كيف اصنع برنامج بسيط؟
اللي بيحلم بمشروع أمامه طريقين :
اما يكمل نومه عسى يشوف مشروعه بأحلامه...
أو يبدأ بتنفيذ مشروع بجهده وأفكاره، ومش غلط يطلب مساعدة لما يتوقف عند نقطة ما بمشروعه، ولكن يكون كل دوره فقط مشجع؟!!!!
هل هذا منطقي؟
صدقت و الله

RE: طريقة ملء ملف اكسل احادي العمود من خلال ليست بوكس - سعود - 26-08-22

اصعب شي اتردد في طلبه هو ان الخطا اجزم انه سهل و ربما نعم سهل لكن لا اعرف كيف احله!!!