Open text file once created (1 Viewer)

[J_oggy07]

Hi,
This is working fine, but I wish file to open so we can copy and paste prices.
Thanks for all your help.
John.


Private Sub Command180_Click()

Dim FSO As New FileSystemObject
Dim myarray1 As String
Dim myarray2 As String

Set FSO = CreateObject("Scripting.FileSystemObject")
Set filetocreate = FSO.CreateTextFile("C:\Users\jhodgson\Desktop\QTY_Breaks.txt")

myarray1 = "Price for 1 off : " & Format(Forms!PricingForm!priceQTY1, "##,##0.00") & " " & Forms!PricingForm!Custcurrency&
myarray2 = "Price for 2 off : " & Format(Forms!PricingForm!PriceQTY2, "##,##0.00") & " " & Forms!PricingForm!Custcurrency&

filetocreate.WriteLine " QTY Breaks"
filetocreate.WriteLine " "
filetocreate.WriteLine myarray1
filetocreate.WriteLine myarray2


filetocreate.Close


End Sub

 

[cheekybuddha]

Which program do you wish to open it with?

 

[J_oggy07]

notepad

 

[ebs17]

copy and paste

No programming?

Application.FollowHyperlink PathTextfile

 

[GaP42]

Have not used it but for text files and using FSO:
https://learn.microsoft.com/en-us/o...rence/user-interface-help/opentextfile-method

 

[cheekybuddha]

If the Application.FollowHyperlink method pops up security dialogs you can also use:

' your code ...

Call Shell(Environ("windir") & "\system32\notepad.exe ""C:\Users\jhodgson\Desktop\QTY_Breaks.txt""" )

 

[cheekybuddha]

Have not used it but for text files and using FSO:
https://learn.microsoft.com/en-us/o...rence/user-interface-help/opentextfile-method

This is for opening the text file for reading and writing (IO operations) rather than opening it for display in an editor.

 

[J_oggy07]

If the Application.FollowHyperlink method pops up security dialogs you can also use:

' your code ...

Call Shell(Environ("windir") & "\system32\notepad.exe ""C:\Users\jhodgson\Desktop\QTY_Breaks.txt""" )

Thanks, works a treat