VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

400 leere Textdateien anlegen

Gruppe

Datei

Bereich

Name

Thema

400 leere Textdateien anlegen

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

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Name