كيف يمكنني تصدير بيانات من الفيجول بيسك إلى الأكسل

السلام عليكم

هذه طريقة لتحويل من جدول من vb الى اكسل ولكن هذه الطريقة تنقل البيانات من جدول felxgrid

يعني بامكانك عرض البيانات في جدول felxgrid ثم تحويلها Excel

وهي للامانة مشاركة من احد الاعضاء

Option Explicit

Dim i As Long

Dim n As Long

On Error Resume Next

Set anas = GetObject(, "Excel.Application")

If Err.Number Then

Err.Clear

Set anas = CreateObject("Excel.Application")

If Err.Number Then

MsgBox "Can't open Excel."

End If

End If

anas.Visible = True

Set abbas = anas.Workbooks.Add

AppActivate "fg1 To Excel Demo"

For i = 0 To fg1.Rows - 1

fg1.Row = i

For n = 0 To 4

fg1.Col = n

abbas.ActiveSheet.Cells(i + 1, n + 1).Value = fg1.Text

Next

Next

يعطيك الله العافية أخوي { أحمد } على استجابتك الطيبة

بالفعل كلامك صحيح وعملي جداً ... شاكر لك جميل تواصلك

لدي هنا مثال مرفق لكيفية تصدير بيانات إلى ملف اكسل، كنت حملته من أحد المنتديات

اتمنى أن تلقي عليه نظرة وترى إن كان يخدمني بطلبي بالموضوع

EXCEL.zip

السلام عليكم

ارفق مثال يقوم بتحويل ملف اكسس الى اكسل من خلال vb

ولكن استخدمت المكتبة ADO ومن خلال جملة استعلام تستطيع التحكم

بالمخرجات انتهيت منه بسرعة ولكن هو قابل للتطوير عسى ان يضيف فكرة

تسهل عملية التحويل

بالتوفيق

To Excel.rar

أظن هناك مشكلة في المثال المرفق ...

السلام عليكم

ماهي المشكلة

هل ارفقت المكتبة ADO

من References

وتختار Microsoft Active Data Object XXX

اشتغلت معايا بعد ما ضفطت مكتبة الأكسل من الReferences

صحيح مش ده هو المطلوب ... بس بحاول عليه

اشكرك اخي الحبيب، وإذا ماعرفت سأكون على تواصل بكم

فتح الله عليك ابواب العلم، ويسر لك كل ما تبتغي، وحماك من كل شر