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

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

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

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

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

العضو YaMn

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

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

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

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

مرحبا

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

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

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

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

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

من طرف **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"

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

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

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

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

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

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