استيراد بيانات من صفحة ويب HTM ووضعها في Table

[mbc321 2]

يوجد لدي جدول في صفحة ويب htm المطلوب كود يقوم بوضعها في Table1

مرفق صفحة الويب.

2.1.rar

تم تعديل 29 Mar 2014 بواسطه mbc321

[أمير2008 162]

شوف الكود ده :

عبد الضغط على زر بالتموذج يقوم باستيراد بيانات من ملف اكسل بالمسار

c:\1.xls

وينشئ جدول جديد باسم

ExcelData

Sub ExcelImportTest()    Dim fso As Object  ' FileSystemObject    Dim f As Object  ' File    Dim strTempPath As String    Dim objExcel As Object  ' Excel.Application    Dim objWorkbook As Object  ' Excel.Workbook    Const TemporaryFolder = 2    Set fso = CreateObject("Scripting.FileSystemObject")  ' New FileSystemObject    strTempPath = fso.GetSpecialFolder(TemporaryFolder) & "\" & fso.GetTempName & "\"    fso.CreateFolder strTempPath    Set f = fso.GetFile("C:\1.xls")    fso.CopyFile f.Path, strTempPath & f.Name    Set objExcel = CreateObject("Excel.Application")  ' New Excel.Application    Set objWorkbook = objExcel.Workbooks.Open(strTempPath & f.Name)    objWorkbook.ActiveSheet.Range("A1").Select    objWorkbook.Save    Set objWorkbook = Nothing    objExcel.Quit    Set objExcel = Nothing    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "ExcelData", strTempPath & f.Name, True    fso.DeleteFile strTempPath & f.Name    fso.DeleteFolder Left(strTempPath, Len(strTempPath) - 1)    Set f = Nothing    Set fso = NothingEnd Sub

sheet2.rar

[أمير2008 162]

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

و ممكن تحولها أولا إلى ملف اكسل وتعدل ما يلزم ثم تستورد للأكسس

وممكن نحولها لملف نصي ثم تستورد للأكسس وتقوم بتعديلات أيضاً

تم تعديل 29 Mar 2014 بواسطه amir2008amir

[mbc321 2]

ارجو المساعدة في هذا الموضوع :)

[أمير2008 162]

ما المشكلة في استخدام احدى الطرق الثلاث التي ذكرتها لك

أم أنك تريد الجدول فقط وغير مهم الطريقة ؟

[mbc321 2]

اهم شئ ان تكون جميع البيانات داخل Table الاكسس

[zahrah 4,313]

تفضل اخي الكريم

 

 

za-2.1.rar

 

 

بالتوفيق

[أمير2008 162]

...

Sheet1.rar

[أمير2008 162]

عذراً

سبقتني الأستاذة زهرة ( وهي دائماً سباقة )

بالغم من أن حجم الملف 8 كيلو إلا أن محاولات الرفع بالمرفقات استغرقت ربع ساعة أو ما يزيد

[mbc321 2]

اولا اشكركم وبارك الله فيكم

ولكن ارجو اضافة زر يقوم باستيراد الملف وتعبئته في جدول الاكسس بشكل آلي ارجو المساعدة.

[mbc321 2]

نعم هذا المطلوب بارك الله فيك وفي الاخت zahrah

[أمير2008 162]

وبارك فيك يا أخي

 

لكن حاول عمل (مشاركة قيمة ) لو وجدت اجابة عن سؤالك

هذا من باب تشجيع الزملاء على التسارع في اجابة الأسئلة