نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية استيراد ملفات نصية إلى Excel كصفحات منفصلة مع الأسماء الأصلية في Excel؟

هل سبق لك أن حاولت استيراد ملفات نصية إلى Excel كصفحات منفصلة بأسماء الملفات الأصلية في Excel؟ في هذه المقالة ، أعرض رمز VBA بسرعة استيراد ملفات نصية من مجلد واحد إلى Excel مع الأسماء.
doc import text as original name 1

استيراد ملفات نصية إلى Excel بأسماء

تقسيم أوراق عمل متعددة بسرعة إلى مصنف منفصل في إكسيل

في ميكروسوفت إكسيل، يمكنك حفظ أو تقسيم ورقة عمل من مصنف واحد كملف إكسيل جديد عن طريق نسخ ورقة العمل هذه ولصقها في مصنف جديد. يبدو مزعجا، إذا كنت ترغب في تقسيم كل ورقة / ورقة عمل من مصنف كبير كما إكسل منفصلة، ​​تكست، كسف، ملفات بدف. ولكن مع كوتولس ل إكسيلالصورة سبليت وركبوك فائدة، يمكنك التعامل بسرعة معها. انقر لمدة شنومك أيام تجريبية مجانية!
دوك سبليت وركبوك شنومكس
كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومك.

استيراد ملفات نصية إلى Excel بأسماء

1. قم بتمكين Excel ، اضغط ALT + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات ثم انقر فوق إدراج > وحدة.
doc import text as original name 2

2. نسخ ولصق تحت الرمز إلى وحدة النصي.

VBA: استيراد ملفات نصية بأسماء

Sub LoadPipeDelimitedFiles () 'UpdatebyExtendoffice20181010 Dim xStrPath باسم سلسلة تبهيت xFileDialog باسم FileDialog DimF xFile باسم سلسلة Dim Dim xCount باسم طويل Dim xWS باسم ورقة عمل على خطأ GoTo ErrHandler Set xFileDialog = Application.FileDialog (msoFileDialogFolderPicker) xFileDialog.AllowMultiSelect = False xFileDialog.Title = "تحديد مجلد [Kutools for Excel] "إذا كان xFileDialog.Show = -1 ثم xStrPath = xFileDialog.SelectedItems (1) End If If xStrPath =" "قم بإنهاء Sub Application.ScreenUpdating = False xFile = Dir (xStrPath &" \ *. txt "هل أثناء xFile <>" "xCount = xCount + 1 Set xWS = Sheets (xCount) xWS.Select xWS.Name =" TEXT "& Left (xFile، Len (xFile) - 4) مع ActiveSheet.QueryTables.Add ( Connection: = "TEXT؛" _ & xStrPath & "\" & xFile، Destination: = Range ("A1")) .Name = "a" & xCount .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = صحيح .AdjustColumnWidth = .RefreshPeriod صحيح = 0 .TextFilePromptOnRefresh = خطأ .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = خطأ .TextFileTabDelimiter = .TextFileSemicolonDelimiter خطأ = .TextFileCommaDelimiter خطأ = خطأ .TextFileSpaceDelimiter = خطأ. TextFileOtherDelimiter = "|" .TextFileColumnDataTypes = صفيف (1 ، 1 ، 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery: = False xFile = Dir End with Loop Application.ScreenUpdating = True Exit Sub ErrHandler: MsgBox "لا توجد ملفات txt" ، ، "Kutools for Excel" End الفرعية

3. صحافة F5 لتشغيل الرمز ، ثم حدد مجلدًا يحتوي على ملفات نصية تريد استيرادها إلى Excel في حدد مجلدا الحوار.
doc import text as original name 3

4. انقر OK، تم استيراد ملفات نصية في المجلد في Excel كصفحة واحدة بأسمائها الخاصة.


الاستعراض المبوب وتحرير العديد من مستندات Word / مصنفات Excel مثل Firefox ، Chrome ، استكشاف الإنترنت 10!

قد تكون معتادًا على عرض صفحات ويب متعددة في Firefox / Chrome / IE ، والتبديل بينها بالنقر على علامات التبويب المقابلة بسهولة. هنا ، يدعم Office Tab عملية المعالجة المماثلة ، والتي تسمح لك باستعراض مستندات Word متعددة أو مصنفات Excel في نافذة Word واحدة أو نافذة Excel ، والتبديل بينها بسهولة عن طريق النقر فوق علامات التبويب الخاصة بها.
انقر على نسخة تجريبية مجانية من تبويب أوفيس!

تصفح وثائق كلمة متعددة في نافذة واحدة كما فايرفوكس

Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.