كيفية استيراد ملف CSV إلى ورقة العمل؟

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

استيراد ملف CSV إلى ورقة العمل باستخدام معالج استيراد النصوص

استيراد ملف CSV إلى ورقة العمل باستخدام Kutools لـ Excel

استيراد ملف CSV إلى ورقة العمل باستخدام كود VBA

استيراد ملف CSV إلى ورقة العمل باستخدام معالج استيراد النصوص

عادةً، في برنامج Excel، يمكنك استخدام وظيفة معالج استيراد النصوص لاستيراد ملف CSV إلى ورقة العمل، يرجى اتباع الخطوات التالية:

1. قم بتفعيل ورقة العمل التي تريد استيراد ملف CSV إليها، ثم انقر فوق البيانات > من النص، انظر إلى لقطة الشاشة:

2. في نافذة استيراد ملف النص، يرجى تحديد ملف CSV الذي تريد استيراده، انظر إلى لقطة الشاشة:

3. بعد ذلك انقر على زر الاستيراد، في الخطوة الأولى من معالج استيراد النصوص، حدد خيار الفاصل، انظر إلى لقطة الشاشة:

4. بعد ذلك انقر على زر التالي >، في الخطوة الثانية من المعالج، تحقق من وجود فاصلة تحت خيار الفواصل، انظر إلى لقطة الشاشة:

5. بعد ذلك استمر بالنقر على زر التالي >، في الخطوة الثالثة من المعالج، حدد خيار النص تحت قسم تنسيق بيانات العمود، ويمكنك رؤية أن العمود الأول سيتم تمييزه. ثم اضغط مع الاستمرار على مفتاح Shift لتمييز جميع الأعمدة. انظر إلى لقطة الشاشة:

6. بعد ذلك انقر على زر إنهاء، في مربع الحوار المنبثق استيراد البيانات، اختر الموقع الذي تريد وضع البيانات فيه، انظر إلى لقطة الشاشة:

7. انقر على زر موافق، سيتم استيراد ملف CSV إلى ورقة العمل على الفور.

استيراد ملف CSV إلى ورقة العمل باستخدام Kutools لـ Excel

إذا كان لديك Kutools لـ Excel، باستخدام أداة إدراج الملف عند المؤشر، يمكنك استيراد ملف CSV، ملف نصي، ملف Excel أو ملف PRN بسرعة إلى ورقة العمل الحالية.

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

1. قم بتفعيل ورقة العمل حيث تريد استيراد بيانات ملف CSV.

2. ثم انقر فوق Kutools Plus > استيراد وتصدير > إدراج الملف عند المؤشر، انظر إلى لقطة الشاشة:

3. في مربع الحوار إدراج الملف عند المؤشر، يرجى القيام بالخيارات التالية:

(1.) انقر على الزر لتحديد الخلية التي تريد إخراج البيانات إليها؛

(2.) ثم انقر على زر تصفح لفتح نافذة تحديد ملف ليتم إدراجه في موقع مؤشر الخلية؛

(3.) في النافذة المنبثقة، اختر ملفات CSV من القائمة المنسدلة أسفل اليمين، ثم حدد ملف CSV الذي تريد استيراده.

4. بعد تحديد ملف CSV، انقر على زر فتح للعودة إلى مربع الحوار السابق، ثم انقر على موافق لاستيراد ملف CSV. وسيتم إدراج ملف CSV في الموقع المحدد الذي تحتاج إليه.

قم بتنزيل Kutools لـ Excel الآن وجرّبه مجانًا!

استيراد ملف CSV إلى ورقة العمل باستخدام كود VBA

إذا كنت قد سئمت من الطريقة خطوة بخطوة أعلاه، فإن الكود التالي VBA يمكن أن يحل هذه المشكلة أيضًا.

1. اضغط مع الاستمرار على مفتاحي ALT + F11، وسيتم فتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: استيراد ملف CSV إلى ورقة العمل:

Sub ImportCSVFile()
'Updateby Extendoffice
    Dim xFileName As Variant
    Dim Rg As Range
    Dim xAddress As String
    xFileName = Application.GetOpenFilename("CSV File (*.csv), *.csv", , "Kutools for Excel", , False)
    If xFileName = False Then Exit Sub
    On Error Resume Next
    Set Rg = Application.InputBox("please select a cell to output the data", "Kutools for Excel", Application.ActiveCell.Address, , , , , 8)
    On Error GoTo 0
    If Rg Is Nothing Then Exit Sub
    xAddress = Rg.Address
    With ActiveSheet.QueryTables.Add("TEXT;" & xFileName, Range(xAddress))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 936
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    End Sub

3. ثم اضغط على مفتاح F5 لتشغيل هذا الكود، واختر ملف CSV الذي تريد استيراده في مربع الحوار المنبثق Kutools لـ Excel، انظر إلى لقطة الشاشة:

4. بعد ذلك انقر على زر فتح، ثم انقر على خلية حيث تريد وضع البيانات المستوردة، انظر إلى لقطة الشاشة:

5. وبعد ذلك انقر على موافق، سيتم استيراد ملف CSV المحدد إلى ورقة العمل.