Ladebalken bei CSV Laden

Public Sub importcsv() Dim fd As FileDialog Dim strFolder As String Dim strName As String Application.ScreenUpdating = False ' screen einfrieren panelcounter = 0 Set fd = Application.FileDialog(msoFileDialogFolderPicker) If fd.Show -1 Then Exit Sub ' taB STOP getrennte daten einfügen strFolder = fd.SelectedItems(1) & "\" strName = Dir(strFolder & "*.txt") '********************** Lade Balken ************************** lngProgressCountMax = ? While Len(strName) > 0 Workbooks.OpenText Filename:=strFolder & strName, Local:=True ActiveSheet.UsedRange.Copy ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, _ _ _ _ 0) strName = Dir 'schliesst die datei danach. ActiveWorkbook.Close False lngProgressCounter = lngProgressCounter + 1 'Ladebalken Zähler Wend Worksheets("Start").Activate End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub importcsv() Dim fd As FileDialog Dim strFolder As String Dim strName As String Dim strDateien As String Dim arrDateien As String Dim i As Long Application.ScreenUpdating = False ' screen einfrieren panelcounter = 0 Set fd = Application.FileDialog(msoFileDialogFolderPicker) If fd.Show -1 Then Exit Sub ' taB STOP getrennte daten einfügen strFolder = fd.SelectedItems(1) & "\" strName = Dir(strFolder & "*.txt") While Len(strName) > 0 strDatei = strDateien & "|" & strName strName = Dir Wend arrDateien = Split(strDateien, "|") For i = 1 To UBound(arrDateien) Application.StatusBar = "In Arbeit: Datei " & i & " von " & UBound(arrDateien) Workbooks.OpenText Filename:=strFolder & arrDateien(i), Local:=True ActiveSheet.UsedRange.Copy ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, _ 0) 'schliesst die datei danach. ActiveWorkbook.Close False lngProgressCounter = i 'Ladebalken Zähler Next Application.StatusBar = False Worksheets("Start").Activate End Sub

Hallo,
du kannst die Dateien zuvor in eine Array aufnehmen um die Anzahl zu ermitteln.
Ich würde keine Balken verwenden, dies bremst alles aus.
Beim öffnen einer anderen Datei hast du auch nicht viel davon wenn dieser Balken auf der Tabelle ist,
müsste also eine UserForm herhalten.
Ich würde die Statusleiste verwenden um die nötigen Information zu erhalten,
geht schnell und bremst dein Code nicht zu stark.
Beispiel:

Public Sub importcsv()
Dim fd As FileDialog
Dim strFolder As String
Dim strName As String
Dim ArFiles(), i%
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show  -1 Then Exit Sub
strFolder = fd.SelectedItems(1) & "\"
strName = Dir(strFolder & "*.txt")
Do While strName  ""
i = i + 1
ReDim Preserve ArFiles(1 To 2, 1 To i)
ArFiles(1, i) = strFolder & strName
ArFiles(2, i) = strName
strName = Dir()
Loop
If i > 0 Then
Application.ScreenUpdating = False
For i = LBound(ArFiles, 2) To UBound(ArFiles, 2)
Application.StatusBar = "Bearbeite File: " & i & " von " & _
UBound(ArFiles, 2) & " | " & ArFiles(2, i)
Workbooks.OpenText Filename:=ArFiles(1, i), Local:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
ActiveWorkbook.Close False
Next i
Application.StatusBar = False
Application.ScreenUpdating = True
End If
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ladebalken bei CSV Laden

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread