Opening New File Word and Excel from VBA

[weaselmcguff]

I have a userform that searches for a particular file. At the moment it is pulling up Excel and Word Files from a predefined directory.

I am trying to figure out how to load the file that they select. selecting the file I have figured out. This is the code I am trying to use for Word atm.

Private Sub shipopen_Click()
Dim newApp As Object
Set newApp = CreateObject("word.application")
newApp.Application.Visible = True
newApp.Documents.Open Filename:=ship3
End Sub

the ship3 is the actual full location of the file where it is listed at
ie. c:\mydocuments\user2\document1.doc

i am getting a Run Time Error 13. Type Mismatch.

Any help? or suggestion.

Also need to do the same for an excel file.

Thanks

 

[nirvana_]

You have to give the file name in quotes otherwise it may give a mismatch error. Watch for the space in the file name. Something like this

Private Sub shipopen_click()
    Dim newApp As Object
    Set newApp = CreateObject("word.application")
    newApp.Application.Visible = True
    newApp.Documents.Open Filename:="C:\Excel Help.doc"
End Sub

 

[weaselmcguff]

Is there a way to utilize the variable as the filename?

since it is stored as ship3

or do i need to covert ship3 to c:\mydocuments\user2\shipping.doc

Thanks

 

[Colin Legg]

How is the variable ship3 declared and how is the document's path and name assigned to it? This is not included in your code snippet.

eg

Dim Ship3 As String
 
Ship3 = "c:\mydocuments\user2\shipping.doc"

 

[weaselmcguff]

Thanks Got it to work