Importing data from Excel to Txt File

[kriday]

Hi All
I have written the following code ti import data from excel to txt file
both excel and txt files exists in C drive with names sample.txt and Book1.xls

Code:

Dim obj_FSO, my_objFile, text_FilePath
Dim Obj_Excel, Excel_Filename, Excel_SheetName, Excel_Row, Excel_Col, v

text_FilePath = "C:\sample.txt"
Set obj_FSO = createObject("Scripting.FileSystemObject")
Set my_objFile = obj_FSO.OpenTextFile(text_FilePath, 8)

Excel_FileName = "C:\Book1.xls"
Excel_SheetName = "Sheet1"
Excel_Col =1

Set Obj_Excel = CreateObject("Excel.Application")
Obj_Excel.Workbooks.Open Excel_FileName

For i= 1 to 3
     Excel_Row =1
     v= Obj_Excel.ActiveWorkBook.Workssheets(Excel_SheetName).Cells(Excel_Row, Excel_Col)
     my_objFile.WriteLine v


Next
Obj_Excel.ActiveWorkbook.save
Obj_Excel.ActiveWorkbook.Closes
Obj_Excel.Workbooks.Close
Obj_Excel.Application.Quit
Set Obj_Excel = Nothing

Wscript.Quit
my_objFile.Close

but iam getting the following error

Code:

File not found
Set my_objFile = obj_FSO.OpenTextFile(text_FilePath, 8)

I am not understanding it
Please I need help on this

Thanks

[Ankur]

There are syntax errors in your code -

Use this -

Code:

Dim obj_FSO, my_objFile, text_FilePath
Dim Obj_Excel, Excel_Filename, Excel_SheetName, Excel_Row, Excel_Col, v

text_FilePath = "C:\sample.txt"
Set obj_FSO = createObject("Scripting.FileSystemObject")
Set my_objFile = obj_FSO.OpenTextFile(text_FilePath, 8)

Excel_FileName = "C:\Book1.xls"
Excel_SheetName = "Sheet1"
Excel_Col =1

Set Obj_Excel = CreateObject("Excel.Application")
Obj_Excel.Workbooks.Open Excel_FileName

For i= 1 to 3
     Excel_Row =1
     v= Obj_Excel.ActiveWorkBook.Worksheets(Excel_SheetName).Cells(Excel_Row, Excel_Col)
     my_objFile.WriteLine v
Next

Obj_Excel.ActiveWorkbook.save
Obj_Excel.ActiveWorkbook.Close
Obj_Excel.Workbooks.Close
Obj_Excel.Application.Quit
Set Obj_Excel = Nothing

'Wscript.Quit
my_objFile.Close

[kriday]

Thank you