عن هذا الملف
هذا المثال يوضح طريقتين لاستخراج بيانات مختارة من ملف اكسيل الي ملف نص و فتحه لعرض البيانات
و هنا فى المثال المرفق سنستخرج البيانات من الثلاثة خلاية الملونة باللون الاصفر و هي الخلايا
B3,C3,D3
و تم اضافة عدة اسطر كمقدمة توضح كيفية كتابة نص عام و ادراج اسم ملف المصدر ، قبل تسجيل بيانات الخلايا الثلاثة فى الملف النصي
و لا تنسي تغيير مسار الملف فى الكود لما يناسب جهازك قبل التشغيل
هنا فى الكود و المثال يتم انشاء الملف النصي فى المسار
T:\و قم بتعديله اولا لما يناسبك و المثال فى الملف المرفق الكود الاول باستخدام امر Print
Sub PrinttoFile()
a1 = Cells(3, 2)
a2 = Cells(3, 3)
a3 = Cells(3, 4)
Dim Filename As String
Filename = "T:\testfile.txt"
Open Filename For Output As #1
Print #1, "*********** www.officena.net *****************"
Print #1, "Example to Write Values from Cells into a text file"
Print #1, "Source : " & ActiveWorkbook.FullName & " : "
Print #1, "*********** www.officena.net *****************"
Print #1,
Print #1, "Here are the Values: "
Print #1,
Print #1, a1
Print #1, a2
Print #1, a3
Close #1
Dim x
x = Shell("notepad.exe " & Filename, 1)
End Sub
الكود الثاني باستخدام طريقة WriteLine
Sub WriteLine()
Dim fs, S, A, Filename
Filename = "T:\testfile.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set A = fs.CreateTextFile(Filename, True)
A.WriteLine "*********** www.officena.net *****************"
A.WriteLine "Write 3 cells values into a File "
A.WriteLine "Source : " & ActiveWorkbook.FullName & " : "
A.WriteLine "*********** www.officena.net *****************"
A.WriteLine
A.WriteLine "Here are the Values: "
A.WriteLine
A.WriteLine Cells(3, 2)
A.WriteLine Cells(3, 3)
A.WriteLine Cells(3, 4)
A.Close
Dim x
x = Shell("notepad.exe " & Filename, 1)
End Sub
Recommended Comments
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان