ارجو مساعدتي لكتابة هذا الماكرو

السلام عليكم ...

هل تريد إنشاء الماكرو أم التعامل مع الملفات بالVB..

عموماً فالماكرو يتم تنفيذه وكتابته تلقائيا عند اختياره من قائمة أدوات .. ثم تسجيل ماكرو جديد ..

شكرا اخي الكريم

و لكني اريد معرفة طريقة كتابة الكود بال vb

يعني ما هي الدالة التي يمكن ان استخدمها لاخذ محتويات خلية ما و كتابتها في ملف نصي .

اي كيفية التعامل مع الملفات في vb

مع تحياتي

السلام عليكم ورحمة الله وبركاته

الرابط التالي يحتوي على ملف JPG يوضح الكود المطلوب لقراءة الخلية B3 و تحوي على نص كمثال ثم يقوم بفتح ملف نصي وطباعة محتوى الخلية في هذا الملف ثم يقوم بإغلاق الملف

http://mypage.ayna.com/mtsasb/OpenFile.jpg

أرجو أن أكون قد فهمت سؤالك

شكرا و السلام عليكم ورحمة الله وبركاته

اجابة الاخ طارق مشكورا

فيها التالي

( الموجود فى الصورة )

sub Macro2()
a=cells(3,2)
open "c:testfile.txt" for output as #1
print #1,a
close #1
end sub

و صورتان للمكتوب فى ملف الاكسيل و اتج النقل الي ملف النص

و هنا ما تكرم بوضه الاخ طارق هو كالآتي:

تم تعريف متغير اسمه a و لاستقبال قيمة الخلية B3 فيه

تم فتح ملف نص فى مسار محدد

تم تسجيل قيمة المتغير a فى ملف النص

تم اغلاق ملف النص

و المقصود هنا بالفتح و الاغلاق هو الفتح لكتابة و ليس للرؤية

و لمعرفة كيفية كتابة و تشغيل الماكرو

http://www14.brinkster.com/mtarafa/VBExcel.htm

و شكرا للأخ طارق علي المعلومة

(f)

بعد التحية

اشكرك جدا اخ طارق على الرد و قد استفدت منه كثيرا ,كما اشكر الاخ محمد , على تعليقه

و في الحقيقة انا كذلك استغربت من عدم وجود تعريف للمتغير a و الغريب انني عندما نفذت الكود اشتغل دون طلب تعريف المتغير ؟؟

كما عندي سؤال و هو كيف يمكن اضافة سطر ,, يعني اريد ان اضع عدة اسطر في المتغير a و ليس سطر واحد فكيف يمكن فتح سطر جديد

و اريد ان اجعل اسم الملف متغير مثلا Fname فهل اعامله بدون تعريف مسبق ؟؟ مثل معاملة المتغير a

و هل يوجد دالة اعرف من خلالها ان الملف موجود مسبقاً

و لكم منى جزيل الشكر

هل هذا هو المطلوب

Sub Macro2()
a = Cells(3, 2) & "," & Cells(3, 3) & "," & Cells(3, 4)
Dim Filename As String
Filename = "c:testfile.txt"
Open Filename For Output As #1
Print #1, a
Close #1
End Sub

writetotext.zip

السلام عليكم و رحمة الله و بركاته

اخي لك الف شكر

فعلا هذا المطلوب و لكني اريد كل خلية في سطر اي لا تكون النتيجة بهذا الشكل

Mohamed ,Taher,arafa

و لكن تكون على هذه الصورة

Mohamed

Taher

arafa

اي ناتج كل خلية في سطر

و جزاك الله كل خير

و تمنياتي لك بالتوفيق الدائم

بالنسبة لعدم تعريف نوع المتغير

فأعتقد أنه فى هذه الحالة يعامل علي أنه Varriant

و بالنسبة للمطلوب فهذا هو الكود

Sub Macro3()
a1 = Cells(3, 2)
a2 = Cells(3, 3)
a3 = Cells(3, 4)

Dim Filename As String
Filename = "c:testfile.txt"
Open Filename For Output As #1
Print #1, a1
Print #1, a2
Print #1, a3

Close #1
End Sub

تحية طيبة و بعد

استاذي لك مني الف شكر

و جزاك الله كل خير

و السلام عليكم و رحمة الله و بركاته

بعد التحية

1- احاول اضافة بعض الكود و لكن تظهر لي هذه الرسالة فما المقصود بها

the macros in this project are disabled.

فكيف ممكن تغييرها الي enable

2- اريد دالة تحول من date إلى string

3-

i = 3

j = 2

While Cells(i, j) <> " "

a = Cells(i, j) & "@" & Cells(i, j + 1) & "@"

Dim Filename As String

Filename = "c:testfile.txt"

Open Filename For Output As #1

Print #1, a

Wend

Close #1

End Sub

عندما اضيف جملة while تظهر لي هذه الرسالة

File already open

رغم انه بدون جملة while حتى ولو كان الملف موجود يكتب فوقه

و في جملة whileاريد الدوران الي ان يصل الى خلية فارغة فتنتهي الكتابة في الملف و اقفله .

4-اريد ان اعرف اذا كان اسم الملف موجود مسبقاً فلا استخدمه

حاولت استخدام دالة FileExists إلا اني لم افهم طرية استخدامها

و لكم مني جزيل الشكر

بالنسبة لتفعيل الماكرو

TOOLS

MACRO

SECURITY

MEDIUM

و سيسأك عن التفعيل عند فتح الملف

lOW

و سيسمح بالتفعيل بدون سؤال و لكن هذا خطر من ناحية الفيروسات

و راجع دروس الاكسل فى الموقع فى توقيعي

بالنسبة للتحويل لتاريخ

اسم الدالة

cdate

بالنسبة للثالث ضع المثال كامل

و لكن مبدأيا تظهر هذه الرسالة لأن الملف رقم 1 مفتوح و لا يمكن فتحه ثانيا

فاغلقة

أو ان كنا تريد ملف أخر فسمه 2 ليفتحا معا

شكرا للرد ساجرب و اخبرك النتيجة

و السلام عليكم و رحمة الله و بركاته