Toon posts:

[VBA - Excel] Lege regel in txt file ??

Pagina: 1
Acties:

Verwijderd

Topicstarter
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....

  • Super_ik
  • Registratie: Maart 2001
  • Laatst online: 20-05 17:44

Super_ik

haklust!

door geen writeline te gebruiken op de laaste regel, maar write ofzo

8<------------------------------------------------------------------------------------
Als ik zo door ga haal ik m'n dood niet. | ik hou van goeie muziek


Verwijderd

Topicstarter
ok je advies was prima, wanneer de laatste regel moet worden weggeschreven dan moet ik write gebruiken voor alle overig regels is writeline wel nodig ;)

tnx >:)