قراءة ملف نصي إحضار البيانات

هذا مقتطف الشفرة يقرأ ملف نصي وجلب البيانات في ورقة العمل.

تفسير

هذا البرنامج مقتطفات قصيرة النص المخزنة في ملف نصي محدد مسبقا في مجلد محدد مسبقا أو دليل. ويمكن للبرنامج أن يكون تعديل لحلقة من خلال العديد من ملفات نصية باستخدام ملفات "قائمة في الدليل" رمز ، وهذا يتطلب تعديل من قبل نفسك. عندما جعل البرامج التي تقوم بتخزين البيانات في ملفات نصية لا قواعد البيانات الحقيقية ويأتي هذا في متناول اليدين. إذا لم يكن لتنفيذ العديد من المكالمات قاعدة البيانات في ثوان على ما يرام لاستخدام ملفات نصية في قاعدة البيانات.

كامل برنامج اكسل VBA يتوفر للتحميل في أسفل هذه الصفحة ، تمتع!

رمز

Public Sub ReadTextFileFetchData()

Dim NameOfFile As String
Dim PlaceOfFile As String
Dim Filelocation As String

NameOfFile = Range("c6").Value
PlaceOfFile = Range("c5").Value
Filelocation = PlaceOfFile + "\" + NameOfFile
sText = ReadTextFileFetchDataMain(Filelocation)
Range("c10").Value = sText

End Sub


Function ReadTextFileFetchDataMain(ReadTextFile As String) As String
Dim ReadTextFileSource As Integer
Dim ReadTextFile2 As String

'Closes text files that might be opened
Close
'The number of the next free text file
ReadTextFileSource = FreeFile
Open ReadTextFile For Input As #ReadTextFileSource
ReadTextFile2 = Input$(LOF(1), 1)
Close
ReadTextFileFetchDataMain = ReadTextFile2

End Function

تنزيل ملف اكسل!Read_Text_File_Fetch_Data.xls