محمد طاهر عرفه

هذا المثال يوضح طريقتين لاستخراج بيانات مختارة من ملف اكسيل الي ملف نص و فتحه لعرض البيانات و هنا فى المثال المرفق سنستخرج البيانات من الثلاثة خلاية الملونة باللون الاصفر و هي الخلايا 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