كيفية استيراد ملف CSV إلى ورقة العمل؟
قد يكون من السهل علينا استيراد ورقة العمل أو حفظها كملف CSV ، ولكن هل سبق لك أن حاولت استيراد ملف CSV إلى ورقة العمل؟ في هذا المقال سوف أتحدث عن بعض الطرق الشيقة لتتعامل مع هذه المهمة.
استيراد ملف CSV إلى ورقة العمل باستخدام معالج استيراد النص
استيراد ملف CSV إلى ورقة العمل برمز VBA
استيراد ملف CSV إلى ورقة العمل باستخدام Kutools for Excel
استيراد ملف CSV إلى ورقة العمل باستخدام معالج استيراد النص
عادةً ، في Excel ، يمكنك تطبيق وظيفة معالج استيراد النص لاستيراد ملف CSV إلى ورقة عمل ، يرجى القيام بما يلي:
1. قم بتنشيط ورقة العمل التي تريد استيراد ملف CSV ، ثم انقر فوق البيانات > من النص، انظر لقطة الشاشة:
2. في استيراد ملف نصي نافذة ، يرجى تحديد ملف CSV الذي تريد استيراده ، انظر الصورة:
3. ثم اضغط استيراد الموجود في الخطوة 1 من ملف معالج استيراد النص، حدد محدد الخيار ، انظر لقطة الشاشة:
4. ثم اضغط التالى > زر ، في الخطوة 2 من المعالج ، تحقق فاصلة تحت المحددات الخيار ، انظر لقطة الشاشة:
5. ثم استمر في النقر التالي> زر ، في الخطوة 3 من المعالج ، حدد نص الخيار ضمن قسم تنسيق بيانات العمود ، ويمكنك رؤية العمود الأول سيتم تمييزه. ثم امسك تغير مفتاح لتسليط الضوء على جميع الأعمدة. انظر لقطة الشاشة:
6. ثم اضغط نهاية زر في المنبثقة استيراد البيانات في مربع الحوار ، اختر الموقع حيث تريد وضع البيانات ، انظر لقطة الشاشة:
7. انقر OK زر ، تم استيراد ملف CSV إلى ورقة العمل مرة واحدة.
استيراد ملف CSV إلى ورقة العمل برمز VBA
إذا مللت من الطريقة المذكورة أعلاه خطوة بخطوة ، فإن رمز VBA التالي يمكنه أيضًا حل هذه المشكلة.
1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا : استيراد ملف 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 الذي تريد استيراده في الملف المنبثق كوتولس ل إكسيل الحوار ، انظر لقطة الشاشة:
4. ثم اضغط ساعات العمل ، وانقر فوق خلية حيث تريد وضع البيانات المستوردة ، انظر الصورة:
5. ثم انقر فوق OK، فقد تم استيراد ملف CSV المحدد إلى ورقة العمل.
استيراد ملف CSV إلى ورقة العمل باستخدام Kutools for Excel
إذا كان لديك كوتولس ل إكسيل، بما لديها إدراج ملف في المؤشر يمكنك استيراد ملف CSV أو ملف نصي أو ملف Excel أو ملف PRN بسرعة إلى ورقة العمل الحالية.
كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. |
بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:
1. قم بتنشيط ورقة عمل حيث تريد استيراد بيانات ملف CSV.
2. ثم اضغط كوتولس بلس > استيراد و تصدير > إدراج ملف في المؤشر، انظر لقطة الشاشة:
3. في مجلة إدراج ملف في المؤشر مربع الحوار ، يرجى القيام بالخيارات التالية:
(1.) انقر زر لتحديد خلية حيث تريد إخراج البيانات ؛
(2.) ثم انقر فوق تصفح زر لفتح تحديد ملف لإدراجه في نافذة موضع مؤشر الخلية ؛
(3.) في النافذة المنبثقة ، اختر ملفات كسف من القائمة المنسدلة السفلية اليمنى ، ثم حدد ملف CSV الذي تريد استيراده.
4. بعد تحديد ملف CSV ، انقر فوق ساعات العمل للعودة إلى مربع الحوار السابق ، ثم انقر فوق موافق OK لاستيراد ملف CSV. وسيتم إدراج ملف CSV في الموقع المحدد الذي تحتاجه.
انقر لمعرفة المزيد حول ميزة "إدراج ملف في المؤشر" ...
قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!
العرض التوضيحي: استيراد ملف CSV إلى ورقة العمل باستخدام Kutools for Excel
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!