how to insert value in notepad from excel

[Thilak]

Hi All,

I am trying to write a script to insert values in excel sheet which has 3 columns in it(ie column1,column2 and column3).After inserting the values need to insert those values in notepad also.

The case is
1. In excel sheet whenever we run the script only one value should be present with the updated value.
2. In notepad for each run of the script there should be separate line of values present (ie for example if we had run the script for 3 times there should be three lines in notepad)
3. The last value in the notepad should be in the excel sheet.Apart from that nothing should be there.

Could any one help me with this would be of great help to me.

Thanks in advance.

Thanks
Thilak

[KavitaPriyaCR]

Hi
1. In excel sheet whenever we run the script only one value should be present with the updated value.
For this you can just say:
' here update i (loop) as you want

Code:

Set objExcel=CreateObject("Excel.Application")
Set objBook=objExcel.WorkBooks.Open(("C:\path\filename1.xls")
Set objSheet=objExcel.Sheets("SheetName1")
For j= 1 To 3
objSheet.Cells(i,j).value="value"
Next

2. In notepad for each run of the script there should be separate line of values present (ie for example if we had run the script for 3 times there should be three lines in notepad)

Code:

Set fso=CreateObject("Scripting.FileSystemObject")
Set filename=fso.OpenTextFile("C:\path\filename1.txt",8,True)
'write the text here
filename.WriteLine "updating the text file"

3. 3rd point is not clear for me.