Note: The other languages of the website are Google-translated. Back to English

كيفية تحويل ملفات CSV متعددة إلى ملفات XLS (X) دفعة واحدة في إكسيل؟

من السهل جدًا تحويل ملف CSV إلى ملف XlS أو XLSX من خلال تطبيق ميزة Save As. ومع ذلك ، فإن تحويل ملفات CSV متعددة إلى ملفات XLS أو XLSX من مجلد يستغرق وقتًا طويلاً عن طريق حفظ واحدًا تلو الآخر يدويًا. أقدم هنا رمز ماكرو لتحويل جميع ملفات CSV بسرعة إلى ملفات XLS (x) من مجلد.

دفعة تحويل ملفات CSV إلى ملفات XlS (X) برمز الماكرو


دفعة تحويل ملفات CSV إلى ملفات XlS (X) برمز الماكرو

لتحويل ملفات CSV متعددة من مجلد واحد إلى ملفات XLS (X) ، يمكنك القيام بالخطوات التالية:

1. قم بتمكين مصنف جديد ، اضغط على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة، وانقر فوق إدراج > وحدة. انظر لقطة الشاشة:
دفعة doc تحويل السير الذاتية xls 1

ملاحظة: تأكد من إغلاق جميع ملفات CSV التي تريد تحويلها.

2. ثم الصق رمز الماكرو أدناه في ملف وحدة النصي والصحافة F5 مفتاح لتشغيل الكود.

VBA: تحويل CSV إلى XLS

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

3. في مربع الحوار المنبثق ، حدد المجلد المحدد الذي يحتوي على ملفات CSV التي تريد تحويلها. انظر لقطة الشاشة:
دفعة doc تحويل السير الذاتية xls 2

4. انقر OK، تم تحويل جميع ملفات CSV في المجلد المحدد إلى ملفات XLS فيه.
دفعة doc تحويل السير الذاتية xls 3

معلومه- سرية: إذا كنت تريد تحويل ملفات CSV إلى ملفات XLSX ، فأنت تستخدم رمز VBA أدناه.

VBA: تحويل ملفات CSV إلى XLSX

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

قم بتحويل أو تصدير نطاق من الورقة بسرعة لفصل ملفات XLS / Word / PDF أو ملفات التنسيق الأخرى في وقت واحد

عادة ، لا يدعمك Excel بخيار تصدير نطاق أو حفظه بسرعة كملف CSV أو Excel. إذا كنت تريد حفظ نطاق من البيانات كملف CSV أو مصنف في Excel ، فقد تحتاج إلى استخدام VBA Macro للقيام بذلك أو لنسخ النطاق إلى الحافظة ولصقه في مصنف جديد ثم حفظ المصنف كملف CSV أو دفتر العمل. كوتولس ل إكسيل يضاعف Excel مع نطاق التصدير إلى ملف فائدة لمستخدمي Excel الذين يرغبون في معالجة العمليات التالية بسرعة :  انقر ل 30نسخة تجريبية مجانية كاملة المواصفات لمدة يوم!
doc تصدير نطاق خلية إلى ملف
 
Kutools for Excel: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود 30 يوما.

مقالات ذات صلة:


أفضل أدوات إنتاجية المكتب

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

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

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (38)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أريد أن أفعل العكس - تحويل XLS إلى CSV. هل هذا البرنامج النصي يعمل؟
CSVtoXLS فرعي ()
'تحديث بواسطةExtendoffice20170814
خافت xFd كملف الحوار
خافت xSPath كسلسلة
خافت xXLS ملف كسلسلة
خافت xWsheet كسلسلة
Application.DisplayAlerts = خطأ
Application.StatusBar = صحيح
xWsheet = ActiveWorkbook.Name
قم بتعيين xFd = Application.FileDialog (msoFileDialogFolderPicker)
xFd.Title = "حدد مجلدًا:"
إذا كان xFd.Show = -1 ثم
xSPath = xFd.SelectedItems (1)
آخر
خروج الفرعية
إنهاء حالة
إذا كان صحيحًا (xSPath، 1) <> "\" ثم xSPath = xSPath + "\"
xXLSFile = Dir (xSPath & "* .xls")
القيام أثناء xXLSFile <> ""
Application.StatusBar = "التحويل:" & xXLSFile
المصنفات. اسم الملف المفتوح: = xSPath & xXLSFile
ActiveWorkbook.SaveAs استبدال (xSPath & xXLSFile، ".xls"، ".csv"، vbTextCompare) ، xlNormal
ActiveWorkbook. إغلاق
Windows (xWsheet). تنشيط
xXLSFile = دير
أنشوطة
Application.StatusBar = خطأ
Application.DisplayAlerts = صحيح
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تحويل فرعي CSVToXlsx ()



خافت myfile كسلسلة

خافت الاسم القديم كسلسلة ، الاسم الجديد كسلسلة

ملف عمل خافت

خافت اسم المجلد كسلسلة



Application.DisplayAlerts = خطأ

Application.ScreenUpdating = خطأ



اسم الالتقاط للملف الحالي

myfile = ActiveWorkbook.Name



تعيين اسم المجلد للعمل من خلاله

اسم المجلد = "D: \ tmp \"



"تكرار خلال جميع ملفات CSV في المجلد

ملف العمل = Dir (folderName & "* .CSV")

القيام أثناء ملف العمل <> ""

افتح ملف CSV

Workbooks.Open Filename: = اسم المجلد & ملف العمل

"التقاط اسم ملف CSV القديم

oldfname = ActiveWorkbook.FullName

"التحويل إلى XLSX

newfname = folderName & Left (ActiveWorkbook.Name، Len (ActiveWorkbook.Name) - 4) & ".xlsx"

ActiveWorkbook.SaveAs Filename: = newfname، FileFormat: = xlOpenXMLWorkbook، CreateBackup: = صحيح

ActiveWorkbook. إغلاق

"حذف ملف CSV القديم

اقتل الاسم القديم

ويندوز (ملفي)

ملف العمل = Dir ()

أنشوطة



Application.DisplayAlerts = صحيح

Application.ScreenUpdating = ترو



نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
"نصيحة: إذا كنت تريد تحويل ملفات CSV إلى ملفات XLXS ، فما عليك سوى تغيير .xls إلى .xlsx في الماكرو ActiveWorkbook.SaveAs Replace (xSPath & xCSVFile،" .csv "،" .xls "، vbTextCompare)."

لقد جربت ذلك ، ولم يتمكن Excel من فتح الملفات الناتجة. تلقيت الرسالة التالية: "لا يمكن لـ Excel فتح الملف 'filename.xlsx' لأن تنسيق الملف أو امتداد الملف غير صالح. تحقق من أن الملف لم يتلف وأن امتداد الملف يطابق تنسيق الملف."

ومع ذلك ، نجح البرنامج النصي في التحويل إلى .xls.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لم أجد هذه المشكلة من قبل ، أشكركم على تعليقك الصحيح. لقد صححت الحافة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

البرنامج النصي الخاص بك رائع ولكنه لا يحول ملف csv مفصولاً بفواصل منقوطة. هل يمكنك نشر حل لهؤلاء؟

شكراً لك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
آسف , هنا ليس لدي أي حل ، ربما يمكنك وضع سؤالك في منتدانا ، قد يساعدك شخص آخر. https://www.extendoffice.com/forum.html
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ربما أتأخر ، لقد حصلت للتو على المشكلة حيث كنت بحاجة إلى تحويل ملفات CSV بالفواصل المنقوطة وأضفتها إلى الكود وعملت آمل أن يساعد هذا شخصًا ما

تغيير 'Workbooks.Open Filename: = xSPath & xCSVFile' بواسطة 'Workbooks.Open Filename: = xSPath & xCSVFile، Delimiter: = "؛"، Local: = True'
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد استخدمت ملف csv متعدد إلى xls متعددة ولكن حصلت على ملفات xls de csv خاطئة ؛ معلومات منفصلة ولكنها تصبح معًا في خلايا. كيف يمكن حل هذا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يمكن أن يدعم الرمز ملف csv بفاصلة مفصولة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما أعطيت اسم المجلد ، قال البرنامج ، "لا توجد ملفات تطابق بحثك." ولكن هناك 2,609 ملفات .csv في المجلد
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الكود لا يدعم ملف csv بفاصلة منفصلة ، هل ملفاتك في هذه الحالة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

مقال رائع - شكرا لك! تقريبا يعمل بالنسبة لي.

ها هي المشكلة: لدي ملف csv محدد بشُرط رأسية. لقد قمت بتغيير محدد الإطارات الافتراضي (عبر لوحة التحكم / الإعدادات الإقليمية) إلى "|". لذلك ، عندما أقوم بفتح ملف csv باستخدام Excel ، يتم فتحه ، ويقرأ الحقول ويوزعها مباشرة إلى الأعمدة بشكل صحيح. كل ما علي فعله هو الحفظ بتنسيق xls أو xlsx. عندما ألقي نظرة على الكود الخاص بك ، يجب أن يكون هذا ما يفعله الكود: فهو يفتح ملفات csv في مجلد ، ويحفظها بتنسيق xls أو xlsx ، ويتكرر الحلقات فوق ذلك.

هذه هي المشكلة: عندما أقوم بفتح ملفات Excel هذه ، لا تزال محددات الأنابيب موجودة ، ولا يتم تحليل أي شيء للأعمدة. كان هذا هو السلوك كما كان من قبل التغيير الذي أجريته على الإعداد الافتراضي لأنبوب محدد في إعدادات Windows. لذلك يبدو أن Excel لا يستخدم إعدادات Windows هذه. لقد تحققت من ذلك من خلال استبدال محددات الأنابيب بمحددات الفاصلة في نسخة من الملف - من الملفين ، بقيت الخطوط المحددة بدون تحليل ، وتم تحويل الفاصلة المحددة على ما يرام.

هل هناك أي فكرة عن مكان العثور على الفاصلة المضمنة في Excel أو تغييرها ، أو ما إذا كانت هناك طريقة في الكود للقيام بذلك؟ أفضل عدم الاضطرار إلى إجراء بحث واستبدال ، ثم حفظ ...

شكرا المفوض السامي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا كنت تريد تقسيم البيانات إلى عمود استنادًا إلى محدد الأنبوب في Excel ، فما عليك سوى استخدام وظيفة Text to Columns لتقسيم البيانات بواسطة / بعد تغطية ملفات csv إلى xls.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا تجعل الشفرة مفيدة حقًا لملفات Excel.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، البرنامج النصي الرائع الذي نجح معي بعد تجربة جميع البرامج النصية الأخرى المتوفرة في google. لقد أضفت عددًا قليلاً من الأسطر التي تؤدي النص إلى عملية الأعمدة التي أريدها. هل يمكن لأي شخص مساعدتي في كيفية تعديل البرنامج النصي عن طريق تحديد موقع المجلد في محرك الأقراص المحلي بدلاً من فتح مربع الحوار لأنني أقوم بالفعل بأتمتة النظام
. شكرا لك مقدما
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Hi
هل يمكنك مشاركة النص الذي ينفذ النص على الأعمدة ؟؟
تحياتي الحارة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
سيناريو رائع بعد البحث في جميع النصوص الأخرى المتوفرة في جوجل. يمكن لأي شخص أن يساعد في كيفية تعديل هذا البرنامج النصي عن طريق تحديد موقع المجلد في محرك الأقراص المحلي بدلاً من السماح له بفتح مربع الحوار لأنني أقوم بالفعل بأتمتة النظام. شكرا لك مقدما
تم تصغير هذا التعليق بواسطة المشرف على الموقع
القليل من التعليمات البرمجية. مفيد جدا. إذا لم أكن مخطئًا ، فإن رمز .xlsx يبدو هو نفسه رمز .xls.

هذا الخط:
ActiveWorkbook.SaveAs استبدال (xSPath & xCSVFile ، ".csv" ، ".xls" ، vbTextCompare) ، xlWorkbookDefault

أفترض أنه يجب أن يكون: ".csv" ، ".xlsx" ، vbTextCompare وما إلى ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد قمت بتغيير الرمز الموضح أعلاه ؛ الآن يعمل البرنامج النصي كما هو متوقع: يقوم بإنشاء ملفات xlsx
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا لم تفعل. لا يزال يقول xls في كلا الإصدارين.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يُظهر هذا الماكرو ملف CSV الخاص بي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تتمثل إحدى المشكلات الصغيرة في هذا الرمز في أنه يمكن فقد بعض الدقة (عدد الكسور العشرية) عند فتح ملف csv وحفظه كـ xlsx.
طريقة منع ذلك هي تحديد جميع الخلايا مباشرة بعد الفتح ، وتعيين عدد المنازل العشرية إلى المقدار المطلوب (15 بالنسبة لي شخصيًا) ، ثم * الحفظ كـ xlsx

بخلاف ذلك ، يحتوي xlsx على تفاصيل أقل (دقة أقل من حيث الكسور العشرية) من ملف csv الأصلي ، مما قد يؤدي إلى حدوث مشكلات في بعض التطبيقات
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يغير تنسيق عمود التاريخ الخاص بي من dd-mm-yyyy إلى dd / mm / yyyy ، من فضلك يمكن لأي شخص المساعدة في كيفية منع هذا البرنامج النصي من تغيير تنسيقات الأعمدة.
شكرا جزيلا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، viper ، بعد التحويل ، يمكنك إعادة تنسيقها وتحديد التواريخ والنقر بزر الماوس الأيمن لاختيار تنسيق الخلايا من قائمة السياق ، في مربع الحوار Format Celld ، ضمن علامة التبويب Number ، انقر فوق Custom في قائمة Category ، ثم اكتب mm-dd- yyyy في مربع النص في القسم الأيمن. أو إذا كان لديك Kutools for Excel ، فقم بتطبيق تنسيق التاريخ لتغيير تنسيق التاريخ حسب حاجتك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مقالة رائعة. كيف يمكنني حفظ جميع الملفات المحولة في مكان جديد؟ هل يمكنك تحديث الكود وإرساله إلي. مثل السماح للمستخدم باختيار مجلد الوجهة الخاص به.


شكر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لديك خطأ في السطر 22 من ملف csv إلى xlsx
مع خطأ - استبدال ActiveWorkbook.SaveAs (xSPath & xCSVFile ، ".csv" ، ".xls" ، vbTextCompare) ، xlWorkbookDefault
تم التصحيح - استبدال ActiveWorkbook.SaveAs (xSPath & xCSVFile ، ".csv" ، ".xslx" ، vbTextCompare) ، xlWorkbookDefault
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لتذكيرك ، لقد قمت بتحديثه ، شكرا مرة أخرى.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ظهرت لي رسالة الخطأ "لم يتم تعيين متغير الكائن أو متغير الكتلة" لهذا السطر:
xFd.Title = "/Users/[my.name]/Documents/[myFolder]" >> هذا هو مسار مجلد معين على جهاز الكمبيوتر حيث أقوم بالتحويل (يحتوي المجلد على مجموعة من ملفات csv )

أفعل شيئا خطأ هنا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا يعمل بالنسبة لي ، لكن امتداد الملف لا يتغير. أي نصائح؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نفس الشيء بالنسبة لي - تظل جميع الملفات بتنسيق csv.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تم حفظ جميع ملفات csv التي تختارها كملفات Excel جديدة ، ولا تتغير الملفات الأصلية (csv) ، وهناك ملفات Excel جديدة بنفس المحتويات موجودة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كان لي نفس المشكلة. إذا كان الملف المصدر الخاص بك يحتوي على امتداد بأحرف كبيرة (.CSV) فإنه لا يعمل. فقط استبدل csv. إلى .CSV في الكود في السطر 22 وبعد ذلك يجب أن يعمل. حسنًا ، على الأقل بالنسبة لي فعلت.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني دمج التعليمات البرمجية في روتين ملف دفعي XLSX لفصل الفاصلة المنقوطة البيانات في أعمدة منفصلة؟ تحول الشفرة المشتركة الملف من .csv إلى .xlsx ، لكنها لا تفصل البيانات في أعمدة منفصلة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نعم إنه لا يعمل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رفاق صباح الخير

Adiciona a lo que hace el script، quisiera poder convertir inmediatamente el texto en columnas، por la opción que no es delimitado por ningún tipo de caracter، adicional los tamaños de las columnas son diferentes. Vale la pena aclarar que si tomo cada archivo poreparado y le aplico la opción de texto en columnas، bajo esa opción los puedo convertir sin problemas، abriéndolos uno por uno، pero si grabo esa macro y le aplico la misma macro a todos، include usando la opción de "USAR REFERENCIAS RELATIVAS"، no hace el proceso bien، porque el graba las posiciones de la delimitación del archivo que uso de ejemplo، pero necesito que lo aplique nuevo a cada archivo، esriera sievo y le hiciera manualmente la opción de delimitación y no aplique los valores de ubicación de las columnas identificados en el archivo ejemplo.

Ya inserte esa opcion en este archivo، sin blockgo pasa lo que indico en la lineas arriba، solo Requiero sabre como puedo hacer para aplicar la convert a cada archivo، applicando la delimitacion del campo como su fuera un archivo nuevo.


المصنفات. اسم الملف المفتوح: = xSPath & xCSVFile
ActiveWorkbook.SaveAs استبدال (xSPath & xCSVFile ، ".csv" ، ".xlsx" ، vbTextCompare) ، xlWorkbookDefault

ESTA PARTE ES LA QUE AGREGUE APLICANDO EL FORMATO DEL TEXTO A COLUMNAS

StartRow: = 1، DataType: = xlFixedWidth، FieldInfo: = Array (Array (0، 1)، Array (18 _
، 1)، Array (38، 1))، TrailingMinusNumbers: = صحيح
ActiveCell.Cells. حدد
ActiveCell.Cells.EntireColumn.AutoFit
ActiveCell.Offset (1، 0). Range ("A1"). حدد
ActiveWorkbook. حفظ

اتفاق HASTA AQUI YO

ActiveWorkbook. إغلاق
Windows (xWsheet). تنشيط
xCSVFile = دير

أنشوطة
Application.StatusBar = خطأ
Application.DisplayAlerts = صحيح
نهاية الفرعية

No se si me hago explicar bien، pero es mi problema.
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL