استيراد صفحة html الى جدول جديد فى اكسيس عن طريق الكود

[محمد احمد لطفى]

أريد استيراد ملف html  الى جدول جديد بالكود


وجزاكم الله خيراً

testdate5.rar

[محمد احمد لطفى]

ملف html فى الملف المضغوط

[محمد احمد لطفى]

الملف عباره عن صفحة html بها جدول

[أبو إبراهيم الغامدي]

أهلا @محمد احمد لطفى

الشفرة التالية تفي بالغرض إن شاء الله..

Private Sub أمر0_Click()
On Error GoTo ERR_CODES
   
   Dim HTML_FILE_NAME As String
   Dim HTML_TITLE As String
   Dim TABLE_NAME As String
   Dim SQL As String
   
   '-- ASSIGNING VALUES TO SQL STATMENT VARIABLES
   Const HTML_SPECIFICATION As String = " [HTML IMPORT;HDR=YES;] "
   HTML_FILE_NAME = CurrentProject.Path & "\" & "0125.HTML" '.. THE HTML FILE IS THE DATABASE
   HTML_TITLE = "0125" '.. THE HTML TABLE NAME IS THE HTML TITLE
   
CREATE_TABLE_SQL:
   '-- ASSIGNING TABLE NAME USING INPUTBOX
   TABLE_NAME = InputBox(Err.Description & " Plase Enter New Table Name.", _
   "New Table Name", , Me.WindowWidth / 2, Me.WindowHeight / 2)
   If Len(TABLE_NAME) = 0 Then
      GoTo EXIT_SUB
   End If
   
   '-- CREATE SQL STATMENT
   SQL = ""
   SQL = SQL & " SELECT * INTO " & TABLE_NAME
   SQL = SQL & " FROM " & HTML_TITLE
   SQL = SQL & " IN'" & HTML_FILE_NAME & "'"
   SQL = SQL & HTML_SPECIFICATION
   
   '-- EXECUTE SQL STATEMENT TO CREATE TABLE
   CurrentDb.Execute SQL
   Application.RefreshDatabaseWindow

EXIT_SUB:
   Exit Sub

ERR_CODES:
   If Err.Number = 3010 Then
      GoTo CREATE_TABLE_SQL
   Else
      MsgBox Err.Number & vbNewLine & Err.Description
   End If
End Sub

IMPORT_HTML_TABLE.zip

[ابوخليل]

اخي العزيز ابو ابراهيم

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

DoCmd.TransferText acImportHTML, , "HTML1", CurrentProject.Path & "\0125.html", True, "0125"

اذا جعلت اسماء الحقول في الجدول f1 , f2 ,f3 ....... وهكذا  ، واستبدلت true بـــــــــ false يجلب البيانات + رأس العمود

واذا سميت الحقول مثل ما هي في الصفحة لا يعمل الا مع true  ويجلب جسم الجدول ولكن لا يظهر السجل الأول

لو القيت نظرة بارك الله فيك

 

IMPORT_HTML2.rar

[أبو إبراهيم الغامدي]

أهلا @ابوخليل

1 ساعه مضت, ابوخليل said:

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

لا أعتقد أن هذه العبارة صحيحة، والسطر التالي يوضح المقصود

DoCmd.TransferText acImportHTML ,,InputBox("plase Enter Table Name"),currentproject.Path & "\0125.html",true,"0125"

DoCmd.TransferText acImportHTML ما هو إلا نهج مغلف لنفس الإجراء المقدم في إجابتي السابقة! وهي تعليمية أكثر منها إجابة، والنهبج المشار إليه سهل وبسيط!

كما لا يفوتني أن  أشكرك علي عتب المحب المغلف بهذه الإلماحة..😇 

[محمد احمد لطفى]

باراك الله فيكم أساتذتنا الأفاضل

[محمد احمد لطفى]

أستاذى @أبو إبراهيم الغامدي

هناك ملف يكون أول سطر به فارغ حيث عند استيراده فى اكسل يظهر هذا السطر و تم معالجته باضافة "A2:j100000"
 

Dim x3, x4
x3 = CurrentProject.Path & "\" & "0125" & ".xls"
'اكتب اسم الجدول المراد انشاءه
x4 = "جدول جديد"
DoCmd.TransferSpreadsheet acImport, 10, x4, x3, True, "A2:j100000"

كما يظهر فى الصورة

 

هل يمكن معالجته هنا 
 

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

[النجاشي]

استاذنا الفاضل @أبو إبراهيم الغامدي 

هل ممكن العكس  اي نقل من الجدول الي الملف

تم تعديل يناير 29, 2023 بواسطه النجاشي

[محمد احمد لطفى]

أستاذى @أبو إبراهيم الغامدي

هناك ملف يكون أول سطر به فارغ حيث عند استيراده فى اكسل يظهر هذا السطر و تم معالجته باضافة "A2:j100000"
 

Dim x3, x4
x3 = CurrentProject.Path & "\" & "0125" & ".xls"
'اكتب اسم الجدول المراد انشاءه
x4 = "جدول جديد"
DoCmd.TransferSpreadsheet acImport, 10, x4, x3, True, "A2:j100000"

كما يظهر فى الصورة

 

هل يمكن معالجته هنا 
تم ارفاق الملف

0125.rar

[محمد احمد لطفى]

للرفع

[jjafferr]

السلام عليكم اخوي محمد 🙂

رجاء املئ الصفحة بالبيانات ، وارفعها ، خلينا نشوف الحل 🙂

هناك حلول خلال الاستيراد ، واخرى بعد الاستيراد 🙂

 

جعفر

[محمد احمد لطفى]

تم رفع صفحة بالبيانات بالفعل 
واسف لتكرار الموضوع

 

0125.rar

[jjafferr]

اخوي محمد ، الملف المرفق يختلف في هيئته وتنسيقه عن الملف الاصل !!

علشان يشتغل برنامج احوي ابو ابراهيم ، ونجري تعديلات عليه ، رجاء يكون ملفك بنفس الصغة والتنسيق السابق 🙂

 

جعفر

[محمد احمد لطفى]

شكراً أستاذى و معلمى @jjafferr

الملف ده الى هشتغل عليه سأذهب اليوم الى العمل بإذن الله و أحاول استخراج صيغة أخرى

[jjafferr]

مينفعش صيغتين مختلفات ، فلكل نوع برمجة خاصة به !!

فيجب ان تعرف بالضبط الصيغة اللي راح تشتغل عليها دائما ، وترفقها 🙂

 

جعفر

[محمد احمد لطفى]

للأسف أستاذى @jjafferr هذه الصيغه الوحيده فى البرنامج فى عملى حيث  حين استخرجها أكسل تفقد بعض البيانات 

هل يمكن استيرادها بأكسيس 

0125.rar

تم تعديل فبراير 2, 2023 بواسطه محمد احمد لطفى

[محمد احمد لطفى]

طيب ما ينفعش نسحب البيانات لجدول موجود قبل كده

ملف html براس الحقول الى داخل جدول 

جمعه طيبه مباركه

تم تعديل فبراير 3, 2023 بواسطه محمد احمد لطفى