Jump to content
أوفيسنا

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


About This File

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

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

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

User Feedback

Recommended Comments

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

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

وشكار

Link to comment
Share on other sites

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

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

Link to comment
Share on other sites

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

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

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

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

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

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

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

Link to comment
Share on other sites

مشكلتي انني  

 

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

 

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

 

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

 

 

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

Link to comment
Share on other sites

ارجو الافادة عن كيفية جمع خلايا ملونة تحتوي على ارقام في نطاق واخرى بلون اخر في ذات النطاق سواء كان صف او عمود  

Link to comment
Share on other sites

السلام عليكم اريد حل لفلتر اتوماتيك في الاكسل. دون اكواد, وجذاكم الله خير

Link to comment
Share on other sites

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

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

Link to comment
Share on other sites

Join the conversation

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

Guest
Add a comment...

×   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.

×
×
  • Create New...