اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


عن هذا الملف

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

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

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

  • Like 3

اراء المستخدمين

Recommended Comments

مشاء الله اخواني فكرة عظيمة ويفضل ان يكون بين كل كود وكود عملية شرح باللغة العربية لمعنى الحركة ويضاف قبلها فارزة وتكون باللون الأخضر اي انها للقراءة والاستفادة من فهم هذه الخطوة لكي نستطيع قراءة الكوت والتعامل معه بفهم ودقة ومع مرور الوقت سوف نجد نفسنا مؤهلين لقرائة الأكواد

a1 = Cells(3, 2), معنى هذها الحركة يعبر عنه بشركة ( قد تكون alتساوي العامود الثالث او الخلية حسب الشرمح وهي كذا وكذا ) وقتها تكون الفائدة اكبر وانشاء الله نحاول ان سند هذا المشروع بأفكارنا وما نملك علما انني لحد الان اخذ الأفكار وانقل الأكواد استفاد منها واسخرها للعمل المحاسبي وبأفكار جديدة والفضل لله وللمشرفين وألأعضاء في هذا الموقع العملاق والصرح الغني

وشكار

رابط هذا التعليق
شارك

يا استاذ أبو أشرف ... السيد المهندس محمد طاهر ذكر لنا أن الخلايا بالأكسيل هي B3  ; C3 ; D3  ...  ورمز الخليه للسطر يكتب أولا ثم العمود فيكون B3  هكذا (3,2) رقم السطر أولا ثم رقم العمود ... أما a1  ; a2 ; a3  المكتوبه في المثال الأول بأستخدام أمر print

فهي للسطور المنتجه في الملف الجديد

رابط هذا التعليق
شارك

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

انا محتاجه لمساعدتكم باسرع وقت

انا عندي ورقتين اكسل في نفس الوورك بوك

المطلوب الربط بين الورقتين من خلال عمود يحتوي على ارقام

يتم الربط بين العمودين وتحديث بيانات الورقتين م خلال الربط

يعني بيانات كل صف تكون متشابها مع الصف في الورقة الاخرى من خلال رقم

ارجو المساعده

رابط هذا التعليق
شارك

مشكلتي انني  

 

ميححححححححححححححححححححححححح   

 

مخي نظيف من اي معلوووووومه  عن الفيجول   

 

ومحتاج عشر سنوات لافهم 

 

 

ولكن انا متاكد انك بطل ومميز  

رابط هذا التعليق
شارك

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

اريد برنامج يبحث بواسطة الرقم القومى عن بينات حالة ( مضافة فى ورقة اكسل خاص بالجمعيات الاهلية ) بحيث يظهر اسم الحالة واسم الجمعية التابعة لها وما يتم صرفة لها حتى لا تتكرر حالات الصرف وهل يمكن رفع هذا الملف البحثى على النت بحيث يمكن لكل جمعية داخل النطاق البحثى ان تجرى البحث ارجوا الافادة وجزاكم الله خيراً والسلام عليكم ورحمة الله وبركاتة

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف تعليق

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information