+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : معلومة ::: Get Excel Version ::: (/showthread.php?tid=5310)
معلومة ::: Get Excel Version ::: - RaggiTech - 06-10-12
كاتب الموضوع : 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]أعتقد الكود واضح وما يحتاج شرح