تصدير بيانات الوصول إلى Excel باستخدام VBA (مع الصور والتعليمات البرمجية)
ما هذا؟
يساعدك رمز VBA هذا على تصدير البيانات وصول الجدول إلى Excel بنقرة واحدة.
لماذا هو؟
يمكنك تحميل أو تصدير بيانات Access إلى Excel دون حتى فتح مصنف Excel.
كيفية تصدير بيانات الوصول إلى Excel
الخطوة 1: افتح قاعدة بيانات الوصول إلى كود VBA منشئ (Alt + F11) وفتح وحدة نمطية جديدة.
Pin
الخطوة 2: انسخ الكود التالي وألصقه فيه.
Sub ExportToXl() عند ظهور خطأ GoTo ErrorHandler Dim dbTable As String Dim xlWorksheetPath As String xlWorksheetPath = "C:\" 'أذكر مسار xlWorkbook xlWorksheetPath = xlWorksheetPath & "xlWorkbookName.xlsx" 'استبدل 'xlWorkbookName.xlsx' باسم المصنف الخاص بك dbTable = "tblMaster" 'استبدل 'tblMaster' بالجدول الموجود في قاعدة بيانات Access الذي تريد تصدير البيانات منه DoCmd.TransferSpreadsheet Transfertype:=acExport, Spreadsheettype:=acSpreadsheetTypeExcel12, tablename:=dbTable, FileName:=xlWorksheetPath, hasfieldnames:= صحيح ErrorHandlerExit: الخروج من Sub ErrorHandler: MsgBox "رقم الخطأ: " & Err.Number & "؛ الوصف: " & Err.Description استئناف ErrorHandlerExit End Sub
الخطوه 3: انقر فوق الزر "تشغيل" أو F5 أو زر "الأمر" الذي قمت بربط هذا الرمز به!
في حالة قيامك بتعيين الكود لزر أمر، تأكد من وجود الكود ضمن Private/Public Sub_Event(); شيء من هذا القبيل أدناه
تصدير فرعي خاصToXl_Click()
تم تحميل سجلات قاعدة بيانات Access بنجاح إلى Excel، افتح مصنف Excel الخاص بك وتحقق من البيانات.
ملحوظة: تأكد من تمكين "مكتبة كائنات بيانات Microsoft ActiveX" من ملف أدوات - مراجع (استخدم أحدث إصدار [6.1 اعتبارًا من هذا المنشور]).
Pin
أنا متأكد من أنك تعمل على الكثير من بيانات Excel وMS Access وVBA، لذا فأنا بقوة أنصحك بالانضمام إلى نموذج مستخدم Ultimate Excel VBA أدناه مع قاعدة بيانات Access! إنه استثمار يستحق في نفسك! افعلها الآن!
قم ببناء برنامج العالم الحقيقي الخاص بك، وتعلم Excel الحقيقي VBA (وحدات الماكرو)، وتجاوز حدود Excel مع المشروع الكامل
2 Responses
شكرا لك على كود vba. لكنها عملت لمرة واحدة. أحصل على الخطأ التالي "خطأ رقم. 3027. لا يمكن التحديث. قاعدة البيانات أو الكائن للقراءة فقط
أريد أن ألحق بجدول البيانات شهريا. يجب أن تذهب البيانات إلى تنسيق محدد. اعتقدت أن هناك أمرًا يحتوي على وسيطات الصف/العمود. تم استخدام مساحة عمل مرة واحدة للتنقل عبر السجلات التي تنتقل إلى عنوان الخلية. هل كنت أحلم؟ شكرًا