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

[محمد ايمن]

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

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

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

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

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

111.rarFetching info...

[Barna]

  في 22‏/1‏/2023 at 17:59, محمد ايمن said:

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

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

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

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

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

 

Expand  

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

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

 

[محمد ايمن]

  في 22‏/1‏/2023 at 19:58, Barna said:

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

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

Expand  

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

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

[Barna]

  في 22‏/1‏/2023 at 20:00, محمد ايمن said:

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

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

Expand  

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

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

 

[محمد ايمن]

  في 22‏/1‏/2023 at 21:52, Barna said:

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

Expand  

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

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

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

[Barna]

  في 23‏/1‏/2023 at 12:30, محمد ايمن said:

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

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

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

Expand  

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

 

[محمد ايمن]

  في 23‏/1‏/2023 at 20:08, Barna said:

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

Expand  

للاسف لا

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

[محمد ايمن]

 

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 بواسطه محمد ايمن