Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zellinhalte in Verbindung mit Variablen in Textdatei schreiben

Gruppe

TextExport

Problem

Wie kann ich Zellinhalte eines vorgegebenen Bereiches mit einer String-Variablen verknüpfen und in eine sequentielle Textdatei schreiben?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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