نقل بيانات من الاكسل الي الاكسس

[eidgs]

السلام عليكم

 

لدي بيانات كثيرة على ملف اكسل هل يمكن نقلها مره واحدة الي الاكسس

 

تحياتي

[Shivan Rekany]

34 دقائق مضت, eidgs said:

لدي بيانات كثيرة على ملف اكسل هل يمكن نقلها مره واحدة الي الاكسس

نعم

[eidgs]

ممكن شرح كفية النقل

[فقير ومشتري الدنيه بضحكتي]

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

1- اختر انشاء - مايكرو واختر  import export spreadsheet

2- املا الحقول وكالتالي 

transfer type     استيراد  او import

spreadsheet  type     excel workbook

table name      اختر اسم الجدول الموجود في برنامج الاكسيس المراد استيراد البيانات اليه 

file name      فتح ملف  اهم شي مسار الملف الاكسيل يمكنك ان تجعله ثابت او متغير عن طريق صندوق حوار 

has field name    تختار نعم وهذا يعني ان البيناتا التي سوف تستوردها لها عنوان 

 احفظ المايكرو باسم ما مثلا 111

انشيء زر واكتب الكود التالي 

On Error GoTo t:
Dim diag As FileDialog
Set diag = Application.FileDialog(msoFileDialogFilePicker)
diag.AllowMultiSelect = False
diag.title = "اختر ملف اكسيل "
diag.Filters.Clear
diag.Filters.Add "excel file", "*.xls*"
If diag.Show Then
Me.t22 = diag.SelectedItems.Item(1)       للتوضيح هنا عملت مربع نص اسميته t22 لعرض مسار ملف الاكسيل 
'DoCmd.SetWarnings False
DoCmd.RunMacro "111"   تنفيذ المايكرو          
End If
t: MsgBox Err.Description

[فقير ومشتري الدنيه بضحكتي]

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

1- اختر انشاء - مايكرو واختر  import export spreadsheet

2- املا الحقول وكالتالي 

transfer type     استيراد  او import

spreadsheet  type     excel workbook

table name      اختر اسم الجدول الموجود في برنامج الاكسيس المراد استيراد البيانات اليه 

file name      فتح ملف  اهم شي مسار الملف الاكسيل يمكنك ان تجعله ثابت او متغير عن طريق صندوق حوار 

has field name    تختار نعم وهذا يعني ان البيناتا التي سوف تستوردها لها عنوان 

 احفظ المايكرو باسم ما مثلا 111

انشيء زر واكتب الكود التالي 

On Error GoTo t:
Dim diag As FileDialog
Set diag = Application.FileDialog(msoFileDialogFilePicker)
diag.AllowMultiSelect = False
diag.title = "اختر ملف اكسيل "
diag.Filters.Clear
diag.Filters.Add "excel file", "*.xls*"
If diag.Show Then
Me.t22 = diag.SelectedItems.Item(1)       للتوضيح هنا عملت مربع نص اسميته t22 لعرض مسار ملف الاكسيل 
'DoCmd.SetWarnings False
DoCmd.RunMacro "111"   تنفيذ المايكرو        
End If
t: MsgBox Err.Description

 

ملاحظة مهممة 

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