• 0
mbc321

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

سؤال

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

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

2.1.rar

تم تعديل بواسطه mbc321
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

11 إجابة على هذا السؤال .

  • 0

شوف الكود ده :

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

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

2

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

تم تعديل بواسطه amir2008amir
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

 

za-2.1.rar

 

 

بالتوفيق

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

عذراً

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .