Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1636to1640
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
Inhaltsverzeichnis

VBA: Pro 1000 Datensätze neue Datei speichern

VBA: Pro 1000 Datensätze neue Datei speichern
06.08.2018 11:43:11
Dennis10ir
Hallo zusammen,
Ich habe eine Excel-Datei mit 11.000 Zeilen. Nun möchte ich bsp. per Button diese 11.000 Zeilen in jeweils 1000 Zeilen splitten und anschließend in einzelne Dateien (mit csv-Endung) abspeichern.
Das Ganze passiert in einem Hauptordner, den man zu Anfang auswählen soll.
Ist glaube ich nicht ganz so schwierig, stehe aber grade auf dem Schlauch.
Danke im Voraus,
Dennis

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Pro 1000 Datensätze neue Datei speichern
06.08.2018 13:07:25
JoWE
Hallo Dennis,
vllt. so (Code in ein neues Modul):
Option Explicit
Sub expPieces()
Dim t As Long
Dim i As Long
Dim myPath As String
t = 11000 / 1000
myPath = GivePath
For i = 1 To t
'ACHTUNG! Bereich anpassen!
Range("A1:BZ1000").Copy
Workbooks.Add
Sheets("Tabelle1").Paste
ActiveSheet.SaveAs Filename:= _
myPath & "\" & "Teil_" & i & "_von_11000.csv", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close savechanges:=True
Range("A1:BZ1000").Delete Shift:=xlUp
Next
ActiveWorkbook.Close savechanges:=False
End Sub
Public Function GivePath() As String
Dim fDialog As FileDialog
Dim result As Integer
'Dateidialog für Auswahl
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
On Error Resume Next
With fDialog
.AllowMultiSelect = False
.Title = "Ablagepfad für pdf-Datei auswählen"
.Filters.Delete
.InitialFileName = "c:\Temp"
result = .Show
If (result  0) Then
GivePath = Trim(.SelectedItems.Item(1))
Else
GivePath = ""
End If
End With
End Function

Gruß
Jochen
Anzeige

326 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige