In Textdatei ab letzte Zeile einfügen
09.10.2007 17:19:00
anja
ich bin fast am verzweifeln :( Komme leider ohne Hilfe nicht weiter.
Ich möchte vom Excel in eine Textdatei ab LETZTEN Eintrag weitere
Einträge hinzufügen. Ich habe jetzt code geschrieben: es schreibt auf
eine Textdatei aber immer ab erster Zeile.
Info wie man mit Print# ab bestimmte Zeile Text einfügen kann, kann ich
leider im Internet nicht finden.
Hier ist schon mal die Code:
'****** Excel in speziellen Text Format generieren ********
Private Sub CommandButton2_Click()
Dim Pfad, Pfad0 As String
Dim R As Long, C As Long
'**** Speichern unter (Verzeichnis auswählen) ***********
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName False Then
MsgBox "Save as " & fileSaveName
End If
'**** Speicherverzeichnis in A4 ablegen ****
Pfad0 = fileSaveName
Cells(4, 1).Value = Pfad0
'**** Textdatei generieren ******
Open Pfad0 For Output As #1
Elem1 = Cells(5, 2).Value
Elem2 = Cells(6, 2).Value
Elem3 = Cells(7, 2).Value
Elem4 = Cells(8, 2).Value
Print #1, Elem1; "_HOSTNAME#"; Elem2
Print #1, Elem1; "_SOLUTIONTYPE#"; Elem4
Print #1, Elem1; "_SYSNR#"; Elem3
Close #1
'generierte Textdatei anzeigen (mit abfrage Ja/Nein)
finish.Show
End Sub
Sie muss nur entsprechend erweitert werden.
Nun blos weiß ich nicht wie :(
Ich würde mich Wirklich Sehr über eure Hilfe freuen :)
viele Grüße
Anja
Anzeige