عن هذا الملف
هذا المثال يوضح طريقتين لاستخراج بيانات مختارة من ملف اكسيل الي ملف نص و فتحه لعرض البيانات
و هنا فى المثال المرفق سنستخرج البيانات من الثلاثة خلاية الملونة باللون الاصفر و هي الخلايا
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
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.