How do I open a file from a Network drive using Excel VBA?

[turnerje]

I would like to open a file using excel vba from a network drive. Below
is the code that I have used to find the file. There are three separate
ways below that I have tried, but end up with nothing. The first set of
commands results in an error message of "Invalid Procedure call or
Argument". The second, my computer does not recognize the
FileSystemObject, and the third presents an error message of "Object
variable or With block not set". Any help would be greatly appreciated.


Private Sub CommandButton1_Click()

'ReturnValue = Shell("C:\Program Files\pipc\Procbook\Procbook.exe", 1)
'ReturnValue = Shell("Y:\Dropbox\bosnyak\Drywell Cooler Temperature PI
Trends\803A\T47DT2077.PDI", vbMaximizedFocus)

'Dim fso As FileSystemObject, fil As File
'Set fil = fso.getfile("Y:\Dropbox\bosnyak\Drywell Cooler Temperature
PI Trends\803A\T47DT2077.PDI")

'AppActivate ("PI - ProcessBook")
'Dim appX As PBObjLib.Application
'Set disY = appX.ProcBooks.Open(" Y:\Dropbox\bosnyak\Drywell Cooler
Temperature PI Trends\T47CT7364.PDI", pbPromptConvert)



End Sub

 

[David Lloyd]

With regard to the first set, I believe you need to specify an executable
for the Shell command. So your second statement would be the cause.

For the second set, you will need a reference to the Microsoft Scripting
Runtime of which the FileSystemObject is a part. You will also need to use
the NEW keyword when dimensioning the fso variable. For example:

Dim fso As New FileSystemObject, fil As File

For the third set, I believe that the PBObjLib.Application variable also
needs to be dimensioned with the NEW keyword.

--
David Lloyd
MCSD .NET
http://LemingtonConsulting.com

This response is supplied "as is" without any representations or warranties.


message
I would like to open a file using excel vba from a network drive. Below
is the code that I have used to find the file. There are three separate
ways below that I have tried, but end up with nothing. The first set of
commands results in an error message of "Invalid Procedure call or
Argument". The second, my computer does not recognize the
FileSystemObject, and the third presents an error message of "Object
variable or With block not set". Any help would be greatly appreciated.


Private Sub CommandButton1_Click()

'ReturnValue = Shell("C:\Program Files\pipc\Procbook\Procbook.exe", 1)
'ReturnValue = Shell("Y:\Dropbox\bosnyak\Drywell Cooler Temperature PI
Trends\803A\T47DT2077.PDI", vbMaximizedFocus)

'Dim fso As FileSystemObject, fil As File
'Set fil = fso.getfile("Y:\Dropbox\bosnyak\Drywell Cooler Temperature
PI Trends\803A\T47DT2077.PDI")

'AppActivate ("PI - ProcessBook")
'Dim appX As PBObjLib.Application
'Set disY = appX.ProcBooks.Open(" Y:\Dropbox\bosnyak\Drywell Cooler
Temperature PI Trends\T47CT7364.PDI", pbPromptConvert)



End Sub