Update text file with Excel

[mjtwo3]

Hello All,

I need to copy cells B2:C8, open an already saved text file (Test.txt), highlight everything in there, paste in the info from excel, and then save the text file.

Thanks in advance

 

[Domski]

What's the purpose of highlighting everything? Do you want to replace the exsiting contents?

Dom

 

[taurean]

You will have to refer this thread for information on the object used:
DataObject

The code you will have to adjust to suit your text file path.

Public Sub WriteDataToTxtFile()
Dim objDaOb As Object
Dim rngCOPY As Range
Dim strPath As String

Set objDaOb = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Set rngCOPY = Range("B2:C8")    'Set Range Reference
strPath = "C:\Test.txt"         'Set text file path

rngCOPY.Copy
objDaOb.GetFromClipboard
Open strPath For Output As #1
Print #1, objDaOb.GetText
Close #1
Application.CutCopyMode = False

End Sub

 

[mjtwo3]

Domski, yes i want to replace existing context.

taurean - that didn't seem to work. when i go to my txt file it is not updated with the same data that is in excel.

 

[taurean]

taurean - that didn't seem to work. when i go to my txt file it is not updated with the same data that is in excel.

I had tested the code with false data and it did work so not sure what is different in your setup that fails it. Can you post the code as you have now?