Custom Button
Featured Partner
Top Posters
Zine Eddine
2 posts
Alex Lyaschenko
27 posts
mxsiegel
0 posts
Mattvtek
0 posts
Gareth Evans
3 posts
PP Admin
3, 129 posts
Rajkamal Tangirala
5 posts
Rahul Kumar
1 posts
blake333_
0 posts
Jeamiell Ostrovsky
2 posts
Our Partners
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