ممكن كود اكسيل
2 مشترك
صفحة 1 من اصل 1
ممكن كود اكسيل
ممكن كود فتح ملف اكسيل والقراءة منه والكتابة فية ؟
ولو بسرعة طبعا شكرااااااااااااااااااااااااااااااااااااااا
ولو بسرعة طبعا شكرااااااااااااااااااااااااااااااااااااااا
YaMan- عضو جديد
- عدد المساهمات : 15
نقاط : 77
تقييم العضو : 0
تاريخ التسجيل : 16/06/2010
رد: ممكن كود اكسيل
العضو YaMn
مرحبا بك فى منتدانا
هذا القسم عام بكل لغات البرمجة
ارجو تحديد لغة البرمجة امطلوب الكود لها حتى يمكن مساعدتك
مرحبا بك فى منتدانا
هذا القسم عام بكل لغات البرمجة
ارجو تحديد لغة البرمجة امطلوب الكود لها حتى يمكن مساعدتك
رد: ممكن كود اكسيل
مرحبا
فجيوال بيسيك 6 او 5
بسرعةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةة
فجيوال بيسيك 6 او 5
بسرعةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةة
YaMan- عضو جديد
- عدد المساهمات : 15
نقاط : 77
تقييم العضو : 0
تاريخ التسجيل : 16/06/2010
رد: ممكن كود اكسيل
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
فى حد هنا ولا سؤالى صعب ؟!!!!!!!!!!
فى حد هنا ولا سؤالى صعب ؟!!!!!!!!!!
YaMan- عضو جديد
- عدد المساهمات : 15
نقاط : 77
تقييم العضو : 0
تاريخ التسجيل : 16/06/2010
الكود المطلوب
للقراءة من ملف اكسيل
ضع الملف فى نفس فهرس المشروع
استبدل MyFileName.xlsx باسم ملف الاكسيل الخاص بك
استبدل SheetName باسم الشيت داخل الملف والمطلوب القراءة منه
للكتابة فى خلية معينة داخل ملف اكسيل
سيتم الكتابة فى الصف 1 العامود 6
ضع الملف فى نفس فهرس المشروع
استبدل MyFileName.xlsx باسم ملف الاكسيل الخاص بك
استبدل SheetName باسم الشيت داخل الملف والمطلوب القراءة منه
- الكود:
Dim XL As New Excel.Application
Dim XLW As Excel.Workbook
Set XLW = XL.Workbooks.Open( App.Path & " \MyFileName.xlsx")
XLW.Sheets(SheetName).Select
CoulumnA = XLW.Application.Cells(r, 1).Value
CoulumnB = XLW.Application.Cells(r, 2).Value
CoulumnC = XLW.Application.Cells(r, 3).Value
XLW.Close False
Set XLW = Nothing
Set XL = Nothing
MsgBox "Done"
للكتابة فى خلية معينة داخل ملف اكسيل
سيتم الكتابة فى الصف 1 العامود 6
- الكود:
Dim XL As New Excel.Application
Dim XLW As Excel.Workbook
Set XLW = XL.Workbooks.Open( App.Path & " \MyFileName.xlsx")
XLW.Sheets(SheetName).Select
XLW.Application.Cells(1, 6).Value = "EDedit From " & DevData!BID & DevData!UserE0
XLW.Save
XLW.Close False
Set XLW = Nothing
Set XL = Nothing
MsgBox "Done"

» اغرب كرة قدم ممكن تشوفها
» عاوز واحدة زى دى - ممكن ؟؟!!!!
» مشكلة ويندوز فستا واكس بي مع بعض ممكن حل لها ؟
» شوفوا الشيكولاته ممكن يعملوا منها اية ؟؟؟؟؟؟؟؟؟؟
» عاوز واحدة زى دى - ممكن ؟؟!!!!
» مشكلة ويندوز فستا واكس بي مع بعض ممكن حل لها ؟
» شوفوا الشيكولاته ممكن يعملوا منها اية ؟؟؟؟؟؟؟؟؟؟
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
» مضاد فيرس مجاني من ميكروسوفت New Antivirus From Microsoft - Free
» كيفية تثبيت Windows XP بعد تثبيت Windows7
» النسخة الاصلية لكتاب الف ليلة وليلة الممنوع ( للكبار فقط )
» http://ahlakalam.to-relax.net/t476-topic
» كتاب نادر - اعترافات جولدامائير واسرار لم تنشر عن حرب اكتوبر
» الكتاب الاسود - قصة تعذيب المسلمين فى عهد حسنى مبارك
» الكتاب النادر اول حوار صحفى مع جنى مسلم
» كتاب نهاية اسرائيل والولايات المتحدة الامريكية
» كتاب ( الحلم اليهودى والوهم الماسونى )
» Internet Download Manager 6.05 Build 2 Final
» مجموعه كتب رائعة - متنوعة
» فن الالقاء الرائع للدكتور طارق سويدان
» شرح بالصور لكيفية صنع نسخة ويندوز خاصة بك واضافه البرامج والتعريفات لها
» تحويل الملفات الى PDF بدون برامج
» Hiren's BootCD 13.1
» نزهة الألباب فيما لا يوجد فى كتاب - من كتب الثقافة الجنسية العربية
» شقائق الاترج فى رقائق الغنج - من كتب الثقافة الجنسية العربية النادرة
» الحرام - مغامرات حقيقية لأميرة سعودية
» عملية ذبح نمر وسلخ جلدة- حصرية ونادرة جداجداجدا