title image


Smiley Re: aus excel-liste dateien erstellen?
Hallo Guido,

ja das geht.....In den Excel-Tabellen sieht das Ganze so aus. Die Anzahl der Dateien musst Du im Feld B2 angeben und den Pfad, wo die Dateien liegen im Feld B1.



Excel-Tabelle:





VBA-Code



      

'''''''''''''''''''''''''''''''''''''''''''''

'' Beschreibung: Datei erstellen

'' Name: createFiles

'' Parameter:   start - Start

''              ende - Ende

''              pfad - Pfad bis zur Datei

''''''''''''''''''''''''''''''''''''''''''''''



Sub createFiles(start As Integer, ende As Integer, pfad As String)

     Dim strFileName As String

     Dim strDir As String

    

     For i = start To ende

        strDir = pfad

        strNewFile = Worksheets("txt_list").Range("A" & i).Value

        If Not IsEmpty(strNewFile) Then

            Call writeFile(strDir & strNewFile)

        End If

     Next i

 End Sub

 

  '''''''''''''''''''''''''''''''''''''''''''''

'' Beschreibung: Datei schreiben

'' Name: writeFile

'' Parameter: strFilePath - Dateipfad

''''''''''''''''''''''''''''''''''''''''''''''

 Sub writeFile(ByVal strFilePath As String)

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set a = fs.CreateTextFile(strFilePath, True)

    a.WriteLine ("Dies ist ein Test.")

    a.Close

End Sub



'''''''''''''''''''''''''''''''''''''''''''''

'' Beschreibung: createFiles starten (ALSO DAS HIER MUSST DU AUFRUFEN !

'' Name: callCreateFiles

'' Parameter:

''''''''''''''''''''''''''''''''''''''''''''''

 Sub callCreateFiles()

    Dim start As Integer

    Dim ende As Integer

    Dim pfad As String

    pfad = Worksheets("txt_list").Range("B" & 1).Value

    start = 5

    ende = Worksheets("txt_list").Range("B" & 2).Value + start

    Call createFiles(start, ende, pfad)

 End Sub 







 Viel Spass & Erfolg !

-------------------------

computerwissen-inside.deProfi-Tipps

-nicht nur für Excel





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: