كيفية استخراج معلومات من ورقة Excel مع DAO

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

اضغط هنا لرابط المقالة باللغة الانجليزية190195
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الموجز
لا يقوم برنامج تشغيل ISAM Excel بتحويل أنواع البيانات بشكل حيوي.
معلومات أخرى
إذا كان هناك عمود في جدول Excel الذي يحتوي على النص والأرقام ISAM لن تتمكن تفسير نوع البيانات التي يجب أن تكون بشكل صحيح. تأكد من أن يتم تنسيق كافة الخلايا في عمود أن يكون نوع البيانات نفسه. على سبيل المثال، قد يكون لديك التالية البيانات في أربعة أعمدة في ورقة Excel:
   male   female children teens   11     cc     78       ee   22     xx     33       ff   45     uu     56       oo				

عند محاولة قراءة البيانات من خلال برنامج تشغيل ISAM مقابل ورقة كاملة سوف تحصل على قيم خالية للصف الأول. إذا كنت ترغب في تجنب هذا إنشاء نطاقات مسماة: يحتوي على واحد في معلومات رأس والأخرى التي تحتوي على معلومات البيانات. على سبيل المثال:
   named range 'myRange1' :   male     female    children     teens   named range 'myRange2' :   11   cc   78   ee   22   xx   33   ff   45   uu   56   oo				

الآن يمكنك الاتصال إلى Excel ومعلومات الطلب من معينة النطاق المسمى فقط. ومع ذلك، في نطاق واحد عمود معين يمكن أن تحتوي على نوع واحد من البيانات.

كيفية إنشاء نطاق

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

لاسترداد البيانات الخاصة بك استخدام اسم النطاق الذي قمت بإنشائه الآن اسم الجدول في عبارة حدد.

خطوات Excel

  1. إنشاء ملف Excel test.XLS ، باستخدام البيانات التالية في sheet1:
       excel File : test.xls with the following entries:        male  female    children   teens         11    cc       78           ee         22    xx       33           ff         45    uu       56           oo					
  2. إنشاء نطاق مسمى myRange1 و myRange2, في الورقة التي تحتوي على البيانات المناسبة.
          named range : myRange1      male female children teens      named range  : myRange2      11     cc   78   ee      22     xx   33   ff      45     uu   56   oo					

خطوات Visual Basic

  1. إنشاء مشروع EXE قياسي جديد يسمى "DAO_EXCEL."
  2. من القائمة المشروع انقر "مراجع" ومن ثم حدد خانة الاختيار مكتبة 3.5 Microsoft DAO.
  3. قم بوضع CommandButton في النموذج.
  4. قم بلصق التعليمة البرمجية التالية في إطار التعليمات البرمجية النموذج:
          private Sub Command_click1      im dbtmp As DAO.Database      im tblObj As DAO.TableDef      im rs As DAO.Recordset      et dbtmp = OpenDatabase_           ("<complete path>\test.xls", False, True, "Excel 8.0;")      DoEvents      Set rs = dbtmp.OpenRecordset("select * from `myRange2`")      While Not rs.EOF          For x = 0 To rs.Fields.Count - 1              Debug.Print rs.Fields(x).Value          Next          rs.MoveNext      Wend      End Sub      Note the reverse apostrophe "`" while specifying the range      name(myrange2).					
وتكون النتائج التالية كما هو متوقع:
  11  cc  78  ee  22  xx  33  ff  45  uu  56  oo				
مراجع
الرجاء الرجوع إلى الوثائق لمعرفة كيفية الاتصال بـ Excel من خلال DAO. سيتم مرجع جيدة آخر ADO القادمة-> مرجع Excel.

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 190195 - آخر مراجعة: 12/05/2015 09:01:33 - المراجعة: 2.3

Microsoft Visual Basic 6.0 Learning Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition, The DAO SDK

  • kbnosurvey kbarchive kbmt kbdatabase kbhowto kbiisam KB190195 KbMtar
تعليقات