Unfortunately is not that simple.
Folder1/folder2 is just an example. That path that I use is in the program
is different, and I have checked that it is correct. Ehen I paste the
path+filename in the "Run" command in the Start menu (Windows), then the
document opens.
I have also tried to leave out Chr(34) because is seems this gives "".
I have also made sure that I do not have space in pathname or filename.
Still no solution.'
What I want to do is to open a file from VBA code. File might not be office
document. Any suggestion?
Ivyleaf skrev:
- Show quoted text -
Hi Jarle,
This doesn't use the Shell function, but it might do what you are
after:
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
Optional ByVal lpParameters As String, _
Optional ByVal lpDirectory As String, _
Optional ByVal nShowCmd As Long) As Long
Private Const SW_HIDE As Long = 0
Private Const SW_SHOWNORMAL As Long = 1
Private Const SW_SHOWMAXIMIZED As Long = 3
Private Const SW_SHOWMINIMIZED As Long = 2
Sub OpenFile()
Dim FName As String
Dim RetVal
FName = "E:\Folder 1\Folder 2\Test File.pdf"
ShellExecute Application.hwnd, "open", FName _
', vbNullString, "C:\", SW_SHOWNORMAL
End Sub
I found / pinched / adapted (slightly) the code from here:
http://www.vbforums.com/showthread.php?t=481233
Cheers,
Ivan.
---------------------------------------------
ShellExecute Application.hwnd, "open", FName _
', vbNullString, "C:\", SW_SHOWNORMAL
For use in Excel 97 & 2000, change
Application.hwnd
to
0&
or use the FindWindow API to get the app's window handle
In later OS may need to change "open" to vbNullString
Regards,
Peter T