06-10-12, 09:58 PM
كاتب الموضوع : BADRMEDIA
ربما تحتاج لمعرفة اصدار تطبيق معين
قم باعلان عن فضاء الاسم Namespace
ثم استخدم هذا الكود
أعتقد الكود واضح وما يحتاج شرح
ربما تحتاج لمعرفة اصدار تطبيق معين
قم باعلان عن فضاء الاسم Namespace
كود :
[color=#000000][COLOR=#0000bb]Imports System[/color][color=#007700].[/color][color=#0000bb]Runtime[/color][color=#007700].[/color][COLOR=#0000bb]InteropServices
[/COLOR][/COLOR]
ثم استخدم هذا الكود
كود :
[color=#000000][COLOR=#0000bb] Dim excel [/color][color=#007700]As [/color][color=#0000bb]Object [/color][color=#007700]= [/color][color=#0000bb]CreateObject[/color][color=#007700]([/color][color=#dd0000]"Excel.Application"[/color][COLOR=#007700])
[/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#0000bb]excel[/color][color=#007700].[/color][color=#0000bb]Version[/color][COLOR=#007700])
[/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#0000bb]excel[/color][color=#007700].[/color][color=#0000bb]Build[/color][COLOR=#007700])
[/COLOR][color=#0000bb]Marshal[/color][color=#007700].[/color][color=#0000bb]ReleaseComObject[/color][color=#007700]([/color][color=#0000bb]excel[/color][COLOR=#007700])
[/COLOR][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]GC[/color][color=#007700].[/color][color=#0000bb]Collect[/color][COLOR=#007700]()
[/COLOR][color=#0000bb][/color][/COLOR]
أعتقد الكود واضح وما يحتاج شرح