كود استخراج بيانات محددة من ملف اكسيل الى ملف نص و فتحه

هذا المثال يوضح طريقتين لاستخراج بيانات مختارة من ملف اكسيل الي ملف نص و فتحه لعرض البيانات

و هنا فى المثال المرفق سنستخرج البيانات من الثلاثة خلاية الملونة باللون الاصفر و هي الخلايا

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