تبدیل فایل اکسل به exe و همچنین تغییر ایکون آن

[pishraw]

با سلام و درود

دوستان عزیز مدت ها ست که این مسئله ذهن من را به خود مشغول کرده است . به چند طریق این مسئله را امتحان کرده ام اما به جواب نرسید ه ام خصوصاً تغییر ایکون فایل اکسل . دوستان عزیزی که در این زمینه اگاهی دارند خصوصاً عزیزانی که در حوزه برنامه نویسی فعالیت دارند لطفاً راهنمایی کنند ممنون میشم.

[Amir Ghasemiyan]

با سلام و درود

دوستان عزیز مدت ها ست که این مسئله ذهن من را به خود مشغول کرده است . به چند طریق این مسئله را امتحان کرده ام اما به جواب نرسید ه ام خصوصاً تغییر ایکون فایل اکسل . دوستان عزیزی که در این زمینه اگاهی دارند خصوصاً عزیزانی که در حوزه برنامه نویسی فعالیت دارند لطفاً راهنمایی کنند ممنون میشم.

سلام دوست عزيز
دقيقا نميدونم اين روش به كارتون مياد يا نه. ولي شما با نرم افزار winrar ميتونين هم exe توليد كنيد و هم ميتونيد آيكن بذارين

[Amin_D]

سلام دوست عزيز
دقيقا نميدونم اين روش به كارتون مياد يا نه. ولي شما با نرم افزار winrar ميتونين هم exe توليد كنيد و هم ميتونيد آيكن بذارين

تشکر از راهنمایی تون
در همین سایت هم دو نمونه فایل به همین روشی که شما گفتین دیدم ،از کارهای استاد شمس العلما بودند.
ممنون میشم اگر روش تهیه یک فایل به همین روشی که گفتین رو آموزش بدین.

با تشکر

[Amir Ghasemiyan]

تشکر از راهنمایی تون
در همین سایت هم دو نمونه فایل به همین روشی که شما گفتین دیدم ،از کارهای استاد شمس العلما بودند.
ممنون میشم اگر روش تهیه یک فایل به همین روشی که گفتین رو آموزش بدین.

با تشکر

چشم. آموزش كاملشو درست ميكنم قرار ميدم تو سايت

[Amir Ghasemiyan]

بفرماييد اين هم آموزشي كه قولش رو داده بودم:

{آموزش} طريقه ساخت فايل exe توسط نرم افزار WinRAR

[pishraw]

با تشکر از برادر عزیز جناب امیر .دستت درد نکنه عالی بود . اما انچه که مورد سوال بنده بود اجرا شدن خود فایل اکسل به exe می باشد که من بوسیله نرم افزاری به نام XLtoEXE انرا به exe تبدیل کردهام ولی در تغییر ایکون آن مشکل دارم. با تشکر فراوان.

[MEYTI]

با درود برای تغییر آیکان فایلهایی اجرایی هم میتونی از برنامه فارسی زیر استفاده کنید

[Amin_D]

با درود برای تغییر آیکان فایلهایی اجرایی هم میتونی از برنامه فارسی زیر استفاده کنید

سلام

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

باد تشکر

[Amir Ghasemiyan]

سلام

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

باد تشکر

مجددا تست بفرماييد جناب دادور.
من هم دانلود كردم و هم آيكن نرم افزارمو عوض كردم. مشكلي هم نداشت

[Amin_D]

مجددا تست بفرماييد جناب دادور.
من هم دانلود كردم و هم آيكن نرم افزارمو عوض كردم. مشكلي هم نداشت

سلام مجدداً امتحان کردم نشد
اگر ممکنه فایل رو برام ایمیل کنید

[Amir Ghasemiyan]

سلام مجدداً امتحان کردم نشد
اگر ممکنه فایل رو برام ایمیل کنید

فرستادم براتون. فقط چون محتواش exe داره جيميل اجازه فرستادن نداد. براي همين پسوند رو به ex تغيير دادم

[pishraw]

با تشکر از دوستان عزیزی که جواب سوال بنده را دادند . در جواب مهدی کریمی عزیز باید بگویم که از طریق برنامه ای که معرفی کرده بودند ایکون اکسل عوض می شود ولی فایل اجرایی اکسل خراب می شود و دیگر اجرا نمی شود ایا غیر از این برنامه راه دیگری وجود دارد یا خیر؟ با تشکر

[hosseinamerey]

دوست عزیز میتونی از این کد استفاده کنی تا آیکون برنامه تو عوض کنی من خودم آیکن نوت پد تعریف کردم میتونی ازش استفاده کنی
دوستان تشکر یادتون نره

[hosseinamerey]

اینم ماژول

'******CODE FOR THISWORKBOOK MODULE******
 
Option Explicit 
 
Private Sub Workbook_Open() 
    Application.Caption = " My Personalized Workbook" 
    ChangeApplicationIcon 
End Sub 
 '*****************************************
 
 
 
 
 '************CODE FOR MODULE1*************
 
Option Explicit 
 
Declare Function GetActiveWindow32 Lib "USER32" Alias _ 
"GetActiveWindow" () As Integer 
 
Declare Function SendMessage32 Lib "USER32" Alias _ 
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _ 
ByVal wParam As Long, ByVal lParam As Long) As Long 
 
Declare Function ExtractIcon32 Lib "SHELL32.DLL" Alias _ 
"ExtractIconA" (ByVal hInst As Long, _ 
ByVal lpszExeFileName As String, _ 
ByVal nIconIndex As Long) As Long 
 
 
 'modification of code from Excel Experts E-Letter Archives.
 'Original code By Jim Rech can be found by following this
 'link > http://www.j-walk.com/ss/excel/eee/eee020.txt
 
 
Sub ChangeApplicationIcon() 
     
    Dim Icon& 
     
     '*****Change Icon To Suit*******
    Const NewIcon$ = "Notepad.exe" 
     '*****************************
     
    Icon = ExtractIcon32(0, NewIcon, 0) 
    SendMessage32 GetActiveWindow32(), &H80, 1, Icon '< 1 = big Icon
    SendMessage32 GetActiveWindow32(), &H80, 0, Icon '< 0 = small Icon
     
End Sub 
 '***************************************** 

[pishraw]

با تشکر از شما جناب hosseinamerey عزیز . باید عرض کنم که من از سیستم عامل 64 بیت استفاده می کنم و هنگام درج کد این پیام خطا نمایش داده می شود ایا مربوط به سیستم عامل است یا مشکل از جای دیگر است . اگر راهنمای کنید ممنون میشم