Get Data From Closed Excel Workbooks - 4

[مختار حسين محمود]

السلام عليكم اخوانى

موضوعى اليوم هو تكمله لموضوعات استيراد بيانات من ملفات مغلقة بطريقة    ADO والتى تم مناقشتها على هذين الرابطين

 

http://www.officena.net/ib/index.php?showtopic=57903

 

http://www.officena.net/ib/index.php?showtopic=57798

 

ما الجديد ؟  الجديد أن حضرتك اللى هتتختار أى ملف اكسل مغلق عشان تنسخ منه بعكس اللموضوعين السابقين

 

فى الموضوعين السابقين بناخد البيانات من ملف محدد اسمه فى الكود وهنا أنت اللى هتحدد الملف

 

طيب المدى المنسوخ وخلية اللصق  ايه ؟   ده فى الكود يمكنك تعديله بسهولة  ( معلش على عدم الزياده فى الشرح  ... مرهق من الامتحانات )

 

تفضلوا المرفق          كل سنة وحضراتكم أقرب الى الله
 

Get Data From Closed Excel Workbooks 4.rar

تم تعديل يناير 6, 2015 بواسطه مختار حسين محمود

[احمد عبد الناصر]

السلام عليكم

 

شكرا استاذ مختار

 

ثلاث مواضيع دسمة 

 

هذا كود قد مررت به من قبل 

 

-لا اظن انه يعمل على كل اصدارات اكسل (يحتاج تعديل في الكود)

Sub sbADO()

Dim sSQLQry As String
Dim ReturnArray
Dim Conn As New ADODB.Connection
Dim mrs As New ADODB.Recordset
Dim DBPath As String, sconnect As String

DBPath = ThisWorkbook.FullName

sconnect = "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & DBPath & ";HDR=Yes';"

Conn.Open sconnect
    
    sSQLSting = "SELECT * From [DataSheet$]"
    
    mrs.Open sSQLSting, Conn
        ActiveSheet.Range("A2").CopyFromRecordset mrs
    mrs.Close

Conn.Close

End Sub

--الكود منقول

 

تحياتي

SQL Excel TO Excel.rar

[مختار حسين محمود]

أستاذى الفاضل السلام عليكم

أعمل على  2010  والملف يعمل عادى والكود شغال 10 / 10