Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Dateien aus Liste erstellen
Rudolph
Hallo,
ich habe eine Liste in Excel (1 Spalte, darin sind 100 Namen enthalten). Nun möchte ich das er für alle Namen in dieser Liste Ordner und Dateien erstellt.
Für die Ordner habe ich folgende Funktion:

Sub x()
Dim i As Byte
For i = 1 To 100
If Cells(i, 1)  "" Then MkDir "C:\Users\Andre\Desktop\XXXREPORT\" & Cells(i, 1).Value
Next
End Sub

Nur wie geht das für die Dateien?
Vielen Dank für Eure Hilfe im voraus.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Dateien aus Liste erstellen
24.08.2012 13:08:26
Rudi
Hallo,
sowas?
Sub x()
Dim i As Integer
Const sPfad As String = "C:\Users\Andre\Desktop\XXXREPORT\"
For i = 1 To 100
If Cells(i, 1)  "" Then
MkDir sPfad & Cells(i, 1).Value
With Workbooks.Add
.SaveAs sPfad & Cells(i, 1) & "\" & Cells(i, 1)
.Close
End With
End If
Next
End Sub

Gruß
Rudi

AW: Dateien aus Liste erstellen
24.08.2012 14:58:44
Rudolph
He,
leider kommt deiner lösung immer eine Fehlermeldung:
Laufzeitenfehler '1004':
Auf die Datei konnte nicht zugegriffen werden

AW: Dateien aus Liste erstellen
24.08.2012 15:26:07
Rudolph
Diese Funktion erstellt eine einzelne Datei:
Private Sub CommandButton1_Click()
Dim objExcel As Object
Set objExcel = CreateObject("Excel.Application")
With objExcel
.Visible = False
.Workbooks.Add
.ActiveWorkbook.SaveAs "C:\Users\Andre\Desktop\Controlling Daten ordnen\temp\test.xlsx"
.Quit
End With
Set objExcel = Nothing
End Sub
Aber wie erweitere ich sie so das alle namen der Liste als Datei gespeichert werden?

Anzeige
AW: Dateien aus Liste erstellen
24.08.2012 16:06:52
Rudi
Hallo,
so aber
Sub x()
Dim i As Integer, sFile As String
Const sPfad As String = "C:\Users\Andre\Desktop\XXXREPORT\"
For i = 1 To 100
If Cells(i, 1)  "" Then
sFile = Cells(i, 1)
MkDir sPfad & sFile
With Workbooks.Add
.SaveAs sPfad & sFile & "\" & sFile
.Close
End With
End If
Next
End Sub
Gruß
Rudi

AW: Dateien aus Liste erstellen
24.08.2012 17:12:48
Rudolph
DANKE! Funktioniert :)

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige