Word hyperlink in Excel

[ranebow]

In Excel, I've done a hyperlink to a TXT file that is downloaded via another software package. Is there any way to force the link to open the TXT file via Excel instead of Notepad?

 

[fumei]

Is there any way to force the link to open the TXT file via Excel instead of Notepad?

If this is what you want, I am not getting the reference to Word in your subject line?

Gerry
See my Paintings and Sculpture

 

[ranebow]

Oops! Yes. I should have said TXT hyperlink in my subject line.

 

[fumei]

One way is to grab the contents as TextStream object.

Sub TestTXT()
Set MyData = New DataObject
Dim MyData As DataObject
Dim fso As Scripting.FileSystemObject
Dim ts As Scripting.TextStream
   Set MyData = New DataObject
   Set fso = New Scripting.FileSystemObject
   Set ts = fso.OpenTextFile("C:\gerry\test2.txt")
   MyData.SetText ts.ReadAll
   MyData.PutInClipboard
[COLOR=red yellow]' Just grabbing as string,
' but you can do whatever with that string[/color red yellow]
   MsgBox MyData.GetText(1)

Set MyData = Nothing
Set ts = Nothing
Set fso = Nothing
End Sub

Of course, this will only grab text.

Gerry
See my Paintings and Sculpture