beim schreiben v.Textdatei Spalte User zufügen

Bild

Betrifft: beim schreiben v.Textdatei Spalte User zufügen von: peter
Geschrieben am: 08.02.2005 15:03:10

Hallo Excelexperten,
beim schreiben einer Textdatei möchte ich dem auszulesenden Inhalt
eine zusätzliche Spalte mit dem Usernamen hinzufügen.
Die Zeilenanzahl soll gleich der Zeilenanzahl des auszulesenden Inhaltes
sein.
Um die Ursprungstabelle nicht zu verändern, soll dies erst beim
schreiben der Textdatei geschehen.
Wer kann helfen?
Peter

Sub Export_TextDatei()
   Dim intRow As Integer, intColCount As Integer, intCol As Integer
   Dim strTmp As String
   Dim strAnwender As String
   
strAnwender = Application.UserName
  
  intRow = 1
   Open "TestUser.txt" For Output As #1
  ' Columns(1).Insert
  ' Cells(intRow, 1) = strAnwender
   
   Do Until IsEmpty(Cells(intRow, 1))
      strTmp = ""
      
      For intCol = 1 To intColCount
         If strTmp <> "" Then
            strTmp = strTmp & "," & Cells(intRow, intCol)
         Else
            strTmp = Cells(intRow, intCol)
         End If
      Next intCol
     Print #1, strTmp
      intRow = intRow + 1
   Loop
   Close
End Sub

Bild


Betrifft: AW: beim schreiben v.Textdatei Spalte User zufügen von: Josef Ehrensberger
Geschrieben am: 08.02.2005 17:14:14

Hallo Peter!

Meinst du in jeder Zeile?

Dann so.

Print #1, strTmp & "," & strAnwender



Gruß Sepp

P.S.: Rückmeldung nicht vergessen!


Bild


Betrifft: AW: beim schreiben v.Textdatei Spalte User zufügen von: peter
Geschrieben am: 08.02.2005 20:57:27

Danke Dir Sepp,
genau wie du es gändert hast, hab ich es gemeint.
brauchte nur noch die Variablen umtauschen.
Peter

Print #1, strAnwender & "," & strTmp


Bild


Betrifft: AW: nochmals Danke von: peter
Geschrieben am: 08.02.2005 21:12:25

Danke Sepp,
genau so hab ich es gemeint.
Peter


 Bild

Beiträge aus den Excel-Beispielen zum Thema "beim schreiben v.Textdatei Spalte User zufügen"