استيراد ملف Excel إلى قاعدة بيانات Access

UP

السلام عليكم

هذا مثال وجدته في احدى المواقع عن كيفيه اسيراد ملف اكسل والتامل معه ،، وان شاء الله فيما بعد احاول ان اضع مثال كامل لتخزين في قاعده البيانات .

 // Name: Display Excel Spreadsheet Cell 
    //     Data
    // Description:This code snippet shows h
    //     ow to take an existing Excel 2000 docume
    //     nt and display the cell data from differ
    //     ent worksheets. This may work with other
    //     versions of Excel
    // By: Lloyd Christmas
    //
    // Assumes:The following COM references 
    //     are required:
    Microsoft Excel 9.0 Object Library
    Microsoft Office 9.0 Object Library
    //
    //This code is copyrighted and has    // limited warranties.Please see http://
    //     www.Planet-Source-Code.com/vb/scripts/Sh
    //     owCode.asp?txtCodeId=1478&lngWId=10    //for details.    //**************************************
    //     
    
    'Open an Excel document, get a value from 3 cells, all on different worksheets
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet1 As Excel._Worksheet
    Dim xlSheet2 As Excel._Worksheet
    Dim xlSheet3 As Excel._Worksheet
    Dim mytext1 As String
    Dim mytext2 As String
    Dim mytext3 As String
    xlApp = CreateObject("Excel.Application")
    xlBook = xlApp.Workbooks.Open("c:\test.xls")
    xlSheet1 = xlBook.Worksheets(1)
    xlSheet2 = xlBook.Worksheets(2)
    xlSheet3 = xlBook.Worksheets(3)
    mytext1 = xlSheet1.Range("A1").Value
    mytext2 = xlSheet2.Range("A9").Value
    mytext3 = xlSheet3.Range("C1").Value
    MessageBox.Show(mytext1 + " " + mytext2 + " " + mytext3)
    xlBook.Close()

السلام عليكم

اخي العزيز انظر هذا المثال وان شاء الله تستفيد منه واسف على التأخير ،،،

قاعدة البيانات والاكسل في مجلد bin فصلتها لانه اعتقد فيه مشكله في التحميل المنتدى ..

Excel_document.rar

bin.rar