[حل شده] نمایش پیام

[kazem1359]

سلام یک فایل اکسل دارم که فقط روی سیستم 64 کار میکنه حالا این امکان هست که اگر فایل روی سیستم 32 اجرا شد برنامه اکسل تشخیص بده و پیام نمایش بده که سیستم 64 نیست؟ ممنون

[alfa]

VBA 7 code base
کار میکنه انشالله
چون ویندوز 64 از VBA 7 code base استفاده میکنه که این شرایط را پیش میاره تا از اکسل 2007 به بعد را در ویندوز 32 بیتی ساپورت بکنه

[kazem1359]

سلام میشه بیشتر توضیح بدین چطوری انجام بدم؟
ممنون

[mokaram]

فرض کنید کد شما کد زیر باشه :

 Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 

کافیه اون خط کد را با If شرطی کنید که اگه 64 بیتی بود همون کد اگه نه ن خط به جز عبارت PtrSafe. مثلا:

#If VBA7 Then    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#Else
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

نکته مهم تو نوشتن کد برای 32 بیتی ، برداشتن عبارت PtrSafe از کدتون هست.

[kazem1359]

برای برعکس قضیه اگر سیستم 32 باشه ایا باید همون کلمه if vba7 را بنویسم ؟

[mokaram]

برای برعکس قضیه اگر سیستم 32 باشه ایا باید همون کلمه if vba7 را بنویسم ؟

قطعه کدی که مثال زدم دقیقا به این شکل عمل میکنه که اگه سیستم 32 بیتی باشه کد مربوط به 32 فراخوانی میشه و برعکسش