كيف يمكنني استيراد أو نسخ البيانات من مصنف مغلق إلى المصنف الحالي؟
من السهل نسخ البيانات من ورقة عمل مفتوحة ولصقها في مصنف آخر مفتوح، ولكن هل سبق أن جرّبت استيراد بيانات من مصنف مغلق إلى مصنف مفتوح؟ في هذه المقالة، سأشرح لك كيفية استيراد البيانات من مصنف مغلق.
استيراد البيانات من مصنف مغلق إلى المصنف الحالي باستخدام كود VBA
استيراد البيانات من مصنف مغلق إلى المصنف الحالي باستخدام Kutools لـ Excel
استيراد البيانات من مصنف مغلق إلى المصنف الحالي باستخدام كود VBA
قد يساعدك كود VBA التالي في نسخ البيانات من مصنف دون فتحه إلى المصنف النشط المفتوح، يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفاتيحALT + F11، وسيفتح ذلك نافذةMicrosoft Visual Basic for Applications.
2. انقر فوقإدراج > وحدة البرمجة (Module)، ثم الصق الكود التالي فينافذة الوحدة (Module Window).
كود VBA: استيراد البيانات من مصنف مغلق إلى المصنف الحالي
Sub ImportDatafromcloseworkbook()
'Updateby Extendoffice
Dim xWb As Workbook
Dim xAddWb As Workbook
Dim xRng1 As Range
Dim xRng2 As Range
Set xWb = Application.ActiveWorkbook
xTitleId = "KutoolsforExcel"
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
Application.Workbooks.Open .SelectedItems(1)
Set xAddWb = Application.ActiveWorkbook
Set xRng1 = Application.InputBox(prompt:="Select source range", Title:=xTitleId, Default:="A1", Type:=8)
xWb.Activate
Set xRng2 = Application.InputBox(prompt:="Select destination cell", Title:=xTitleId, Default:="A1", Type:=8)
xRng1.Copy xRng2
xRng2.CurrentRegion.EntireColumn.AutoFit
xAddWb.Close False
End If
End With
End Sub
3. بعد ذلك، اضغط على مفتاحF5 لتشغيل هذا الكود. وفي نافذةفتح ملف (File Open)، حدد المصنف الذي تريد استيراد بياناته. انظر لقطة الشاشة:
4. ثم انقر فوق زرفتح (Open)، وتفتح نافذة مربع حوارKutoolsforExcel لتذكيرك بتحديد نطاق البيانات الذي تريد استيراده إلى مصنف آخر. انظر لقطة الشاشة:
5.ثم انقر فوق زرموافق (OK)، وفي مربع الحوار المنبثق، حدد الخلية التي تريد وضع البيانات فيها، انظر لقطة الشاشة:
6. بعد ذلك، انقر فوق زرموافق (OK)، وستتم استيراد البيانات من المصنف المغلق إلى المصنف الحالي.
استيراد البيانات من مصنف مغلق إلى المصنف الحالي باستخدام Kutools لـ Excel
قد يبدو كود VBA صعبًا بعض الشيء لمستخدمي Excel المبتدئين، لذا نوصيكم هنا بأداة مفيدة جدًّا: Kutools لـ Excel، التي تتيح لكم —من خلال ميزتها الرائعةإدراج ملف في المؤشر— إدراج محتوى ورقة العمل بالكامل من مصنف مغلق بسرعة وسهولة.
بعد تثبيتKutools لـ Excel، يُرجى اتباع ما يلي:
1.انقر فوقKUTOOLS PLUS>استيراد/تصدير>إدراج ملف في المؤشر، انظر لقطة الشاشة:
2. في مربع حوارإدراج ملف في المؤشر، قم بالخطوات التالية:
(1.) انقر فوق الزر
لتحديد الخلية التي تريد وضع البيانات المستوردة فيها؛
(2.) انقر فوق الزر
لتحديد المصنف الذي تريد استيراد بياناته.
ملاحظة:القيمة فقط (بدون الصيغ): عند تحديد هذا الخيار، سيتم استيراد القيمة فقط دون استيراد الصيغ.
عدم نقل التنسيق: عند تفعيل هذا الخيار، يتم استيراد البيانات إلى ورقة العمل دون أي تنسيق.
3. ثم انقر فوق زرموافق (OK). إذا كان المصنف يحتوي على أكثر من ورقة عمل واحدة، فسيظهر مربع حوارحدد ورقة عمل—يرجى اختيار الورقة التي تريد استيراد بياناتها. انظر لقطة الشاشة:
4. بعد ذلك، انقر فوق زرموافق (OK)، وسيتم استيراد البيانات الموجودة في ورقة العمل المحددة إلى المصنف الحالي.
حمّل Kutools لـ Excel وجربه مجانًا الآن!
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل