خطأ في كود ارتباط بيانات من اكسل

[محمد ايمن]

الاصدقاء الاكارم تحيبة طيبة

في المرفق كود لانشاء جدول مرتبط من صفحة اكسل

الفكرة اني اريد الارتباط بمجال معين وقمت باستخدام كود للحصول اخر سطر في صفحة الاكسل

المشكلة ان كود الحصول على اخر سطر يعطي في بعض الاحيان خطا

ماهو سبب الخطا او هل يوجد طريقة اخرى ؟؟

111.rar

[Barna]

1 ساعه مضت, محمد ايمن said:

الاصدقاء الاكارم تحيبة طيبة

في المرفق كود لانشاء جدول مرتبط من صفحة اكسل

الفكرة اني اريد الارتباط بمجال معين وقمت باستخدام كود للحصول اخر سطر في صفحة الاكسل

المشكلة ان كود الحصول على اخر سطر يعطي في بعض الاحيان خطا

ماهو سبب الخطا او هل يوجد طريقة اخرى ؟؟

 

معليش اخي محمد لم افهم المقصود باخر سطر .... هل تقصد هذا ؟؟؟

وهل الكود احيانا يعمل واحيانا لا ؟؟

 

[محمد ايمن]

1 دقيقه مضت, Barna said:

معليش اخي محمد لم افهم المقصود باخر سطر .... هل تقصد هذا ؟؟؟

وهل الكود احيانا يعمل واحيانا لا ؟؟

نعم اخي الكريم هذا هو اخر سطر

الكود يعمل احيانا و احيانا لا

[Barna]

1 ساعه مضت, محمد ايمن said:

نعم اخي الكريم هذا هو اخر سطر

الكود يعمل احيانا و احيانا لا

جرب كدة ................

Sub test2()
Dim acPath As String
Dim ObjExcelAppl As Excel.Application
Dim objWorkbook As Excel.Workbooks
Dim lastrow As Long
Set ObjExcelAppl = CreateObject("Excel.Application")
Set objWorkbook = ObjExcelAppl.Workbooks
DoCmd.DeleteObject acTable, "daybox"
'DoCmd.Hourglass True
acPath = CurrentProject.Path
objWorkbook.Open acPath & "\data22.xlsb"

ObjExcelAppl.DisplayAlerts = False
'DoEvents
ObjExcelAppl.Visible = True
Sleep (3000)
lastrow = Sheets("الارصدة").Cells(Rows.Count, 1).End(xlUp).Row
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12, "daybox", CurrentProject.Path & "\data22.xlsb", False, "الارصدة!A3:I" & lastrow
objWorkbook.Close
ObjExcelAppl.Quit
Set objWorkbook = Nothing
Set ObjExcelAppl = Nothing
'DoCmd.Hourglass False
End Sub

 

[محمد ايمن]

14 ساعات مضت, Barna said:

جرب كدة ................

للاسف نفس المشكلة

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

علما ان كود الارتباط يعمل بدون فتح الملف طبعا اذا تم تحديد المجال يدويا

[Barna]

7 ساعات مضت, محمد ايمن said:

للاسف نفس المشكلة

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

علما ان كود الارتباط يعمل بدون فتح الملف طبعا اذا تم تحديد المجال يدويا

أخي الكريم هل اذا ظهر في الجدول فقط السطر الاخير جيد بالنسبة لك مثل هذا ؟؟؟؟

 

[محمد ايمن]

5 دقائق مضت, Barna said:

أخي الكريم هل اذا ظهر في الجدول فقط السطر الاخير جيد بالنسبة لك مثل هذا ؟؟؟؟

للاسف لا

يجب الارتباط بالجدول كاملا

[محمد ايمن]

 

Dim xl As Excel.Application
Set xl = CreateObject("Excel.Application") 'open Excel

Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Set wb = xl.Workbooks.Open(CurrentProject.Path & "\data22.xlsb") 'open WorkBook
Set ws = wb.Worksheets("الارصدة") 'Select WorkSheet

Dim data As Variant



data = ws.ListObjects("الارصدة22").DataBodyRange.Rows.Count + 2

DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12, "daybox", CurrentProject.Path & "\data22.xlsb", True, "الارصدة!A2:I" & data


wb.Close
xl.Quit

 

تم تعديل يناير 23, 2023 بواسطه محمد ايمن