Thema: Zellinhalte in Verbindung mit Variablen in Textdatei schreiben

StandardModule: basMain

Sub TextExport()
   Dim iFile As Integer, iRow As Integer
   Dim sFile As String, sUser As String
   sFile = Application.Path & "\testtext.txt"
   sUser = Application.UserName
   iFile = FreeFile
   Open sFile For Output As iFile
   For iRow = 1 To 10
      Print #iFile, Cells(iRow, 1).Value _
         & " - " & sUser
   Next iRow
   Close iFile
   Workbooks.OpenText _
      Filename:=sFile, _
      DataType:=xlDelimited, _
      tab:=False, _
      semicolon:=False, _
      comma:=False, _
      Space:=False, _
      other:=False
   MsgBox "Weiter"
   ActiveWorkbook.Close savechanges:=False
   Kill sFile
End Sub

Beiträge aus dem Excel-Forum zu den Themen Extern und TextExport