Excel Spreadsheet

[annu124]

Hi all,
I am trying to write a vb script to export data from txt files in a particular folder in
each row in excel spreadsheet.

the data in a.txt is

1
2
3
4
5

the data in b.txt is

6
7
8
9
10

The resultant excel file should have data (each text file in 1 row with data in seperate columns)

1 2 3 4 5
6 7 8 9 10

The code I have is as below. Can you please help me with formatting the data properly.

Dim oFSO
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")

Const Folder = "C:\temp\"
Dim oGF
Set oGF = oFSO.GetFolder(Folder)

Dim oTF

Set fso = CreateObject("Scripting.FileSystemObject")

'********* CREATES AN EXCEL SPREADSHEET***************************
Const ADS_SCOPE_SUBTREE = 2
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
' objExcel.Cells(1, 1).Value = "PC-NAME"
'************************************************* ********************

X = 2 ' Sets the X value
Y = 1 ' Sets the Y value

'***** READS LIST OF PC'S TO INVENTORY ******************************
For Each oTF In oGF.Files
If(Right(oTF.Name,3)) = "txt" Then
set bF = fso.opentextFile(Folder & oTF.Name) 'read list of computers
Do While bF.AtEndofStream <> True
strComputer = bF.readline
'************************************************* *****************

on error resume next

objExcel.Cells(x, y).Value = strComputer

'y = y + 1
x = x + 1
Loop
bF.close
End If
Next

[Killer42]

... The code I have is as below. Can you please help me with formatting the data properly.

Can you show us what results you are getting now?

Just off the top of my head, adjusting the code like this might help a little. I've just modified things slightly at the end of the loop. (I didn't bother posting all the code before the loop)

...
' ***** READS LIST OF PC'S TO INVENTORY ******************************
For Each oTF In oGF.Files
  If(Right(oTF.Name,3)) = "txt" Then
    set bF = fso.opentextFile(Folder & oTF.Name) 'read list of computers
    Do While bF.AtEndofStream <> True
      strComputer = bF.readline
' ******************************************************************
 
      on error resume next
 
      objExcel.Cells(x, y).Value = strComputer
 
      x = x + 1
    Loop
    bF.close
     y = y + 1
    x = 2
  End If
Next