السلام عليكم و رحمة الله و بركاته
ممكن مساعدة في ايجاد طريقة لملء ملف اكسل و ليست بوكس جيث لديا ليست بوكس يتم اضافة عناصر كقائمة اسماء من خلال تاكست بوكس و زر
ما اريده هو عند اضافة اسم جديد لليست بوكس يتم اضافة نفس العنصر اي الاسم لملف الاكسل الموجود في مجلد المشروع اي الستارب اب باث
مشكورين مسبقا
و عليكم السلام ورحمة الله و بركاته
بطريقة مباشرة لا اعرف لكن اضافة الى DataTable ثم تصدير الى xml ثم بعد ذلك تشغله عن طريق الاكسل.
(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
فهل ممكن طريفة لعمل هذا
وعليكم السلام ورحمة الله وبركاته
أنا جربت الكود وقام باضافة العنصر الجديد في الليست بوكس وبعد اخر سطر من الاكسل
فأين المشكلة ؟؟
(26-08-22, 01:48 PM)Taha Okla كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
أنا جربت الكود وقام باضافة العنصر الجديد في الليست بوكس وبعد اخر سطر من الاكسل
فأين المشكلة ؟؟
المشكله في اضافة العنصر الجديد لملف الاكسل ليس للليست بوكس
خذ وجرب هذا المشروع
هل هذا ما تريد ؟؟
(26-08-22, 02:24 PM)Taha Okla كتب : [ -> ]خذ وجرب هذا المشروع
هل هذا ما تريد ؟؟
بارك الله فيك احي طه و آسف على التأخر بالرد اذ اظكررت للخروح
اما بالنسبة للمرفق الذي ارسلته يبدو نوعا ما هو و لكني لم اتمكن من تشغيله
و في الحقيقة ان الامر كله لا ناقة لي فيه و لا عقال فقط اردت ان اكمل موضوع طرح في فسك الامثلة و المساريع للاح مجمد مسافر في الرابط التالي
http://vb4arb.com/vb/thread-42206.html
فهل لي ان اعطيكه لتكمله عني ؟؟ مع شرح لفكرتي
دخلت ع الموضوع من قبل ولم اشارك به
لسبب انه يطلب مشروع مو فكرة
..
هل من المنطقي ارفع مشروع فارغ
واطلب من الاعضاء اضافة ادوات وأكواد على المشروع الفارغ
وانا نائم؟
هل دوري انا فقط استلم ع الجاهز بدون جهد
ولا أدنى محاولة لتعلم كيف اصنع برنامج بسيط؟
اللي بيحلم بمشروع أمامه طريقين :
اما يكمل نومه عسى يشوف مشروعه بأحلامه...
أو يبدأ بتنفيذ مشروع بجهده وأفكاره، ومش غلط يطلب مساعدة لما يتوقف عند نقطة ما بمشروعه، ولكن يكون كل دوره فقط مشجع؟!!!!
هل هذا منطقي؟
(26-08-22, 03:07 PM)Taha Okla كتب : [ -> ]دخلت ع الموضوع من قبل ولم اشارك به
لسبب انه يطلب مشروع مو فكرة
..
هل من المنطقي ارفع مشروع فارغ
واطلب من الاعضاء اضافة ادوات وأكواد على المشروع الفارغ
وانا نائم؟
هل دوري انا فقط استلم ع الجاهز بدون جهد
ولا أدنى محاولة لتعلم كيف اصنع برنامج بسيط؟
اللي بيحلم بمشروع أمامه طريقين :
اما يكمل نومه عسى يشوف مشروعه بأحلامه...
أو يبدأ بتنفيذ مشروع بجهده وأفكاره، ومش غلط يطلب مساعدة لما يتوقف عند نقطة ما بمشروعه، ولكن يكون كل دوره فقط مشجع؟!!!!
هل هذا منطقي؟
صدقت و الله
اصعب شي اتردد في طلبه هو ان الخطا اجزم انه سهل و ربما نعم سهل لكن لا اعرف كيف احله!!!