VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zellinhalte in Verbindung mit Variablen in Textdatei schreiben

Gruppe

Extern

Bereich

TextExport

Thema

Zellinhalte in Verbindung mit Variablen in Textdatei schreiben

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

    


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