السلام عليكم ورحمة الله وبركاته
الاخوة الكرام ؛
ابحث عن طريقة لاستيراد كود من ملف نصي واقوم بتشغيله من داخل الـ VBA
بمعني أخر ؛ أقوم بكتابة الكود داخل ملف نصي ؛ واضع هذا الملف في كمان محدد مقدما؛ ثم اقوم بفتح نموذج واضغط علي زر يقوم بتنفيذ ماهو مكتوب في الملف النصي.
وجدت طريقة ولكنها تقوم بتشغيل الكود اذا كان سطر واحد فقط.... وكذلك لاحظت ان التنفيذ علي شكل ماكرو وليس علي شكل كود VBA
التجربة نجحت مع رسالة Msgbox ولكنها فشلت عند كتابة كود متعدد السطور كـ while
ارجو ان تكون الفكرة واضحة
هذا الكود يقوم باستراد الكلام المكتوب في الملف النصي ويقوم بتشغيل الكلام المكتوب فيه
Dim strFilename As String: strFilename = "C:\dvr\codee.txt" Dim strFileContent As String Dim iFile As Integer: iFile = FreeFile Open strFilename For Input As #iFile strFileContent = Input(LOF(iFile), iFile) Close #iFile Eval (strFileContent)
وهذا ما هو مكتوب داخل الملف النصي
msgbox ("السلام عليكم")