منتدى أحلـــى كـــلام
عزيزى الزائر

كونك زائر غير مسجل

* سيتم عرض اعلانات لك، هذه الاعلانات لا تظهر للاعظاء.
* لن تتمكن من مشاهدة بعض محتويات مواضيعنا.

ندعوك للتسجيل بأقل من دقيقة
* لتتمكن من مشاهدة كافة محتويات المواضيع التى ترغب فى قرآئتها .
* وقف عرض الاعلانات.

SiteAdmin

ممكن كود اكسيل

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

ممكن كود اكسيل

مُساهمة من طرف YaMan في الأربعاء يونيو 16, 2010 8:01 pm

ممكن كود فتح ملف اكسيل والقراءة منه والكتابة فية ؟

ولو بسرعة طبعا شكرااااااااااااااااااااااااااااااااااااااا

YaMan
عضو جديد
عضو جديد

عدد المساهمات : 15
نقاط : 77
تقييم العضو : 0
تاريخ التسجيل : 16/06/2010

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: ممكن كود اكسيل

مُساهمة من طرف SiteAdmin في الخميس يونيو 17, 2010 12:03 pm

العضو YaMn

مرحبا بك فى منتدانا

هذا القسم عام بكل لغات البرمجة

ارجو تحديد لغة البرمجة امطلوب الكود لها حتى يمكن مساعدتك

_________________
Best Regards
Site Administrator
avatar
SiteAdmin
Admin
Admin

عدد المساهمات : 333
نقاط : 2040
تقييم العضو : 6
تاريخ التسجيل : 09/06/2010
العمر : 43
الموقع : Banker

http://ahlakalam.to-relax.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: ممكن كود اكسيل

مُساهمة من طرف YaMan في الخميس يونيو 17, 2010 6:45 pm

مرحبا

فجيوال بيسيك 6 او 5

بسرعةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةة

YaMan
عضو جديد
عضو جديد

عدد المساهمات : 15
نقاط : 77
تقييم العضو : 0
تاريخ التسجيل : 16/06/2010

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: ممكن كود اكسيل

مُساهمة من طرف YaMan في الإثنين يونيو 21, 2010 8:57 am

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

فى حد هنا ولا سؤالى صعب ؟!!!!!!!!!!

YaMan
عضو جديد
عضو جديد

عدد المساهمات : 15
نقاط : 77
تقييم العضو : 0
تاريخ التسجيل : 16/06/2010

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الكود المطلوب

مُساهمة من طرف SiteAdmin في الإثنين يونيو 21, 2010 10:21 am

للقراءة من ملف اكسيل

ضع الملف فى نفس فهرس المشروع

استبدل 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"


_________________
Best Regards
Site Administrator
avatar
SiteAdmin
Admin
Admin

عدد المساهمات : 333
نقاط : 2040
تقييم العضو : 6
تاريخ التسجيل : 09/06/2010
العمر : 43
الموقع : Banker

http://ahlakalam.to-relax.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى