Hopelijk zit ik goed hier??
Ik heb een stukje VBA script in EXcel.
Eigenlijk heel simpel, de code plaatst txt in een platte text file
Het probleem is alleen nu dat wanneer ik de txt file open de cursor
op de volgende regel staat i.p.v. achter de laatste waarde van de txt file.
Met andere woorden het lijkt wel of er gewoon een harde enter
word geplaatst achter de laatste regel.
Hoe krijg ik deze "harde enter" weg of beter gezegd hoe zorg ik ervoor
dat deze er niet in komt
Codering :
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(fname, True, False)
Sheets("nike").Select
StapRow = 1
For StapRow = 1 To 65000
If Cells(StapRow, 1).Value = "" Then
StapRow = 65000
Else
StapColumn = 1
For StapColumn = 1 To 12
LineToInsert = LineToInsert & Cells(StapRow, StapColumn) & " "
Next StapColumn
a.writeline UCase(LineToInsert)
LineToInsert = ""
End If
Next StapRow
a.Close
Alvast bedankt....
Ik heb een stukje VBA script in EXcel.
Eigenlijk heel simpel, de code plaatst txt in een platte text file
Het probleem is alleen nu dat wanneer ik de txt file open de cursor
op de volgende regel staat i.p.v. achter de laatste waarde van de txt file.
Met andere woorden het lijkt wel of er gewoon een harde enter
word geplaatst achter de laatste regel.
Hoe krijg ik deze "harde enter" weg of beter gezegd hoe zorg ik ervoor
dat deze er niet in komt
Codering :
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(fname, True, False)
Sheets("nike").Select
StapRow = 1
For StapRow = 1 To 65000
If Cells(StapRow, 1).Value = "" Then
StapRow = 65000
Else
StapColumn = 1
For StapColumn = 1 To 12
LineToInsert = LineToInsert & Cells(StapRow, StapColumn) & " "
Next StapColumn
a.writeline UCase(LineToInsert)
LineToInsert = ""
End If
Next StapRow
a.Close
Alvast bedankt....