22-10-13, 05:09 AM
السلام عليكم
- يمكنك ذلك , وذلك بواسطة مكتبة الـADO كما في الأكسس , فقط تغير جملة الإتصال , وبدل إسم الجدول ضع إسم الـSheet حيث تعتبر كجدول , وهذا كود الإتصال بملف إكسل Book.xls :
- تحياتي .
- يمكنك ذلك , وذلك بواسطة مكتبة الـADO كما في الأكسس , فقط تغير جملة الإتصال , وبدل إسم الجدول ضع إسم الـSheet حيث تعتبر كجدول , وهذا كود الإتصال بملف إكسل Book.xls :
كود :
Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\Book.xls" & ";" & _
"Extended Properties=""Excel 8.0;HDR=" & _
"No" & """"
DB.CursorLocation = adUseClient
RS.CursorLocation = adUseClient
RS.Open "[Sheet1$]", DB, adOpenDynamic, adLockOptimistic- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
