طريقة لاستيراد بيانات من اكسيل إلى اكسيس

[علي المصري]

أرفق لحضراتكم ملف به التالي

تصدير الجداول او التقارير إلى اكسيل أو pdf

استيراد بيانات من اكسيل بشرط نفس الترتيب للأعمدة ونفس المسميات للأعمدة إلى جدول في اكسيس مع حذف البيانات القديمة الموجودة به

Private Sub Command7_Click()
On Error GoTo Err_Command7_Click
 Dim Filepath As String
 
Filepath = CurrentProject.Path & "\StudentData.xlsx"
 
DoCmd.SetWarnings False
DoCmd.OpenQuery "Query1", acViewNormal, acReadOnly
DoCmd.TransferSpreadsheet acImport, , "Table1", Filepath, True
    
Exit_Command7_Click:
    Exit Sub
 
Err_Command7_Click:
 MsgBox "the file not exist"
    
    Resume Exit_Command7_Click
    DoCmd.SetWarnings True
    
End Sub

إذا اردت ان تعمل عملية اضافة فقط مع ابقاء البيانات القديمة احذف السطر التالي من الكود

DoCmd.OpenQuery "Query1", acViewNormal, acReadOnly

ارجو ان يكون مفيد

 

 

 

الرابط التالي على ميديا فير

 

اضغط هنا

[ابو الآء]

بارك الله فيك

وجعله فى ميزان حسناتك

[ابو الآء]

استاذى الفاضل

هل يمكن تحديد مساؤ ملف الاستيراد بنفسى 

يعنى يكون مش متحدد فى الكود

ثانيا هل يمكت تحديد الجدول للتصدير

يعنى لما اختار تصدير مثلا ييجى ليا قائمه بكل ما يمكن تصديره من البرنامج واحدد انا المطلوب تصديره هل هذا ممكن

بتواجهنى مشكله فى التصدير الى بي دى اف وهى _التنسيق الذى تحاول اخراج الكائن به غير متوفر

[علي المصري]

الاستا الفاضل ابوالآءشكرا جزيلا

جزاك الله خيرا

 

بالنسبة لطلبك حاولت فيه على حد خبرتي في الاكسس ولم استطع الوصول إليه

 

ممكن أحد أعضاء المنتدى الكرام يقوم بذلك إن شاء الله

[ابو الآء]

الف شكر استاذى الفاضل

بارك الله فيك