Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

400 leere Textdateien anlegen

Gruppe

Name

Problem

Wie kann ich im aktuellen Verzeichnis 400 Textdateien anlegen?

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

StandardModule: basMain

Sub CreateTextFiles()
   Const csMsg As String = "Die Dateien können nicht " & _
      "auf CD-ROM angelegt werden. Speichern Sie die " & _
      "Arbeitsmappe auf Ihrer Festplatte und versuchen " & _
      "Sie es erneut."
   Dim iCounter As Integer
   Dim sFile As String
   On Error GoTo ERRORHANDLER
   For iCounter = 1 To 400
      sFile = Format(iCounter, "0000")
      sFile = CurDir & "\" & sFile & ".txt"
      Open sFile For Output As #1
      Print #1, "Datei Nummer " & iCounter
      Close
   Next iCounter
   MsgBox prompt:="Die Textdateien wurden angelegt" & vbLf & _
      "im Verzeichnis " & CurDir
   Exit Sub
ERRORHANDLER:
   Close
   MsgBox prompt:=csMsg
End Sub