Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

In Textdatei ab letzte Zeile einfügen

Betrifft: In Textdatei ab letzte Zeile einfügen von: anja
Geschrieben am: 09.10.2007 17:19:47

Hallo Profis,

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

  

Betrifft: Open Pfad0 For APPEND As #1 '_oT von: NoNet
Geschrieben am: 09.10.2007 17:28:14

_oT = ohne Text


  

Betrifft: AW: Open Pfad0 For APPEND As #1 '_oT von: anja
Geschrieben am: 10.10.2007 08:29:36

...
Das ist einfach Unglaublich!
So was für einfach! und ich habe alles mögliches ausprobiert und so viel Zeit verloren! :(

Danke!!!

VG
Anja


 

Beiträge aus den Excel-Beispielen zum Thema "In Textdatei ab letzte Zeile einfügen"