Custom Button
Forum Sponsor
Top Posters
Luis Jr Ngade
6 posts
Ben Welsher
1 posts
Rohan Dashputre
0 posts
AMECHI ANAKWENZE
2 posts
Jayaprakash Sekar
1 posts
arash.karmand
0 posts
James Williams
74 posts
Vahidazimi01
0 posts
David Smith
4 posts
Peter Holroyd
51 posts
I dont know what to say. It worked fine for me on two different machines.
Unfortunately Your Code Does Not Works
Here is the working way
Create a custom button
Press Alt F11
select "this project"
insert "new Module
in that module
Cut and paste the following code
----------------------------------------------------------------
Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3
Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub RunYourProgram()
Dim RetVal As Long
On Error Resume Next
RetVal = ShellExecute(0, "open", "C:\Documents and Settings\planner\My Documents\0Essentials\GRAFICS for MSP.xls", "", _
"C:\MASTER", SW_SHOWMAXIMIZED)
End Sub
------------------------------------------------------------------------------------------------------------------------
were "C:\MASTER" MASTER is a blank folder in my computer
and "GRAFICS for MSP.xls" is the file to be opened
Rename the module , should not be like module1, etc give any name
now save this module to GLOBAL.mpt
now -assign "RunYourProgram" macro to the button
it works
Code Courtsey ::::::: [email protected]
Thanks
hemant
Thanks
I l ll have a try
Assign the VBA macro below to a new button
Sub OpenAttendance()
Dim xlapp As Object
Set xlapp = CreateObject("excel.Application")
xlapp.Workbooks.Open FileName:="C:\Data\Attendance.xls"
xlapp.Visible = True
End Sub